Örneğin Veri Giriş formunda resmin görüntülendiği aşağıdaki kodu:

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