محتاج طباعة تقرير حسب التصفيه

[sief122]

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

 

الجمعية 28.accdb

تم تعديل الخميس at 07:32 بواسطه sief122

[Foksh]

وعليكم السلام ورحمة الله وبركاته ,,

لم تحدد التقرير الذي تريده ان يكون النتيجة للفلترة أخي الكريم ..

[sief122]

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

[Foksh]

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

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

اخي افتح المرفق التالي ، واختر فلترة عشوائية لأي بيانات ، وانقر زر افتح التقرير ..

الترتيب والتصميم حسب رغبتك .

ما تم هو انشاء تقرير مبني على الإستعلام Qsearch4 ، وإضافة الحقول نفسها من الاستعلام الى التقرير ..

حيث ان الاستعلام مشروط بالفلترة ، وما سيتم تطبيقه على التقرير هو عرض السجلات التي تم فلترتها فقط

 

 

الجمعية 28.zip

[sief122]

للاسف مش هو المطلوب انا عايز يكون التقرير مثل الصورة المرفقه ويتم الطباعه

[Foksh]

7 ساعات مضت, sief122 said:

للاسف مش هو المطلوب انا عايز يكون التقرير مثل الصورة المرفقه ويتم الطباعه

 

عايز 37 حقل في ورقة وحدة وبجنب بعض في صف واحد 😅 .. طب إزااااااي ؟؟

[sief122]

لا لا حضرتك اعمل اي عدد حتى ولو 5 اعمده فقط وانا هنسق ده وشكرا

[Foksh]

1 ساعه مضت, sief122 said:

لا لا حضرتك اعمل اي عدد حتى ولو 5 اعمده فقط وانا هنسق ده وشكرا

طيب تمام ، جرب هذه الفكرة السريعة ، وباعتقادي قد تجد أفكار أفضل 100% من الأخوة والأساتذة والمعلمين هنا ..

 

 

الجمعية 29.zip

[sief122]

تمام الله ينور على حضرتك ويجازيك خير ما فعلت ممكن تشرحلى عملتها ازاي ويبقى كتر خيرك وشكرا

[Foksh]

1 ساعه مضت, sief122 said:

تمام الله ينور على حضرتك ويجازيك خير ما فعلت ممكن تشرحلى عملتها ازاي ويبقى كتر خيرك وشكرا

نفس الإستعلام الخاص بك ، ولكني استخدمت شرط الفلترة في حدث عند الفتح للتقرير ليتوافق مع شرط الفلترة في الاستعلام لتطابق النتائج بينهما ..

Private Sub Report_Open(Cancel As Integer)
If Not IsNull(Forms!search4!searchtext.Value) Then
    Me.Filter = "[id] & ' ' & [rank] & ' ' & [emp] & ' ' & [employer] & ' ' & [emp_id] & ' ' & [national id] & ' ' & [date of birth] & ' ' & [phone] & ' ' & [phone next] & ' ' & [address] & ' ' & [notes] & ' ' & [marital status] & ' ' & [promote to] & ' ' & [promote date] & ' ' & [transfer to] & ' ' & [transfer date] & ' ' & [membership no] & ' ' & [establishment fee] & ' ' & [monthly installment] & ' ' & [subscription date] & ' ' & [age at subscription] & ' ' & [subscription daration] & ' ' & [due date] & ' ' & [membrship type] & ' ' & [created_date] & ' ' & [user] & ' ' & [mostafed] & ' ' & [national id2] & ' ' & [phone2] & ' ' & [sabb] & ' ' & [tarekh] & ' ' & [shek] & ' ' & [mostfad mn alaml] LIKE '*" & Replace(Forms!search4!searchtext.Value, "'", "''") & "*'"
    Me.FilterOn = True
Else
    Me.Filter = ""
    Me.FilterOn = False
End If
End Sub