AccessTr.neT

Olmadı malesef,sizin dediğinizi bende denemiştim.
Çok teşekkürler.

@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

Sayın hocam,
Kod bende hiç çalışmadı,hata msj.vermedi.
anlayamadım.
Saygılar.

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.