تصفية نموذج فرعى بالأكواد من خلال كمبوبوكس

[jo_2010]

الخبراء الافاضل 

اريد كود لعمل تصفية نموذج فرعى بالأكواد 

دون استخدام معيار في الاستعلام م 

بفرض ان النموذج الاب اسمة A والفرعى B

الكمبوبوكس c لا اريد عمل استعلام داخلي للفرعى B

وعمل هذا في المعايير

Forms! A! C

 

 

[Foksh]

ارفق ملفك اخي @jo_2010

[jo_2010]

منذ ساعه, Foksh said:

ارفق ملفك اخي @jo_2010

حمدلله على السامة نورت المنتدى

 

Laboratory_2024.accdb

[Foksh]

23 ساعات مضت, jo_2010 said:

حمدلله على السامة نورت المنتدى

 

Laboratory_2024.accdb 2.4 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 12 downloads

أخي الفاضل @jo_2010 ..

لدي فكرة ، جربها وأخبرني بالنتيجة

 

• في حدث بعد التحديث للكومبوبوكس S_Tests استخدم هذا الكود للفلترة :-

Private Sub S_Tests_AfterUpdate()
    Dim strFilter As String
    If IsNull(Me.S_Tests) Then
        strFilter = ""
    Else
        strFilter = "[Requests] Like '*" & Me.S_Tests & "*'"
    End If
    Me.Search_Sub.Form.Filter = strFilter
    Me.Search_Sub.Form.FilterOn = True
Me.Search_Sub.Requery
End Sub

• وفي حدث عند التحميل للنموذج استخدم الغاء فلترة النموذج الفرعي :-

Private Sub Form_Load()
    Me.Search_Sub.Form.Filter = ""
    Me.Search_Sub.Form.FilterOn = False
End Sub

 

• وهذا الملف بعد التعديل :-
• Laboratory_2024.accdb

 

تم تعديل يوليو 5 بواسطه Foksh

[jo_2010]

2 ساعات مضت, Foksh said:

أخي الفاضل @jo_2010 ..

لدي فكرة ، جربها وأخبرني بالنتيجة

 

• في حدث بعد التحديث للكومبوبوكس S_Tests استخدم هذا الكود للفلترة :-

Private Sub S_Tests_AfterUpdate()
    Dim strFilter As String
    If IsNull(Me.S_Tests) Then
        strFilter = ""
    Else
        strFilter = "[Requests] Like '*" & Me.S_Tests & "*'"
    End If
    Me.Search_Sub.Form.Filter = strFilter
    Me.Search_Sub.Form.FilterOn = True
Me.Search_Sub.Requery
End Sub

• وفي حدث عند التحميل للنموذج استخدم الغاء فلترة النموذج الفرعي :-

Private Sub Form_Load()
    Me.Search_Sub.Form.Filter = ""
    Me.Search_Sub.Form.FilterOn = False
End Sub

 

• وهذا الملف بعد التعديل :-
• Laboratory_2024.accdb

 

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

ملحوظة عند عمل معيار بحث داخل النموذج الفرعى كان البحث اسرع ولكن كان هناك زيادة فى عدد السجلات الاصلية وكانت هناك سجلات مكررة  انظر الصور لماذا ذادت السجلات

هذا ما دفعنى اطالب بكود بعيدا عن الاستعلام الد1خلى

[Foksh]

هو فعلاً انا لاحظت بالبطئ الذي ذكرته ، ولكن هذا ما خطر ببالي بناءً على تصميمك لطريقة عرض البيانات في النموذج الفرعي !!

 

اذا أتيت بفكرة أخرى سأتابع معك ، والباب للمشاركات مفتوح على مصراعيه 

[jo_2010]

9 ساعات مضت, Foksh said:

هو فعلاً انا لاحظت بالبطئ الذي ذكرته ، ولكن هذا ما خطر ببالي بناءً على تصميمك لطريقة عرض البيانات في النموذج الفرعي !!

 

اذا أتيت بفكرة أخرى سأتابع معك ، والباب للمشاركات مفتوح على مصراعيه 

هل توجد طريقة لمنع تكرار السجلات عند عمل استعلام داخلى

[abdah]

في 5‏/7‏/2024 at 18:38, Foksh said:

أخي الفاضل @jo_2010 ..

لدي فكرة ، جربها وأخبرني بالنتيجة

 

• في حدث بعد التحديث للكومبوبوكس S_Tests استخدم هذا الكود للفلترة :-

Private Sub S_Tests_AfterUpdate()
    Dim strFilter As String
    If IsNull(Me.S_Tests) Then
        strFilter = ""
    Else
        strFilter = "[Requests] Like '*" & Me.S_Tests & "*'"
    End If
    Me.Search_Sub.Form.Filter = strFilter
    Me.Search_Sub.Form.FilterOn = True
Me.Search_Sub.Requery
End Sub

• وفي حدث عند التحميل للنموذج استخدم الغاء فلترة النموذج الفرعي :-

Private Sub Form_Load()
    Me.Search_Sub.Form.Filter = ""
    Me.Search_Sub.Form.FilterOn = False
End Sub

 

• وهذا الملف بعد التعديل :-
• Laboratory_2024.accdb

 

     
 جميل جداص ومشكور الأستاذ العزيز @Foksh

إذا افترضنا أنني اريد ان اصفي بحسب قيم  الحقل [Requests]. (( او )) بحسب قيم في حقل اخر [الاسم] -مثلا- 

 

اي إذا كانت القيمة المدخلة في S_Tests رقم من الحقل الاول او اسم من الحقل الثاني يقوم بالتصفية 

 

بغض النظر عن الباركود لأنه البحث نص واحدة للمعيارين 

 

هل يمكن هذا
 

[Foksh]

5 ساعات مضت, abdah said:

     
 جميل جداص ومشكور الأستاذ العزيز @Foksh

إذا افترضنا أنني اريد ان اصفي بحسب قيم  الحقل [Requests]. (( او )) بحسب قيم في حقل اخر [الاسم] -مثلا- 

 

اي إذا كانت القيمة المدخلة في S_Tests رقم من الحقل الاول او اسم من الحقل الثاني يقوم بالتصفية 

 

بغض النظر عن الباركود لأنه البحث نص واحدة للمعيارين 

 

هل يمكن هذا
 

يمكن ذلك ، ولكني أنصحك بفتح موضوع جديد مستقل واشرح المطلوب مع إرفاق ملف