Mehmet hocam, valla güzel kod yazmışsın...
Ellerine sağlık...
#7
formun açık yada kapalı olması durumuna kod yazmak
#7
#8
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 
![[Resim: mousey.gif]](http://i5.photobucket.com/albums/y193/vatothe0/mousey.gif)
#9
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..
İnadına, ille de Accesstr.net...
#10
sn. Mehmet Demiral'ın kodunun üstüne pek gitmez ama
sanırım bu şekilde de kontrol edilebiliyor.
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 IfBildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
#11
Bir kodda ben yazıp konuyu çözümlenen konulara taşıyayım.
isimli fonksiyonu ekleyip, kodun çalışmasını istediğin olaya aşağıdakini yaz
Bkz: Polsoft - TCKİMLİKSORGU Formu / Bilgileri Aktar Butonu
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
Konuyu Okuyanlar: 1 Ziyaretçi
