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

[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).accdbFetching info...

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

[Barna]

  في 3‏/8‏/2021 at 12:15, Ahmed_J said:

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

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

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

test (1).accdb 664 kB · 2 downloads

Expand  

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

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

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

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

test_bar.accdbFetching info...

[kanory]

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

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

 

test_bar.accdbFetching info...

[Ahmed_J]

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

شكرا لكم

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

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

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

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

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

[kha9009lid]

  في 3‏/8‏/2021 at 16:15, Ahmed_J said:

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

Expand  

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

ولكن الاسهل استخدام 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.accdbFetching info...

[د.كاف يار]

  في 4‏/8‏/2021 at 01:32, 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

Expand  

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

[Ahmed_J]

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

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

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

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

[kha9009lid]

  في 4‏/8‏/2021 at 01:50, د.كاف يار said:

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

Expand  

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

  في 4‏/8‏/2021 at 10:41, Ahmed_J said:

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

Expand  

جرب المرفق

 

test_bar.accdbFetching info...

[kanory]

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

[kha9009lid]

  في 4‏/8‏/2021 at 11:59, kanory said:

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

Expand  

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

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

[Ahmed_J]

السلام عليكم 

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

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

تحياتي