Private Sub Form_Current()
On Error GoTo err_Form_Current
If Not Me!MKResim = "" Or Not IsNull(Me!MKResim) Then
Me!ResimCercevesi.Picture = Me!MKResim
Else
Me!ResimCercevesi.Picture = ""
End If
exit_Form_Current:
Exit Sub
err_Form_Current:
'MsgBox Err.Description
Resume exit_Form_Current
End Sub
Alttan üçüncü satırda yer alan
MsgBox Err.Description
komutunun önüne tek tırnak yani ' işaretini koyarsanız hata mesajını almazsınız. Yukarıda zaten diğer üstadlarımız aynısını yazmış ama bende bir daha yazma ihtiyacı hissettim.