كود vba لشرط عدم البدأ برقم 17

[Abdelaziz Osman]

السلام عليكم ورحمة الله 
لدى حقل داخل نموذج واسم هذا الحقل genu  
أريد كود vba لهذا الحقل 
عند ادخل قيمة لهذا الحقل تبدأ برقم 17 يعطى رسالة " ادخال خاطىء " ويتوقف الادخال ولا يكمل الا  اذا تم إدخال اي شئ اخر لا يبدأ برقم 17  
بالغ التحية والتقدير

[kanory]

2 ساعات مضت, Abdelaziz Osman said:

السلام عليكم ورحمة الله 
لدى حقل داخل نموذج واسم هذا الحقل genu  
أريد كود vba لهذا الحقل 
عند ادخل قيمة لهذا الحقل تبدأ برقم 17 يعطى رسالة " ادخال خاطىء " ويتوقف الادخال ولا يكمل الا  اذا تم إدخال اي شئ اخر لا يبدأ برقم 17  
بالغ التحية والتقدير

جرب هذا واعلمنا بالنتيجة .............

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

 

[ابوخليل]

كود جميل استاذنا ولا اروع

ما رأيك لو الحدث قبل التحديث هل يكون أقوى ؟

[kanory]

5 دقائق مضت, ابوخليل said:

كود جميل استاذنا ولا اروع

ما رأيك لو الحدث قبل التحديث هل يكون أقوى ؟

نعم اتوقع صحيح .... بارك الله فيك استاذنا الفاضل 

[Abdelaziz Osman]

18 ساعات مضت, kanory said:

جرب هذا واعلمنا بالنتيجة .............

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

 

جزاك الله خيرا

تمام الكود تمام

[Eng.Qassim]

في 24‏/8‏/2024 at 23:11, ابوخليل said:

ما رأيك لو الحدث قبل التحديث هل يكون أقوى ؟

نعم استاذ ..في تلك الحالة سوف لن يتم ادخال الرقم الى الجدول المرتبط 

Private Sub genu_BeforeUpdate(Cancel As Integer)
    If Left(Me.genu.Value, 2) = "17" Then
        MsgBox "غير مسموح ادخال الرقم 17", vbExclamation, "ادخال خاطيء"
        Cancel = True
        Me.genu.Undo
      End If
End Sub