Momoria insufficiente durante utilizzo di Access 2010

[nman]

Ti fai 11 pulsanti che fanno ogniuno queste cose

-- Chiude TUTTE le maschere
-- apre 1 sola maschera specifica

Public Sub ChiudiTutteEAprineUna()
' con questo ciclo chiudi in assoluto tutte le maschere
Dim objFrms As Object
    For Each objFrms In Application.CurrentProject.AllForms
        DoCmd.Close acForm, objFrms.Name, acSaveNo
    Next objFrms

' adesso puoi aprire la tua unica maschera
DoCmd.OpenForm "Tavolo3", acNormal, "", "", , acNormal

End Sub