Skip to main content

AccessTr.neT


formun açık yada kapalı olması durumuna kod yazmak

formun açık yada kapalı olması durumuna kod yazmak

Çözüldü #7
Mehmet hocam, valla güzel kod yazmışsın...

Ellerine sağlık...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #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 Img-grin
[Resim: image.php?s=df028e861d094075be82dfc55ca1...1225646923][Resim: mousey.gif]
Cevapla
Çözüldü #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...
Cevapla
Çözüldü #10
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

Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #11
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task