الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تغيير لون الصفحة

بدأه محمد العدامة في 2 سبتمبر 2011 · 7 رد · 490 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني الكرام ...

اسأل عن كيفية تغيير لون السجل في نموذج

بحيث اذا تمت طباعة الصفحة ..

يتيم تغيير لون الصفحة الى اي لون آخر ...

وكذلك يتم الغاء تفعيل رز الطباعة بحيثلا يمكنني طباعة هذه الصفحة مرة أخري

ارجو ان الفكرة واضحة

#2

اخي الكريم

انظر الى الرابط التالي

/index.php?showtopic=247541

ففيه جواب شافي ووافي لما تريده

وهذه المشاركة كانت لي تحت عنوان " كيف يمكن تغيير لون سجل محدد " ، و اجابة من استاذنا Abo_Yossof جزاه الله عنا كل خير، وكذلك الاخ malik2010 حيث ان الحل يعتمد على التنسيق الشرطي.

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

والسلام عليكم

#3
kafi كتب:

اخي الكريم

انظر الى الرابط التالي

/index.php?showtopic=247541

ففيه جواب شافي ووافي لما تريده

وهذه المشاركة كانت لي تحت عنوان " كيف يمكن تغيير لون سجل محدد " ، و اجابة من استاذنا Abo_Yossof جزاه الله عنا كل خير، وكذلك الاخ malik2010 حيث ان الحل يعتمد على التنسيق الشرطي.

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

والسلام عليكم

#4

- في نموذج الصرف

2- المطلوب عند الضغظ غبلا رز الامر طباعة يتم طباعة الصفحة الحالية

3- يتم تغيير لون الخلفية من اللون الاخضر الى اللون الاحمر

4- يتم الغاء تفعيل رز الامر طباعة بحيث لا يتم طباعة السجل مرة اخري لان السجل قد تمت طباعته

#5

اليك هذا المثال

Sample.rar

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#6

اخي الكريم ...

مرشح 1

فعلا ان المرشح الاول ..وتسحتق هذا اللقب وشكرا لك من القلب

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

لكن بدون زر الخيارات الموجود في الجدول

الصرف.rar

#7

اضف هذا الكود بعد كود الطباعة

    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

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#8

Abo_Yossof

اخي الكريم .... أبو يوسف .........

لا ادري ........... كيف اشكرك ....

لقد احرجتني بعطاءك ..

وكفيت ووفيت ..

.

وجزاك الله كل خير ....

فعلا ... لا أدري كيف اشكرك

تم تعديل هذه المشاركة بواسطة محمد العدامة في 5 سبتمبر 2011 في 22:19

مواضيع مشابهة