[ تمت الإجابة ]طباعة تقرير

تفضل اخي الكريم

rport.rar

شكرا لك اخي ايهاب على اهتمامك

ولكن انا اريد ان اطبع من الفورم مباشرة خليني وضحلك الفكرة اكثر

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

واريد لما بطبع يكون عن طريق الاسم وليس بالــid لان id صعب حفظه او تذكره من قبل الشخص.

مع الشكر والتقدير

تفضل....

rport.rar

اضافة الى ما تفضل به مشرفنا الغالي ايهاب مشكوراً

اليك اخي طريقة عرض السجل الحالي بالكود

بالتوفيق

rport.rar

عندي فكرة ثانية اخ ايهاب

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

مع الشكر

شكرا لك اخ يوسف احمد على الرد

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

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

مع حبي واحترامي لك

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

تفضل ارجو ان يكون هو المطلوب

ولكن نقطة تاريخ اليوم غير واضحة بالنسبة لي

rport.rar

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

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

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

مع الشكر والتقدير

اخي الكريم

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

تم التعديل فيما يخص التاريخ

منتظر ردك

rport.rar

شكرا لك اخي العزيز هذا هو المطلوب

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

مع الشكر والتقدير

الاخوة

الزملاء مرفق مثال

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

مرفق مثال

Print_current_emp.rar

شكرا جزيلا لك يا مشرفنا الغالي

انا اريد لما ادخل الاسم يطبع المعلومات الخاصة بالشخص وليس الـــid

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

مع الشكر والتقدير

الاخ الغالي

eng_mosul

اقتباس

انا اريد لما ادخل الاسم يطبع المعلومات الخاصة بالشخص وليس الـــid

فكرة ادخال الاسم بدل من ID خاطئة

لاننا لو فرضنا ان لدينا اسم موظف بهذا الشكل

أحمد محمد محمود علي احمد

وموظف آخر بنفس الاسم

أحمد محمد محمود علي احمد

بالله عليك ماذا سيجلب لك البرنامج الموظف الاول ام الموظف الثاني بارك الله بك

هذا بالاضافة الي اذا كان وقت الادخال اسم الموظف يبدأ بحرف الالف وفوقه همزة

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

اما بخصوص طريقة عمل المثال فهي تعتمد في الاساس علي دالة DLookup

ضع ثلاثة مربعات نصوص علي النموذج

حقل لكود المظف

وحقل للاسم

وحقل للوظيفة

وفي حقل كود الموظف ضع هذا الكود

Private Sub T1_Exit(Cancel As Integer)
[T2] = DLookup("[Emp_name]", "Emp", "ID=[T1]")
[T3] = DLookup("[remarks]", "Emp", "ID=[T1]")
Me.btnprint.Enabled = True

If IsNull(DLookup("[ID]", "Emp", "[ID]='" & [T1] & "'")) Then
	   MsgBox "كود خطأ لا توجد بيانات لطباعتها", vbCritical
	   Me.btnprint.Enabled = False
	   Cancel = -1
	   Exit Sub
	   End If
End Sub

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

Me.btnprint.Enabled = False

ولعرض التقرير الحالي للموظف

ضع هذا الكود تحت زر طباعة

Private Sub btnprint_Click()
DoCmd.OpenReport "Emp", acViewPreview, , "[ID]='" & Me.T1 & "'"
End Sub

جزاك الله خير الجزاء واشكرك جدا على النصائح

سوف اقوم بتطبيق المثال واذا فيه اي شيء ما فهمته سوف اعود واسألك اذا امكن

مع حبي وتقديري لكل من ساعدني

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة