في داخل النموذج وضع كود مع رسالة تنبيه في حال حقل الكود بدأ برقم 3 >> حقل الاسم بدأ بحرف S

[AboSaad17]

السلام عليكم ورحمة الله كل عام وانتم بخير 
المطلوب بدون إنشاء استعلام 

في داخل النموذج وضع كود مع رسالة تنبيه في حال 
1- حقل الكود بدأ برقم 3   

2- حقل الاسم بدأ بحرف    S

ولكم جزيل الشــكر

 

CodeName.mdb

[jjafferr]

وعليكم السلام 🙂

 

تفضل ، الكود :

Private Sub code_BeforeUpdate(Cancel As Integer)

    If Len(Me.code & "") <> 0 And Left(Me.code, 1) = 3 Then
        MsgBox "الرقم يبدأ بالرقم 3"
    End If
End Sub

.

والاسم :

Private Sub name_BeforeUpdate(Cancel As Integer)

    If Len(Me![name] & "") <> 0 And Left(Me![name], 1) = "S" Then
        MsgBox "الاسم يبدأ بالحرف S"
    End If
End Sub

 

جعفر

1220.CodeName.mdb.zip

[AboSaad17]

الف شكر استاذ جعفر  jjafferr
اسال الله لك في هذه الليلة المباركة أن يرزقك من كل خير ويصرف عنك كل شر ويمتعك بصحتك