Açılan Kutudan Seçim Yapılarak Formu Pasif Yapma.

1 2
02/07/2018, 21:44

fascioğlu

Olmadı malesef,sizin dediğinizi bende denemiştim.
Çok teşekkürler.
03/07/2018, 15:20

ozanakkaya

@fascioğlu, frm_PERSONEL isimli formdaki ilgili kodu aşağıdaki ile değiştirerek deneyiniz




Sub Calisiyormu()
If Me.acl_durumu = "Çalışıyor" Or IsNull([acl_durumu]) Then

    Me.mtn_ayrilisnedeni.Visible = False
    Me.mtn_ayriltar.Visible = False
    Me.mtn_calistigigun.Visible = False
    Me.Metin213.Visible = True
    
    Me.frm_MAAS.Form.AllowEdits = True
    
Else

    Me.mtn_ayrilisnedeni.Visible = True
    Me.mtn_ayriltar.Visible = True
    Me.mtn_calistigigun.Visible = True
    Me.Metin213.Visible = False
       
    Me.frm_MAAS.Form.AllowEdits = False
    
End If
End Sub

bu kod sadece frm_MAAS isimli alt formda kilitleme işlemini yapar
03/07/2018, 21:51

fascioğlu

Sayın hocam,
Kod bende hiç çalışmadı,hata msj.vermedi.
anlayamadım.
Saygılar.
04/07/2018, 10:36

ozanakkaya

frm_PERSONEL isimli formdaki

1-) Sub Calisiyormu() kod bloğunu üstte verdiğim kod ile değiştireceksiniz,
2-) Bu kodun tetiklenmesi için, formun geçerli oluğunda olayına Calisiyormu şeklinde kod eklemeniz lazım. Bu kodunda hata kodlarının altına değil, kod içerisine yazılması gerekli

Private Sub Form_Current()
On Error GoTo err_Form_Current

   If Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu) Then
       Me!ResimCercevesi.Picture = Me!MKResimYolu
   Else
       Me!ResimCercevesi.Picture = ""
   End If
       

       
       
exit_Form_Current:
   Exit Sub
   
err_Form_Current:
   MsgBox Err.Description
   Resume exit_Form_Current
   
CerceveYenile
Calisiyormu
   
End Sub

Bu şekilde kod olmaz. CerveceYenile ve Calisiyormu kodları yanlış yerde. 

On Error GoTo err_Form_Current kodu hata durumunda çalışacak kodları tanımlar, siz hata durumunda çalışacak kodların içerisine yazarsanız ve hata yok ise kod çalışmaz


Private Sub Form_Current()
On Error GoTo err_Form_Current

    If Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu) Then
        Me!ResimCercevesi.Picture = Me!MKResimYolu
    Else
        Me!ResimCercevesi.Picture = ""
    End If

CerceveYenile
Calisiyormu
       
exit_Form_Current:
    Exit Sub
    
err_Form_Current:
    MsgBox Err.Description
    Resume exit_Form_Current

End Sub


Koddaki mavi ve kırmızı yerlere dikkat edin.
1 2