جرب هذا واعلمنا بالنتيجة .............
Private Sub genu_AfterUpdate()
Dim fieldValue As String
fieldValue = Me.genu.Value
' Check if the field value starts with "17"
If Left(fieldValue, 2) = "17" Then
MsgBox "ادخال خاطئ! يجب ألا يبدأ الحقل بالرقم 17."
Me.genu.Undo ' Undo the input
End If
End Sub