تحديد مربع النص باربعة نصوص فقط من خلال كود

[محمد التميمي]

السلام عليكم:

لدي في الملف المرفق نموذج يحتوي على مربع نص باسم (نوع السيارة).

المطلوب : انشاء كود في مربع النص يحتوي على اربع انواع من السيارات فقط (تويوتا . جيب . نيسان . هونداي) وعند كتابة اي نوع اخر من السيارات تظهر رسالة خطأ  في الكتابة او اي نص نختاره في الرسالة ويتوقف ولا ينتقل الى المربع التالي.

(( لا نريد التطبيق على القائمة المنسدلة ))

مع فائق الشكر والاحترام..

New.accdb

تم تعديل أكتوبر 18 بواسطه محمد التميمي

[محمد احمد لطفى]

تفضل بالتوفيق

 

Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer)
    Dim carType As String
    carType = Me![نوع المنتج].Value

    ' التحقق من النوع المدخل باستخدام Select Case
    Select Case carType
        Case "تويوتا", "جيب", "نيسان", "هونداي"
            ' النوع المدخل صحيح، لا شيء يحتاج إلى فعله
        Case Else
            MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال"
            Cancel = True ' إلغاء التحديث
    End Select
End Sub

أو
 

Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer)
Select Case Me![نوع المنتج].Value
    Case "تويوتا", "جيب", "نيسان", "هونداي"
        ' النوع صحيح
    Case Else
        MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال"
        Cancel = True
End Select
End Sub

ينصح بتغيير اسم الحقول الى الانجليزية

تم تعديل أكتوبر 18 بواسطه محمد احمد لطفى

[محمد التميمي]

شكرا جزيلا اخي الكريم اخترت الكود الثاني ويعمل بشكل جيد

تم تعديل أكتوبر 18 بواسطه محمد التميمي

[محمد التميمي]

4 ساعات مضت, محمد احمد لطفى said:

تفضل بالتوفيق

 

Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer)
    Dim carType As String
    carType = Me![نوع المنتج].Value

    ' التحقق من النوع المدخل باستخدام Select Case
    Select Case carType
        Case "تويوتا", "جيب", "نيسان", "هونداي"
            ' النوع المدخل صحيح، لا شيء يحتاج إلى فعله
        Case Else
            MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال"
            Cancel = True ' إلغاء التحديث
    End Select
End Sub

أو
 

Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer)
Select Case Me![نوع المنتج].Value
    Case "تويوتا", "جيب", "نيسان", "هونداي"
        ' النوع صحيح
    Case Else
        MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال"
        Cancel = True
End Select
End Sub

ينصح بتغيير اسم الحقول الى الانجليزية

اخي الكريم ممكن تعديل بسيط على الكود الثاني 

عند ظهور الرسالة واضغط على نعم اوريد اين يمسح القيمة التي كتبت بالخطأ يعني تفريغ مربع النص مرة ثانية

[محمد احمد لطفى]

   تفضل

   تم اضافة
 

Me![نوع المنتج].Undo

 

Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer)
Select Case Me![نوع المنتج].Value
    Case "تويوتا", "جيب", "نيسان", "هونداي"
        ' النوع صحيح
    Case Else
        MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال"
        Cancel = True
         Me![نوع المنتج].Undo
End Select
End Sub

 

[محمد التميمي]

14 دقائق مضت, محمد احمد لطفى said:

   تفضل

   تم اضافة
 

Me![نوع المنتج].Undo

 

Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer)
Select Case Me![نوع المنتج].Value
    Case "تويوتا", "جيب", "نيسان", "هونداي"
        ' النوع صحيح
    Case Else
        MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال"
        Cancel = True
         Me![نوع المنتج].Undo
End Select
End Sub

 

شكرا ياطيب ياغالي بارك الله بجهودك