هو يحذف الملاحظة 1 عندي !!
ربما اصبح خطأ معين ... على كل حال الصق هذا الكود لديك
Private Sub Command5_Click()
On Error GoTo ErrorHandler
If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Then
Me.Note1 = Null
Else
Me.Note2 = Null
End If
Exit Sub
ErrorHandler:
MsgBox "An error occurred: " & Err.Description, vbCritical, "Error"
End Sub