كيف أضيف معيار لاستعلام croostab

[jo_2010]

الخبراء الاعزاء

اريد عمل نموذج بة مربع نص اكتب بة اي معيار وزر لفتح استعلام croostab علي نفس المعيار قمت بعمل الcroostab ولم استطيع عمل معبار من خلال النموذج ارجو مساعدتي شكرآ 

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

السلام عليكم

ارفق مثال بارك الله فيك ليتم التعديل عليه ان شاء الله

تخياتي

[jo_2010]

الخبراء الاعزاء 

مرفق القاعدة للتعديل عليها

اريد عمل نموذج من خلالة اعمل تصفية للاستعلام BB انيميا - رمد او اى تصفية

APE.accdb

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

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

انظر النموذج frmBB

وهذا كود التصفية

    Dim myCriteria As String

    myCriteria = myCriteria & "("
    myCriteria = myCriteria & "[BB].[code_proj]= " & Me.Combo19
    myCriteria = myCriteria & ")"
    Me.Filter = myCriteria
    Me.FilterOn = True

APE1.rar

تحياتي

[jo_2010]

معلمى الجليل محمد أبوعبدالله

اشكر سعة صدرك ومساعدتى فى عمل التصفية ولكن ارجو الاطلاع على نموذج BB وضعت بة زر لفتح تقرير على حسب التصفية واود اضافة اكثر من كمبو بوكس مرة للاسم مثلا ومرة للمشروع  كما فعلت حضرتك اشكرك على تعبك 

APE12.accdb

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

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

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

واود اضافة اكثر من كمبو بوكس مرة للاسم مثلا ومرة للمشروع

تم اضافة المشروع من قبل

وبالنسبة للاسم يمكن تنفيذ الكود التالي

    Me.FilterOn = False
    myCriteria = ""
    myCriteria = myCriteria & "("
    myCriteria = myCriteria & "[BB].[pname]='" & Combo22.Column(1) & "'"
    myCriteria = myCriteria & ")"
    Me.Filter = myCriteria
    Me.FilterOn = True

 

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

وضعت بة زر لفتح تقرير على حسب التصفية

وهذا كود الطباعة حسب التصفية

    Debug.Print myCriteria
    DoCmd.OpenReport "BB", acViewPreview, , myCriteria

وهذا الكود كامل

Option Compare Database
Dim myCriteria As String

Private Sub Cmd01_Click()
    
    Debug.Print myCriteria
    DoCmd.OpenReport "BB", acViewPreview, , myCriteria

End Sub

Private Sub Combo19_Click()

    Me.FilterOn = False
    myCriteria = ""
    myCriteria = myCriteria & "("
    myCriteria = myCriteria & "[BB].[code_proj]= " & Me.Combo19
    myCriteria = myCriteria & ")"
    Me.Filter = myCriteria
    Me.FilterOn = True
    
End Sub

Private Sub Combo22_Click()
    
    Me.FilterOn = False
    myCriteria = ""
    myCriteria = myCriteria & "("
    myCriteria = myCriteria & "[BB].[pname]='" & Combo22.Column(1) & "'"
    myCriteria = myCriteria & ")"
    Me.Filter = myCriteria
    Me.FilterOn = True
    
End Sub

APE12.rar

تحياتي

[jo_2010]

استاذى الفاضل  الخبير محمد أبوعبدالله

اشكرك على تعبك فعلت اكثر ماكنت اتوقع

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

سؤال بسيط كيف ارتب الحقول العمودية بحيث يكون شهر 7/2020

9/2020  وهكذا لانهم غير مرتبين ويبدا بشهر 11/2020

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

الترتيب الموجود في الملف السابق حسب حقل IDED

تفضل الترتيب حسب حقل DATER

program.rar

تحياتي