اخواني الكرام ...
اسأل عن كيفية تغيير لون السجل في نموذج
بحيث اذا تمت طباعة الصفحة ..
يتيم تغيير لون الصفحة الى اي لون آخر ...
وكذلك يتم الغاء تفعيل رز الطباعة بحيثلا يمكنني طباعة هذه الصفحة مرة أخري
ارجو ان الفكرة واضحة
اخواني الكرام ...
اسأل عن كيفية تغيير لون السجل في نموذج
بحيث اذا تمت طباعة الصفحة ..
يتيم تغيير لون الصفحة الى اي لون آخر ...
وكذلك يتم الغاء تفعيل رز الطباعة بحيثلا يمكنني طباعة هذه الصفحة مرة أخري
ارجو ان الفكرة واضحة
اخي الكريم
انظر الى الرابط التالي
/index.php?showtopic=247541
ففيه جواب شافي ووافي لما تريده
وهذه المشاركة كانت لي تحت عنوان " كيف يمكن تغيير لون سجل محدد " ، و اجابة من استاذنا Abo_Yossof جزاه الله عنا كل خير، وكذلك الاخ malik2010 حيث ان الحل يعتمد على التنسيق الشرطي.
يمكنك الاطلاع على المثال المرفق بالمشاركة المذكورة اعلاه، وان شاء الله سوف تستفيد منها
والسلام عليكم
kafi كتب:اخي الكريم
انظر الى الرابط التالي
/index.php?showtopic=247541ففيه جواب شافي ووافي لما تريده
وهذه المشاركة كانت لي تحت عنوان " كيف يمكن تغيير لون سجل محدد " ، و اجابة من استاذنا Abo_Yossof جزاه الله عنا كل خير، وكذلك الاخ malik2010 حيث ان الحل يعتمد على التنسيق الشرطي.
يمكنك الاطلاع على المثال المرفق بالمشاركة المذكورة اعلاه، وان شاء الله سوف تستفيد منها
والسلام عليكم
- في نموذج الصرف
2- المطلوب عند الضغظ غبلا رز الامر طباعة يتم طباعة الصفحة الحالية
3- يتم تغيير لون الخلفية من اللون الاخضر الى اللون الاحمر
4- يتم الغاء تفعيل رز الامر طباعة بحيث لا يتم طباعة السجل مرة اخري لان السجل قد تمت طباعته
اضف هذا الكود بعد كود الطباعة
Me.Detail.BackColor = vbRed
Me.ID.SetFocus
Me.Command8.Enabled = Falseليصبح الكود بهذا الشكل
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
DoCmd.PrintOut
Me.Detail.BackColor = vbRed
Me.ID.SetFocus
Me.Command8.Enabled = False
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Subلاحظ أخى أن هذا سيحدث فى السجل الحالى فقط
و اذا انتقلت الى سجل اخر و رجعت ( فستجد ان كل شىء الى طبيعته الاولى )
لذلك للحفاظ على ذلك لابد من وجود حقل بالجدول لحفظ حالة الطباعة به
تم تعديل هذه المشاركة بواسطة Abo_Yossof في 5 سبتمبر 2011 في 00:41
Abo_Yossof
اخي الكريم .... أبو يوسف .........
لا ادري ........... كيف اشكرك ....
لقد احرجتني بعطاءك ..
وكفيت ووفيت ..
.
وجزاك الله كل خير ....
فعلا ... لا أدري كيف اشكرك
تم تعديل هذه المشاركة بواسطة محمد العدامة في 5 سبتمبر 2011 في 22:19