ekle butonunun kodlarını aşağıdaki ile değiştir.

On Error GoTo err_cmdResimEkle

Dim ResimYolu As String

    If Len(MKResim) <> 0 Then

        ResimYolu = Me.MKResim

    End If

Me![MKResim] = GetOpenFile_CLT("C:\OTOMASYON", "Resim Seçiniz...")

    If IsNull(Me!MKResim) Or Me![MKResim] = "" Then

        Me![MKResim] = ResimYolu

    Else

        Me![MKResim] = LCase(Me![MKResim])

    End If

Me!ResimCercevesi.Picture = Me!MKResim



exit_cmdResimEkle:

    Exit Sub

    

err_cmdResimEkle:

    MsgBox Error$

    Resume exit_cmdResimEkle