DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub formdurumu()
If UserForm1.Visible = True Then
'İşelemler
MsgBox "Userform1 Açık"
End If
If UserForm2.Visible = True Then
'İşlemler
MsgBox "Userform2 Açık"
End If
End Sub
Hep beraber,hep beraber.Sen çok yaşa Evren hocam
Yalnız burada şu sorun çıkabilir, form load olduğu halde visible=false ise bu durum bizi yanıltabilir.Sanırım bu şekilde de kontrol edilebilir.
If CurrentProject.AllForms("AFormu").IsLoaded = True Then
...
End If