وضعت هذا الكود في زر حفظ وليس في النموذج وضبطت معي :
Private Sub save_Click()
On Error GoTo Err_save_Click
If IsNull(number2) Then
MsgBox "áÇíãßä ÇáÍÝÙ Ãæ ÇáÎÑæÌ ÞÈá æÖÚ ÇáÑÞã ÇáÎÇÕ ", vbInformation, "ÊäÈíå"
Else
Dim stLinkCriteria As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_save_Click:
Exit Sub
Err_save_Click:
MsgBox Err.Description
Resume Exit_save_Click
End If
End Sub