formun açık yada kapalı olması durumuna kod yazmak

[nacre]

Selam ,
Arkadaşlar diyelimki A formu açıksa .... işlemini yap B formu açıksa .... işlemini yap ikiside kapalıysa hiç birşey yapmda diye bir kodu nasıl yazabiliriz.
İyi çalışmalar

 

[janveljan]

Bir modülde global bir değişken tanımlayıp, bir formun initialize kodunda bi değer atayıp diğer formun initialize kodunda da farklı değer atayarak ve daha sonra o değeri sorgulayarak hangisinin açık olduğunu bulabilirsin.

 

[Orion1]

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

 

[janveljan]

Sen çok yaşa Evren hocam

 

[nacre]

Yardımlarınız için teşekkürler.
iyi çalışmalar.

 

[Orion1]

Sen çok yaşa Evren hocam

Hep beraber,hep beraber.

 

[seruz]

Sanırım bu şekilde de kontrol edilebilir.

If CurrentProject.AllForms("AFormu").IsLoaded = True Then

...

End If

 

[janveljan]

Sanırım bu şekilde de kontrol edilebilir.

If CurrentProject.AllForms("AFormu").IsLoaded = True Then

...

End If

Yalnız burada şu sorun çıkabilir, form load olduğu halde visible=false ise bu durum bizi yanıltabilir.