AccessTr.neT

Tam Versiyon: formun açık yada kapalı olması durumuna kod yazmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Selam ,
Arkadaşlar diyelimki A formu açıksa .... işlemini yap B formu açıksa .... işlemini yap ikiside kapalıysa hiç birşey yapma diye bir kodu nasıl yazabiliriz.
İyi çalışmalar
Öncelikle form1 ve form2 için aşağıdaki kodlarla açık olup olmadıklarını belirleyelim:

Kod:
dim a, b as string 'değişkenleri atadık

If SysCmd(acSysCmdGetObjectState, acForm, "Form1") <> 0 Then '1 nolu formu kontrol ettik
  
MsgBox "Form açık." 'ekrana uyarı yazdık
a=1  'a değişkenine 1 değeri verdik
Else
   MsgBox "Form kapalı."  'formun kapalı olduğu uyarısı
a=0
End If


aynı işi form2 için de yapınca b değişkeni de değer alacaktır. Sonra da


Kod:
if a=1 and b=1 then 'Yani her iki form da açıksa
'şunları şunları yap
if a=1 and b=0 then 'Yani sadece 1. form açıksa
'şunları şunları yap
....


Img-grin))
Artık gerisini yazmaya gerek var mı?


Kolay gelsin
güzel bir kod tasarımı. eline bilgine sağlık.
Teşekkür ederim.
cavabınız için teşekkürler.
iyi çalışmalar.
Herhalde birşeyin değerini en iyi bilen kendisi de ona sahip olandır diye bir söz uyduracağım. Ben cevabı sayın nacre'ye yazdım, bu komutları su gibi bilen moderatör arkadaşım syrup 5 puan rep vermiş... Teşekkür ederim sevgili syrup, beni yücelttiniz. Mahçup oldum.
Sayfalar: 1 2