Private Sub أمر9_Click()

If IsNull(Forms![form1]![subform].Form![CustmerID]) Then
    MsgBox "لم تقم بإدخال رقم العميل ، الرجاء إدخال القيمة والمحاولة مجدداً", vbOKOnly + vbInformation, "تحذير"
    Me![subform].SetFocus
    Me![subform].Form![CustmerID].SetFocus
Else
DoCmd.OpenQuery "استعلام_تحديث_العميل", , acEdit
MsgBox "تم تحديث البيانات بنجاح", vbOKOnly + vbInformation, "معلومات"
Cancel = True
Exit Sub
End If
End Sub