تصفية نموذج فرعي مبني على استعلام من خلال حقلين مختلفين

[الحسن]

يعطيكم العافية ايها المشرفين الاعزاء

محسوبكم خبرته قليلة في برمجة الاكسس وأعمل على برنامج صغير لأحد الحمعيات يحضر اعضائها ومتطوعيها مؤتمرات وورشات عمل وحلقات نقاش وغيره، وحاولت أن اعمل تصفيه لإستعلام مبني على ال3 جداول الموجودة من خلال مربعات كمبو بوكس واحد باسم المؤتمر والأخر بتاريخ المؤتمر ولم افلح في ذلك .
اطلب مساعدتكم إن تكرمتم علي بذلك
العمل باستخدام الكود وليس الماكرو

مرفق قاعدة البيانات التي تحتاج إلى تعديل.

ConferenceDB.rar

[husamwahab]

تفضل اخي العزيز

ارجو ان يكون طلبك

 

ConferenceDB-1.rar

[محمد أبوعبدالله]

بالاضافة الى ما تفضل به استاذنا الفاضل @husamwahab

تعلمت من استاذتنا هنا في المنتدى تقسيم الكود لمعرفة اين الخطأ بسهولة

واليك حلين مختلفين للموضوع احذف علامة التنصيص من احدهما ليعمل الكود

Private Sub cboConfDate_Exit(Cancel As Integer)
    
'    rs = "Select * From Conference_Q"
'    rs = rs & " WHERE ConfStDate =#" & Format(Me.cboConfDate.Value, "mm/dd/yyyy") & "#"
'
'    Debug.Print rs
'
'    Set rst = CurrentDb.OpenRecordset(rs)
'    Me.SubConf_Frm.Form.RecordSource = rs
'    Me.SubConf_Frm.Form.Requery
'
'
'============================الحل الثاني  ==========================================
'
'    myCriteria = "ConfStDate =#" & Format(Me.cboConfDate.Value, "mm/dd/yyyy") & "#"
'    Debug.Print myCriteria
'
'    Me.SubConf_Frm.Form.Filter = myCriteria
'    Me.SubConf_Frm.Form.FilterOn = True

End Sub

Private Sub cboConfName_AfterUpdate()
    
'    rs = "Select * From Conference_Q"
'    rs = rs & " WHERE ConfNo =" & Me.cboConfName.Column(0)
'
'    Debug.Print rs
'
'    Set rst = CurrentDb.OpenRecordset(rs)
'    Me.SubConf_Frm.Form.RecordSource = rs
'    Me.SubConf_Frm.Form.Requery
'
'
'============================الحل الثاني  ==========================================
'
'    myCriteria = "ConfNo = " & Me.cboConfName.Column(0)
'    Debug.Print myCriteria
'
'    Me.SubConf_Frm.Form.Filter = myCriteria
'    Me.SubConf_Frm.Form.FilterOn = True

End Sub

تحياتي

[الحسن]

اشكرك اخي الحبيب

husamwahab

  على ما قدمته لي من مساعدة وكنت اتمنى لو أنك عالجت لي البحث من خلال حقل التاريخ أيضاً إذ أن المؤتمرات وورشات العمل قد تتكرر ولكن في تواريخ مختلفة وبحضور اعضاء مختلفين ، إضافة إلى طباعة تقرير بناء على التصفية ، وأكون لك شاكراً كثيراً

[الحسن]

اشكرك اخي الحبيب 

محمد ابوعبد الله

على مجهودك الذي بذلته لمساعدتي في حل المشكلة، لكني اود أن أسألك هل جربت الاكواد التي كتبتها على ما قدمته من نموذج لقاعدة البيانات أم لا

لأنني حاولت أن اجربها ولم تنجح

[محمد أبوعبدالله]

11 دقائق مضت, الحسن said:

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

بكل تأكيد

تفضل اخي الكريم

ConferenceDB.rar

تحياتي

[husamwahab]

انا بالخدمة اخي الكريم (الحسن)

 

ConferenceDB-2.rar

[الحسن]

اشكركم اخوتي الاعزاء 

محمد ابوعبد الله

و

husamwahab

شكراً جزيلاً على ما قدمتموه لي من خدمة، جعلها الله في ميزان حسناتكم