Tüm Formlar Kapansın

[Drenated]

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

Aşağıdaki kodu Ana formunuzun Form_Unload olayına yerleştirin.

Call UnloadAllForms Me.Name

 

[Berat Seray]

+++

 

[1Jeff]

++

 

[PesimistDeli]

+