Form - chiudere tutti i Form aperti
Public Sub UnloadAllForms(sFormName As String) Dim Form As Form For Each Form In Forms If Form.Name sFormName Then Unload Form Set Form = Nothing End If Next Form End Sub
Public Sub UnloadAllForms(sFormName As String)
Dim Form As Form
For Each Form In Forms
If Form.Name sFormName Then
Unload Form
Set Form = Nothing
End If
Next Form
End Sub
( formchiuderetuttiiformaperti.html )- by Paolo Puglisi
- Modifica del 17/12/2023