Kod:
Me.cerceve.Picture = ""
Kod:
Private Sub RsmAl()
On Error GoTo akd
If Not IsNull([Resim]) Then
Me.cerceve.Picture = [Resim]
Else
Me.cerceve.Picture = "D:\Resim\ResimYok.Jpg"
End If
Exit Sub
akd:
If Err = 2220 Then
Me.cerceve.Picture = "D:\Resim\ResimHatali.Jpg"
Else
MsgBox Err.Description, vbExclamation
End If
End Sub