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

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

لدي قاعدة بيانات الموظفين  فيها حقل التسلسل واسم الموظف وراتبه وجميع بياناته

كيف يمكنني طباعة عدد محدد من السجلات  (لاكثر من موظف واحد) في تفرير الاكسس انا اقوم باختيارها  مثلا (عن طريق الاسم الكامل) 

مثل احمد ومحمد او عن طريق (التسلسل) 1,2,3  وهكذا  

يعني طباعة مجموعة اسماء محددة او تسلسلات محددة

وشكرا لكم

تم تعديل أغسطس 2, 2021 بواسطه Ahmed_J

[Barna]

طيب ممكن مرفق كمثال للتطبيق عليه !!!!

[Eng.Qassim]

بشكل عام .. تعمل حقل في الجدول اسمه مثلا isSelected  ونوع بياناته yes/no

والقيمة الافتراضية له = NO

قم باضافة هذا الحقل الى النموذج .. ثم قم ببناء استعلام من الجدول وضع معيار تحت حقل isSelected= True

وسمه ماشئت .. ثم قم بأنشاء تقرير مصدر سجلاته ذلك الاستعلام

قمل بعمل زر في النموذج لطباعة او اظهار السجلات المختارة

طبعا توجد العديد من الطرق في حالة اختيار السجلات من ال List Box  وطباعتها

[Ahmed_J]

السلام عليكم استاذ @Barna

هذا مثال من ملف البيانات 

اريد الطباعة بزر من خلال النموذج (يعني طباعة مجموعة اسماء محددة او تسلسلات محددة)

test (1).accdb

تم تعديل أغسطس 3, 2021 بواسطه Ahmed_J

[Barna]

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

السلام عليكم استاذ @Barna

هذا مثال من ملف البيانات 

اريد الطباعة بزر من خلال النموذج (يعني طباعة مجموعة اسماء محددة او تسلسلات محددة)

test (1).accdb 664 kB · 2 downloads

تفضل الطريقتين :

الاولى ... تختار من مربع الاختيار الموظفين ثم تطبع

الثانية ... تحدد التسلسل المطلوب من مثلا 1 الى 5 ثم تطبع

بارك الله فيك ...

test_bar.accdb

[kanory]

مشاركة مع ملف استاذي Barna

اصبح لدينا تقرير واحد بدل تقريرين .....

 

test_bar.accdb

[Ahmed_J]

السلام عليكم استاذ @Barna واستاذ @kanory

شكرا لكم

طريقة مربع الاختيار انا اعرفها وهي  لاتنفعي في عملي الاصلي بسبب  نفاذ موارد الجهاز (لااستطيع اضافة اي حقل للجدول)

الطريقة الثانية هي تنفعني لكن اريد الطباعة تكون مثلا   (1,4,7 ) اي انا اختار رقم السجل  وليس (من - الى) 

اتمنى ان تصل فكرتي

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

تم تعديل أغسطس 3, 2021 بواسطه Ahmed_J

[kha9009lid]

9 ساعات مضت, Ahmed_J said:

لكن اريد الطباعة تكون مثلا   (1,4,7 ) اي انا اختار رقم السجل  وليس (من - الى) 

ممكن وباكثر من طريقة

ولكن الاسهل استخدام in

If IsNull(tx3) Then MsgBox "فضلا اكتب رقم الموظف", , "تنبية": Exit Sub
Dim k, w As String
k = Me.tx3 & ","
w = "table.id IN (" & Left$(k, Len(k)) & ")"
DoCmd.OpenReport "r_1", acViewPreview, , w

الملف مرفق

test_bar.accdb

[د.كاف يار]

17 دقائق مضت, kha9009lid said:

ممكن وباكثر من طريقة

ولكن الاسهل استخدام in

If IsNull(tx3) Then MsgBox "فضلا اكتب رقم الموظف", , "تنبية": Exit Sub
Dim k, w As String
k = Me.tx3 & ","
w = "table.id IN (" & Left$(k, Len(k)) & ")"
DoCmd.OpenReport "r_1", acViewPreview, , w

الملف مرفق

test_bar.accdb 592 kB · 1 download

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

[Ahmed_J]

السلام عليكم  استاذ @kha9009lid

بارك الله فيك على الجهود المبذولة 

بقى طلب واحد فقط لو كان الرقم المدخل غير موجود بالجدول ارجوا اظهار رسالة بذلك (السجل غير موجود) مثل الرقم (8 او 10) والغاء الطباعة

تم تعديل أغسطس 4, 2021 بواسطه Ahmed_J

[kha9009lid]

9 ساعات مضت, د.كاف يار said:

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

هذا بس من ذوقك دكتور ولا العين ما تعلى على الحاجب 🌹

55 دقائق مضت, Ahmed_J said:

بقى طلب واحد فقط لو كان الرقم المدخل غير موجود  ارجوا اظهار رسالة بذلك مثل الرقم (8)

جرب المرفق

 

test_bar.accdb

[kanory]

ما شاء الله تبارك الله ..... معلم يا استاذ @kha9009lid >>>>

[kha9009lid]

24 دقائق مضت, kanory said:

ما شاء الله تبارك الله ..... معلم يا استاذ @kha9009lid >>>>

من حسن ذاتك استاذ @kanory وجودكم في الموقع انتم والاساتذة الافاضل يدفعنا للمزيد من العمل والاستمرار بالمشاركة

تحياتي وتقديري 🌹

[Ahmed_J]

السلام عليكم 

شكرا لكم اساتذتي الاعزاء  @kha9009lid @Barna   @kanory   @Eng.Qassim  @د.كاف يار

بارك الله فيكم زجعلها في ميزان حسناتكم

تحياتي