سؤالين فقط في النموذج والتقرير

الأخ على حسين

http://mypage.ayna.com/ashrafk/search.zip

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

ملحوظة : هذه القاعدة بها 90% من أفكار الأخ العزيز أبو حمود وقد وضعتها فى قاعده ليستفيد منها الجميع .

أشرف خليل

اشكرك اخي على مالاجابة

لكن المطلوب غير موجود ارجو من الاخوة الاجابة

الأخ علي

بالنسبة لطباعة كل الموظفين المتميزين مرة الجميع في صفحة ومرة أخرى كل موظف متميز في صفحة فسوف أفترض أن لديك مجموعة خيار باسم عرض_الموظفين_المتميزين وبها زري خيار الأول الكل والثاني مفرد أو فردي (أو أي أسم يدل على المعنى) والكود كالتالي :

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

If Me![عرض_الموظفين_المتميزين] = 1 Then

Reports![اسم التقرير].Section(0).ForceNewPage = 0

Else

Reports![اسم التقرير].Section(0).ForceNewPage = 2

End If

DoCmd.Save

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

أما الجواب على السؤال الثاني :

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

Like Forms![اسم النموذج]![اسم القائمة] & "*"

وإذا تركت القائمة فارغة سيظهر كل الموظفين .

ولك تحياتي

عزيزي ابو حمود

كل الامور ولله الحمد علي مايرام ممتازة جدا

لكن عندما اضفت زر اختيار لتحديد طباعة تقرير عن موظف بعينة واخر لجميع الموظفين لم اتمكن من تفعيل عمل الازرار .

ولك تحياتي واعجابي ودعواتي لك بالتوفيق

الأخ علي

"لم اتمكن من تفعيل عمل الازرار . " أي أزرار تقصد وماذا تعني بالتفعيل ؟

ولك تحياتي

بالنسبة لطباعة كل الموظفين المتميزين مرة الجميع في صفحة ومرة أخرى كل موظف متميز في صفحة فسوف أفترض أن لديك مجموعة خيار باسم عرض_الموظفين_المتميزين وبها زري خيار الأول الكل والثاني مفرد أو فردي (أو أي أسم يدل على المعنى) والكود كالتالي

هذا ما قصدت حيث انني لم اعرف كيف اجعل زر الاختار يعمل .

ونأسف على عدم التوضيح .

اشكرك اخي العزيز

أنا اللي آسف لأنني لم أوضح .

بعد إنشاء مجموعة الخيار الموجود فيها الزرين ضع في حدث نقر زر أمر الكود التالي :

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

If Me![عرض_الموظفين_المتميزين] = 1 Then

Reports![اسم التقرير].Section(0).ForceNewPage = 0

Else

Reports![اسم التقرير].Section(0).ForceNewPage = 2

End If

DoCmd.Save

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

طبعا غبر اسم التقرير باسم التقرير لديك .

ولك تحياتي

استاذي ابو حمود

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

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

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

ملاحظة اخيرة /

طلبي هو مرة طباعة جميع الموظفين المتميزين ليس في صفحة كل موظف في صفحة لكن يطبع الجميع .

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

مع ملاحظة ان التقرير مبني على استعلام .

ولك مني كل التحية والتقدير .

الأخ علي

لو ترسل لي الملف كان أفضل لأنني لم أفهم كيف طبقت كلامي .

بريدي : H_H123@Hotmail.com

ولك تحياتي

اخي ابو حمود

سوف احاول حتى اصل الى حل قبل ارسال الملف اليكم .

وعندي استفسار بيسط / كيف اجعل النموذج يملىء الشاشة عند بدء التشغيل للبرنامج.

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

مع ملاحظة وجود نموذجين في البرنامج .

ولك تحياتي

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

السؤال الثاني في الوحدة النمطية العامة ضع الدالة التالية :

Public Function ترحيب()

MsgBox "معلومات البرنامج :"

End Function

غير الرسالة لإظهار المعلومات التي ترغب في ظهورها .

ثم أنشئ ماكرو جديد واحفظه باسم Autoexec وفي إجراء اختر RunCode وفي الأسفل عند اسم الدالة ضع ترحيب () .

ولك تحياتي

اخي العزيز

فتحت النموذج في عرض التصميم وفي خانة تبويب غير ذلك عند منبثق اخترت نعم ولم يتغير شيء.

وتحملونا واجركم على الله .

الأخ علي

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

DoCmd.Maximize

ولك تحياتي

الاخوة الاعزاء

لدي برنامج والحمدلله تم واكتمل وذلك بمساعدة وجهود الاخ العزيز ابو حمود حفظه الله .

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

طبعا انا عملت النموذج الاساسي وهو واجهة البرنامج تملى الشاشة

ومن خلاله افتح النموذج الثاني الذي به مجموعة من الايقونات لمعاينة مجموعة من التقارير ومن ثم طباعتها.

سؤالي / هل من طريقة تمكنني من الاتي

1- عند فتح التقرير للمعاينة يختفي النموذج ويظهر التقرير فقط على الشاشة وبعد ذلك اطبع التقرير المعروض .

2- عند الانتهاء من الطباعة او المعاينة اضغط مثلا زر اغلاق وارجع مرة اخرى الى النموذج .

ارجو ان يكون سؤالي واضح

كما اتقدم بالشكر الجزيل لجميع الاخوة في هذا المنتدى الرئع.

الأخ على :

ضع ماكرو فى حدث عند الفتح للتقرير يقوم بغلق النموذج أثناء فتح التقرير وضع ماكرو آخر فى حدث عند الإغلاق للتقرير يقوم بفتح النموذج الذي أغلقته .

والله الموفق

أشرف خليل

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

DoCmd.Minimize

وعند غلق التقرير ضع :

DoCmd.SelectObject acForm, "اسم النموذج", False

DoCmd.Maximize

ولكما تحياتي

اتوجه بالشكر الجزيل للجميع

وخصوصا استاذنا ابو حمود وعلى العموم تم الانتهاء من البرنامج وهو الان يعمل على مايرام وفي احسن حال .

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

ولكم تحياتي .