Tüm Formlar Kapansın

Jester

Reality Army
S.Moderator
Katılım
23 Kas 2019
Mesajlar
488
Tepkime puanı
56
Puanları
28
Konum
Kanada
Kod:
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
 

1Jeff

💠 Developer & Coder 💠
Ultra Üye
Katılım
20 Eki 2019
Mesajlar
808
Tepkime puanı
402
Puanları
63
Konum
Paris
Üst Alt