كيف اجبر المستخدم على أن يكون رقم الهوية يبدأ بـ 2

[MTGFM]

السلام عليكم ورحمة الله وبركاته

المطلوب كماهو موضح في العنوان

اجبار المستخدم عندما يدخل رقم الهوية أن يبدأ برقم 2

المثال في المرفق

num.accdb

[jjafferr]

تفضل 🙂

 

Private Sub K_id_BeforeUpdate(Cancel As Integer)

    If Left(Me.K_id, 1) <> 2 Then
        Cancel = True
        MsgBox "يجب ان يبدأ هذا الحقل بالرقم 2"
        Exit Sub
    End If
    
End Sub

 

جعفر

[MTGFM]

4 دقائق مضت, jjafferr said:

تفضل 🙂

 

Private Sub K_id_BeforeUpdate(Cancel As Integer)

    If Left(Me.K_id, 1) <> 2 Then
        Cancel = True
        MsgBox "يجب ان يبدأ هذا الحقل بالرقم 2"
        Exit Sub
    End If
    
End Sub

 

جعفر

 

 

تسلم استاذ جعفر

اجابة وافيه وكافيه ... الله يزيدك من علمه ..

 

 

[SEMO.Pa3x]

عليكم السلام, اضافة لاستاذي @jjafferr

Private Sub K_id_BeforeUpdate(Cancel As Integer)

    If InStr(1, K_id, 2) <> 1 Then
        Cancel = True
        MsgBox "يجب ان يبدأ الحقل برقم 2"
        Exit Sub
    End If

End Sub