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

Luqman Khooshnaw · يناير 2

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

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

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

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

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

وشكرا

**kanory** · يناير 2

في 2‏/1‏/2025 at 17:16, Luqman Khooshnaw said:

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

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

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

Expand

جرب هذا

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 · يناير 2

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