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.