طباعة تقرير من بحث

[99عمرو]

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

[صالح حمادي]

أنشئ تقرير و اجعل خاصية مصدر السجلات لهذا التقرير هي الإستعلام الذي يقوم بالبحث

[99عمرو]

يعنى التقرير هيطبع النتيجه اللى ظهرت فى البحث مع العلم ان البحث عندى مثل جوجل 

 

[صالح حمادي]

نعم هذا ما سيقوم به التقرير لأن مصدر التقرير هو إستعلام البحث

يعني راح يطبع النتائج الموجودة في الإستعلام فقط

[99عمرو]

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

 

[يوسف أحمد]

السلام عليكم

اضافه الى ما تفضل به اخي العزيز صالح 

يمكن وضع القيمه التاليه بباراميتر اسم الفلتر بامر فتح التقرير

Me. Filter

المعذره انا اكتب من الموبايل لظروف السفر 

و ارجو ان تكون الفكره واضحه 

بالتوفيق للجميع

 

 

[99عمرو]

الاخ يوسف مش فاهم الفكره يعنى اضع الفلتير باراميتر فين

 

[يوسف أحمد]

اعتذر عن التأخير 

الكود سيكون كالتالي

DoCmd.OpenReport "rpt1", acViewPreview, , Me.Filter

حيث أن rpt1 هو اسم التقرير 

 

مرفق مثال لتتضح لك الفكرة 

 

بالتوفيق للجميع

filterName.rar

تم تعديل يناير 16, 2017 بواسطه يوسف أحمد

[99عمرو]

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

 

موظفين.rar

[99عمرو]

فين اهل الخبره يساعدونى

[jjafferr]

السلام عليكم

 

اخي عمرو ، كل شغلك تمام ، ماعدا شغلة واحدة في الاستعلام:

بدل
Like "*" & [Forms]![frm_Search]![Text0].[Text] & "*"

استعمل
Like "*" & [Forms]![frm_Search]![Text0] & "*"

 

جعفر

[99عمرو]

اخى جعفر لو ازلت الجزء ده لن يعمل البحث عن تجربه

تم تعديل يناير 19, 2017 بواسطه 99عمرو

[صالح حمادي]

السلام عليكم

تفضل جرب هذا الملف بعد التعديل

 

موظفين.rar

[99عمرو]

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

[99عمرو]

اخى ًصالح حمادى اسف لاتعابك معى ولكن اريد ان اضيف علامة صح بجوار كل اسم  لاقوم بتحديد الاسماء التى سيتم طباعتها  

ما قد وصلت اليه 
Dim strCriteria As String
Dim varItemsSelected As Variant

    If Me.YourListBox.ItemsSelected.Count = 0 Then
        MsgBox "You must select at least one record."
        Exit Sub
    End If
   
    For Each varItemsSelected In Me.YourListBox.ItemsSelected
        strCriteria = strCriteria & "," & Me.YourListBox.ItemData(varItemsSelected)
    Next varItemsSelected

    strCriteria = Right(strCriteria, Len(strCriteria) - 1)

    DoCmd.OpenReport "YourReport", acViewPreview, , "YourID IN(" & strCriteria & ")"