فتح النموذج بشرط

[Luqman Khooshnaw]

السلام عليكم....

اريد مساعدتكم في كتبة دالة If ...

عندي حقل اسمه Field 1 في نموذج معين 

عندي نموذج اخر اسمه  Form 1

اريد دالة مثلا اذا حقل Field 1  يحتوي على كلمة او جزء من كلمة مثلا كلمة ( Car ) أو ( Ca ) بالضغط  عليه يفتح النموذج Form 1 . وإذا  لايحتوى على الكلمة او جزء من الكلمة لاتفتح النموذج.

وشكرا

[kanory]

19 دقائق مضت, Luqman Khooshnaw said:

عندي حقل اسمه Field 1 في نموذج معين 

عندي نموذج اخر اسمه  Form 1

اريد دالة مثلا اذا حقل Field 1  يحتوي على كلمة او جزء من كلمة مثلا كلمة ( Car ) أو ( Ca ) بالضغط  عليه يفتح النموذج Form 1 . وإذا  لايحتوى على الكلمة او جزء من الكلمة لاتفتح النموذج.

جرب هذا

Dim searchText As String
    Dim fieldValue As String

    ' النص الذي تبحث عنه
    searchText = "Ca" ' أدخل الكلمة أو جزء الكلمة المراد البحث عنها
    fieldValue = Nz(Me!Field1, "") ' جلب القيمة من الحقل Field1 مع التعامل مع القيم الفارغة

    ' التحقق إذا كانت القيمة تحتوي على النص المطلوب
    If InStr(1, fieldValue, searchText, vbTextCompare) > 0 Then
        ' فتح النموذج Form1 إذا تحقق الشرط
        DoCmd.OpenForm "Form1"
    Else
        ' عرض رسالة توضيحية إذا لم يتحقق الشرط
        MsgBox "الحقل لا يحتوي على النص المطلوب.", vbInformation, "تحذير"
    End If

 

[Luqman Khooshnaw]

اشكرك استاذي العزيز على الاجابة ..نعم هذا ماكنت اقصده بالضبط.. بس عندي شي اخر اضافي اذا كنا نريد ان نبحث على كلمتين في نفس الوقت مثلا (Car)  و ( Bicycle) كيف تكون المعادلة ؟؟

[kkhalifa1960]

مشاركةً مع استاذي @kanory تفضل استاذ @Luqman Khooshnaw المرفق .

DDSearchWithCondition.rar

[kanory]

25 دقائق مضت, Luqman Khooshnaw said:

بس عندي شي

 

تم تعديل يناير 2, 2025 بواسطه kanory

[Luqman Khooshnaw]

تفضل هذا المثال استاذ Kanory

1.accdb

[kanory]

منذ ساعه, Luqman Khooshnaw said:

تفضل هذا المثال استاذ Kanory

تفضل اضغط دبل كليك على الحقل وعلمنا .....

 

1 (11).accdb

[Luqman Khooshnaw]

ماشاءالله .... بارك الله فيك استاذنا العزيز kanory... هذا كان المطلوب... شكراجزيلا..❤️❤️❤️❤️

شكرا جزيلا استاذ العزيز kkhalifa1960    الفكرة جميلة عاشت ايديك...

تم تعديل يناير 2, 2025 بواسطه Luqman Khooshnaw

[kanory]

17 دقائق مضت, Luqman Khooshnaw said:

ماشاءالله .... بارك الله فيك استاذنا العزيز kanory... هذا كان المطلوب... شكراجزيلا

طيب جرب التعديل الجديد ربما يعجبك .............

 

1 (11).accdb

[Luqman Khooshnaw]

ماشاءالله ....عاشت ايديك استاذ ماقصرتوا... بصراحة اعجبني كثيير .شكرا جزيلا .الله يحفظكم ويطول عمركم