AccessTr.neT
formun açık yada kapalı olması durumuna kod yazmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: formun açık yada kapalı olması durumuna kod yazmak (/konu-formun-acik-yada-kapali-olmasi-durumuna-kod-yazmak.html)

Sayfalar: 1 2


formun açık yada kapalı olması durumuna kod yazmak - nacre - 04/02/2009

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


Cvp: formun açık yada kapalı olması durumuna kod yazmak - mehmetdemiral - 04/02/2009

Ö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


Cvp: formun açık yada kapalı olması durumuna kod yazmak - syrup - 04/02/2009

güzel bir kod tasarımı. eline bilgine sağlık.


Cvp: formun açık yada kapalı olması durumuna kod yazmak - mehmetdemiral - 04/02/2009

Teşekkür ederim.


Cvp: formun açık yada kapalı olması durumuna kod yazmak - nacre - 04/02/2009

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


Cvp: formun açık yada kapalı olması durumuna kod yazmak - mehmetdemiral - 04/02/2009

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.