filter - بحث وتصفية

[ashraf zain eddin]

الله يعطيكو العافية الجميع و اذا ممكن تساعدوني :

كل جملة من هاي الجمل بتعمل فلتر:

strmcount وstrmcount متغيران يدخلهم المستخدم كعدد للسجلات اللي بدي اياهن يظهروا

strtotal1وstrtotal2 معايير عرفتهن قبل ويعملان بشكل جيد

task1 = "select top " & strmcount & " * from nregistration where " & strtotal1 وبترجع عدد متغير من سجلات الذكور

task2 = "select top " & strfcount & " * from nregistration where " & strtotal2 بترجع عدد متغير من سجلات الاناث

- بدي اياهن يشتغلو سوا ويظهروا النتائج في جدول واحد الفكرة كيف بدي اربط هاتين الجملتين

[jjafferr]

وعليكم السلام

 

تفضل (طبعا غير معروف عندنا المعايير بالضبط ، فهناك احتمال محتاج تغيير حسب المعايير)

task1 = "select top " & strmcount & " * from nregistration where " & strtotal1 & " And " & strtotal2

 

جعفر

[ashraf zain eddin]

جهودك مشكورة 

 (strmcount)هذا الكود يأخذ عدد السجلات من تكست بوكس خاص للذكور 

 لذلك لازم اعمل جملتين تتنفذان مع بعضهما لتعرض سجلات الذكور والاناث اما بالنسبة للمعايير   (strfcount) عدد السجلات من تكست بوكس خاص للاناثو

 

فإن لها كود خاص عندي

هذا هو البرنامج

filter.zip

تم تعديل يناير 28, 2017 بواسطه ashraf zain eddin
ارفاق البرنامج

[jjafferr]

الآن سؤالك اصبح غير واضح!!

رجاء شرح ما تريد وبالتفصيل ، وابدء باسم النموذج واسم الحقل واسم الجدول ن ثم ماذا يجب ان نرى ، وماذا تريد ان يصير

انت صاحب البرنامج وادرى به منا

 

جعفر

[ashraf zain eddin]

اسم النوذج :filter_form4

الجدول :nregistration يحتوي على 3 حقول (الرقم , الاسم ,القرية)

يحتوي النموذج على text box اسمه mcount وهو لادخال عدد من قبل اليوزر ويحدد عدد السجلات اللي لازم تظهر للذكورمن قرية 3

وايضا يحتوي النموذج على text box اخر اسمه fcount وهو لادخال عدد من قبل اليوزر ويحدد عدد السجلات اللي لازم تظهر للاناث من قرية 3

انا كتبت كود واضطريت  الى تصميم نموذجين فرعين  و كل نتيجة ظهرت بنموذج فرعي

فأصبح عندي نموذج بيطلع عدد معين من الذكور والنموذج الاخر بيطلع الاناث

المطلوب من هذا  انو يعمل فلترة ويظهر كل من الذكور والاناث بنموذج واحد

*ملاحظة :يوجد  بالكود رقم 3 للدلالة على القرية لأنو مطلوب مني اعمل نفس الخاصية لقرى اخرى

*ملاحظة : القرى بالارقام

سوف ابعث البرنامج .......

اشكرك على جهودك

 

 

 

 

filter.zip

تم تعديل يناير 28, 2017 بواسطه ashraf zain eddin

[ashraf zain eddin]

مسا الخير اخواني اذا في مجال واحد يععطيني الحل 

[رمهان]

بعد اذن اخي جعفر

جرب هذا السكريبت في استعلام جديد لفهم اكثر للجملة

select top 1 * from nregistration where v='3' and gender='male' 
union select top 1 * from nregistration where v='3' and gender='female'

هذا يسمى استعلام توحيد وهو دمج نتائج استعلامات بكلمة union . هذا الاستعلام ليس له عرض تصميم وانما عرض سكريبت

وبهذا اضف هذا السطر في نهاية كود الدالة result  وبعد نهاية الجملة الشرطية الاخيرة ليصبح شكل نهاية الكود

MsgBox "see your subforms first"

Me.child6.Form.RecordSource = task1 & " union " & task2
Me.child6.Requery


End Function

هنا تظهر رسالة لترى شغلك القديم ثم التاثير الجديد وتم تطبيقه على النموذج الثاني وبالطبع يمكن ان تطبقه على نموذج جديد لديك

 

باتوفيق

[jjafferr]

السلام عليكم

 

اعمل حقل في النموذج باسم v لرقم القرية ،

ثم استخدم هذا الكود:

Private Sub fcount_AfterUpdate()
Call result
Call Make_SQL
End Sub

Private Sub mcount_AfterUpdate()

Call result
Call Make_SQL

End Sub

Function Make_SQL()

    m_SQL = "SELECT TOP " & Me.mcount & " ibv, [name#], gender, v "
    m_SQL = m_SQL & "FROM nregistration "
    m_SQL = m_SQL & "WHERE gender = 'male' And v ='" & Me.v & "'"
    'm_SQL = m_SQL & " ORDER BY [name#], gender"
    'Debug.Print m_SQL
    
    f_SQL = "SELECT TOP " & Me.fcount & " ibv, [name#], gender, v "
    f_SQL = f_SQL & "FROM nregistration "
    f_SQL = f_SQL & "WHERE gender = 'Female' And v ='" & Me.v & "'"
    f_SQL = f_SQL & " ORDER BY gender Desc, [name#]"    'male First
    'f_SQL = f_SQL & " ORDER BY gender, [name#]"        'Female First
    'Debug.Print f_SQL

    u_SQL = m_SQL & vbCrLf & "Union All" & vbCrLf & f_SQL
    'Debug.Print u_SQL
    
    Me.join.Form.RecordSource = u_SQL
    
End Function

.

هذا عبارة عن 3 استعلامات ، استعلام للرجال ، وثاني للنساء ، وثالث يجمعهم (استعلام توحيد Union Query) ،

وفرز النساء يأتي اولا بسبب ان الجنس موجود بطريقة تصاعديه ،

فاذا اردت ان تجعل الرجال اولا، فغير بين هذين السطرين:

    f_SQL = f_SQL & " ORDER BY gender Desc, [name#]"    'male First
    'f_SQL = f_SQL & " ORDER BY gender, [name#]"        'Female First

 

جعفر

560.filter.accdb.zip

[ashraf zain eddin]

الف شكر الكم وجهودكم مشكورة .......بارك الله فيكم

[jjafferr]

7 دقائق مضت, رمهان said:

بعد اذن اخي جعفر

جرب هذا السكريبت في استعلام جديد لفهم اكثر للجملة

select top 1 * from nregistration where v='3' and gender='male' 
union select top 1 * from nregistration where v='3' and gender='female'

هذا يسمى استعلام توحيد وهو دمج نتائج استعلامات بكلمة union . هذا الاستعلام ليس له عرض تصميم وانما عرض سكريبت

وبهذا اضف هذا السطر في نهاية كود الدالة result  وبعد نهاية الجملة الشرطية الاخيرة ليصبح شكل نهاية الكود

MsgBox "see your subforms first"

Me.child6.Form.RecordSource = task1 & " union " & task2
Me.child6.Requery


End Function

هنا تظهر رسالة لترى شغلك القديم ثم التاثير الجديد وتم تطبيقه على النموذج الثاني وبالطبع يمكن ان تطبقه على نموذج جديد لديك

 

باتوفيق

 

حيا الله اخوي رمهان

 

وينك يا رجال ، طوّلت الغيبة

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

شئ واحد ناقص في الكود عندك وهو عدد الرجال وعدد النساء 

 

جعفر

[ashraf zain eddin]

الف شكر الكم جربتوا وزبط جهوودكم مشكورة اخواني

[رمهان]

11 دقائق مضت, jjafferr said:

 

حيا الله اخوي رمهان

 

وينك يا رجال ، طوّلت الغيبة

حياك اخي جعفر ودمتم بخير انا بخير

12 دقائق مضت, jjafferr said:

شئ واحد ناقص في الكود عندك وهو عدد الرجال وعدد النساء 

جعفر

انا ما حبيت اغير في العمل اسابق ولم اتعمق! هو عامل الشروط وانا فقط دمجت له في الكود 

تحياتي