CISA FotoGallery

Statistiche

Tot. visite contenuti : 928202
Home Articoli tecnici Moduli Chiudi tutte le Forms(Eccetto la attiva)

Chiudi tutte le Forms(Eccetto la attiva)

CODICE

Public Function CloseAllForms(Optional strForm As String = vbNullString) As Boolean
'*****************************************************************
'Name : CloseAllForms()
'Purpose : Close all Forms eccept Form.Name passed
'Author : Alessandro Baraldi
'E.Mail : Questo indirizzo e-mail è protetto dallo spam bot. Abilita Javascript per vederlo.
'Date : 23 gennaio 2002
'Called by :
'Calls :
'Inputs : Form che non deve essere chiusa
'Output : True if is OK
'*****************************************************************
    
On Error GoTo Err_Close
    Dim n, x As Integer
    
n = Forms.count
    For x = n - 1 To 0 Step -1
        If Forms(x).Name <> strForm Then DoCmd.Close acForm, Forms(x).Name
    Next
    
CloseAllForms = True

Exit_here:
    Exit Function
Err_Close:
    CloseAllForms = False
    Resume Exit_here
End Function


'NOTE:
'La funzione potrebbe essere migliorata passando alla Function
'un Variant con l'elenco delle FORMS da non chiudere,
'e sfruttando la Funzione Split per convertire il Variant in Array
'per permettere un For ...Each all'interno del ciclo attuale.