Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open
If IsNull(Me!MKResim) Or Me!MKResim = "" Then
' do nothing
Else
Me!ResimCercevesi.Picture = Me!MKResim
End If
Exit_Form_Open:
Exit Sub
Err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open
End Sub
Şu şekilde değiştirin:
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
If IsNull(Me!MKResim) Or Me!MKResim = "" Then
' do nothing
Else
Me!ResimCercevesi.Picture = Me!MKResim
End If
End Sub