Mehmet hocam, valla güzel kod yazmışsın...
Ellerine sağlık...
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
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..
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 If
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 Function
isimli fonksiyonu ekleyip, kodun çalışmasını istediğin olaya aşağıdakini yaz
Kod:
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
Bkz:
Polsoft - TCKİMLİKSORGU Formu / Bilgileri Aktar Butonu