فورم بحث حسب الاسم

[moham_q]

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

prg_mnst.rar

[علي المصري]

برجاء رفع الملف مرة اخرى

[moham_q]

الاخ علي المحترم ... تم رفع الملف ... خالص امتناني 

prg_mnst.rar

[علي المصري]

جرب المرفق التالي

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

prg_mnst.rar

[moham_q]

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

[علي المصري]

استخدم الكود التالي

DoCmd.OpenReport "اسم التقرير", acNormal

 

[moham_q]

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

[علي المصري]

استخدم الكود التالي

Private Sub Command0_Click()
DoCmd.OpenReport "تقرير الطبع الكلي", acViewPreview, , , acHidden
DoCmd.SelectObject acReport, "تقرير الطبع الكلي"
DoCmd.PrintOut acSelection
DoCmd.Close acReport, "تقرير الطبع الكلي"
End Sub

 

[moham_q]

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

[كرار صبري _ أبو جنى]

في ١٢‏/١٢‏/٢٠١٥ at 14:16, علي المصري said:

استخدم الكود التالي

Private Sub Command0_Click()
DoCmd.OpenReport "تقرير الطبع الكلي", acViewPreview, , , acHidden
DoCmd.SelectObject acReport, "تقرير الطبع الكلي"
DoCmd.PrintOut acSelection
DoCmd.Close acReport, "تقرير الطبع الكلي"
End Sub

 

السلام عليكم ...

هل من الممكن تحديد عدد النسخ بهذا الكود ...

[علي المصري]

Private Sub Command0_Click()
DoCmd.OpenReport "تقرير الطبع الكلي", acViewPreview, , , acHidden
DoCmd.SelectObject acReport, "تقرير الطبع الكلي"
DoCmd.PrintOut acSelection, , , , 2
DoCmd.Close acReport, "تقرير الطبع الكلي"
End Sub

 

[كرار صبري _ أبو جنى]

في ١٤‏/١٢‏/٢٠١٥ at 23:51, علي المصري said:

Private Sub Command0_Click() DoCmd.OpenReport "تقرير الطبع الكلي", acViewPreview, , , acHidden DoCmd.SelectObject acReport, "تقرير الطبع الكلي" DoCmd.PrintOut acSelection, , , , 2 DoCmd.Close acReport, "تقرير الطبع الكلي" End Sub

شكرا استاذ علي ... لم ارى هذا الكود الا اليوم ...