تصفية البحث على فرع معين

[HaniMoursi]

بالمرفق يوجد استعلام باسم (Search_J) وبداخله يوجد كود بحث (Like "*" & [Forms]![SearchForm_J]![Text2_J] & "*") المشكله هي

بالاستعلام بند اسمه (Branch) ويندرج تحته الفروع (مصانع الثلج ، مصنع اللدائن ، شركة حمود) وعندما اعمل تصفيه على مصانع الثلج واضع الكود المذكور اعلاه تظهر كل السندات وليس فقط مصانع الثلج

لذا ارجو الافاده من اهل الخبره

البحث.zip

[ابوخليل]

تفضل 

البحث2.rar

[HaniMoursi]

17 ساعات مضت, ابوخليل said:

تفضل 

البحث2.rar 72.29 kB · 5 downloads

صباح الخير استاذنا الفاضل ابوخليل (شكراً على مرورك الكريم) 
عندما اكتب اي جزء في مربع النص واختار مصانع الثلج فيظهر الاستعلام فارغ على سبيل المثال لو حضرتك كتبت (الجليب) مثلا

وانا كنت احتاج الشكل بهذه الطريقه المرفقه فأنا بالفعل عملت نموذج البحث لكن اريد البحث فقط في مصانع الثلج لاحظ حضرتك المرفق

البحث في النموذج.zip

تم تعديل فبراير 7, 2024 بواسطه HaniMoursi

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

السلام عليكم

مشاركة مع معلمنا القدير ابو خليل

تفضل اخي البحث عن طريق الكود وليس الاستعلام 

Private Sub Text1_J_Change()

    Dim strFilter As String, strSearch As String

    If Nz(Me.Text1_J.Text) = "" Then
    Me.DataSearch_J.Form.Filter = ""
    Me.DataSearch_J.Form.FilterOn = False

Else
    strSearch = Replace(Me.Text1_J.Text, "'", "''")
    strFilter = strFilter & "Branch LIKE '*" & strSearch & "*' OR "
    strFilter = strFilter & "SubStatement LIKE '*" & strSearch & "*' OR "
    strFilter = strFilter & "BondNo LIKE '*" & strSearch & "*' OR "
    strFilter = strFilter & "BondSerial LIKE '*" & strSearch & "*'"

End If

    If strFilter <> "" Then
    Me.DataSearch_J.Form.Filter = strFilter
    Me.DataSearch_J.Form.FilterOn = True
Else
    Me.DataSearch_J.Form.Filter = ""
    Me.DataSearch_J.Form.FilterOn = False
End If

    Me.Text1_J.SetFocus
    Me.Text1_J.SelStart = Len(Me.Text1_J.Text)

End Sub

عملت لك  البحث في اربعة حقول Branch و SubStatement و BondNo و BondSerial بالامكان إضافة حقول اخرى للتصفية

عسى ان يكون هو المطلوب

بالتوفيق

البحث في النموذج.rar

[ابوخليل]

اخوي هاني

من الاحتراف ان لا تتشابه اسماء الحقول في الجداول المفروض يفرق بينها بحرف او اي شيء 

بسبب التشابه تظهر لك المشكلات عند بناء الاستعلامات من هذه الجداول

اسم الحقل ArAccDes في الجدول الفرعي عدلته الى Ar_AccDes

تفضل التعديل

البحث في النموذج2.rar

[HaniMoursi]

1 دقيقه مضت, سامي الحداد said:

السلام عليكم

مشاركة مع معلمنا القدير ابو خليل

تفضل اخي البحث عن طريق الكود وليس الاستعلام 

Private Sub Text1_J_Change()

    Dim strFilter As String, strSearch As String

    If Nz(Me.Text1_J.Text) = "" Then
    Me.DataSearch_J.Form.Filter = ""
    Me.DataSearch_J.Form.FilterOn = False

Else
    strSearch = Replace(Me.Text1_J.Text, "'", "''")
    strFilter = strFilter & "Branch LIKE '*" & strSearch & "*' OR "
    strFilter = strFilter & "SubStatement LIKE '*" & strSearch & "*' OR "
    strFilter = strFilter & "BondNo LIKE '*" & strSearch & "*' OR "
    strFilter = strFilter & "BondSerial LIKE '*" & strSearch & "*'"

End If

    If strFilter <> "" Then
    Me.DataSearch_J.Form.Filter = strFilter
    Me.DataSearch_J.Form.FilterOn = True
Else
    Me.DataSearch_J.Form.Filter = ""
    Me.DataSearch_J.Form.FilterOn = False
End If

    Me.Text1_J.SetFocus
    Me.Text1_J.SelStart = Len(Me.Text1_J.Text)

End Sub

عملت لك  البحث في اربعة حقول Branch و SubStatement و BondNo و BondSerial بالامكان إضافة حقول اخرى للتصفية

عسى ان يكون هو المطلوب

بالتوفيق

البحث في النموذج.rar 109.32 kB · 2 downloads

شكرا جزيلا لمرورك الجميل اخى سامى

الان, ابوخليل said:

اخوي هاني

من الاحتراف ان لا تتشابه اسماء الحقول في الجداول المفروض يفرق بينها بحرف او اي شيء 

تفضل التعديل

البحث في النموذج2.rar 105.37 kB · 1 download

وصلت النصيحه استاذنا الفاضل ابوخليل (احبكم في الله)
وهذا هو المطلوب