الرقم القومي

If Len(Trim(Me.Mobile)) <> 11 Then
MsgBox " رقم الموبايل مكون من  11 رقم من فضلك أدخال الرقم مرة أخرى ", vbOKOnly + vbCritical + vbMsgBoxRight, "الرسالة "
Me.Undo
DoCmd.GoToControl ("Mobile")
Exit Sub
End If
 

شاهد هذا

شكرا لك يا اخي وبارك الله فيك