+- 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
Cvp: formun açık yada kapalı olması durumuna kod yazmak - tdsharun - 04/02/2009
Mehmet hocam, valla güzel kod yazmışsın...
Ellerine sağlık...
Cvp: formun açık yada kapalı olması durumuna kod yazmak - syrup - 04/02/2009
rica ederim sevgili mehmet. senin paylaşım kaliten yanında biz eksiğiz aslında. sayenizde bilgimize bilgi katıyoruz. gerçek mesleğinin icraatını bizede uyguluyorsun
Cvp: formun açık yada kapalı olması durumuna kod yazmak - mehmetdemiral - 04/02/2009
Teşekkürler arkadaşlar. Amacımız hep birlikte öğrenmek, sitemizi canlandırmak. İnsanlar sitemize geldiklerinde cevapsız döülmeyeceğini öğreniyorlar sizlerin sayesinde. Ben de sizlerden öğrenmeye çalışıyorum..
Cvp: formun açık yada kapalı olması durumuna kod yazmak - Seruz - 04/02/2009
sn. Mehmet Demiral'ın kodunun üstüne pek gitmez ama
sanırım bu şekilde de kontrol edilebiliyor.
Kod:
If CurrentProject.AllForms("AFormu").IsLoaded = True Then
...
End If
If CurrentProject.AllForms("BFormu").IsLoaded = True Then
...
End IfCvp: formun açık yada kapalı olması durumuna kod yazmak - ozanakkaya - 04/02/2009
Bir kodda ben yazıp konuyu çözümlenen konulara taşıyayım.
Kod:
Private Function isFormLoaded(strFormName As String)
isFormLoaded = SysCmd(SYSCMD_GETOBJECTSTATE, A_FORM, strFormName)
End FunctionKod:
Const FRM_A = "FORM1"
Const FRM_B = "FORM2"
Dim strArgs As String
If isFormLoaded(FRM_A) Then
'Form1 açık ise yapılacak işlem.
End If
If isFormLoaded(FRM_B) Then
'Form2 açık ise yapılacak işlem.
End If