اسئله عن التقارير

[ابو جودي]

1- هل يمكن عمل علامه مائيه على التقارير 

2- هل يمكن عمل نموذج لتحكم فى التقارير بمعنى اضافة شعار للتقرير اوصوره للمائيه للتقرير من خلال زر امر فى نموذج 

3- هل يمكن عمل تقارير كما فى الصورة التالي

[jjafferr]

1- هل يمكن عمل علامه مائيه على التقارير 

2- هل يمكن عمل نموذج لتحكم فى التقارير بمعنى اضافة شعار للتقرير اوصوره للمائيه للتقرير من خلال زر امر فى نموذج 

3- هل يمكن عمل تقارير كما فى الصورة التالي

 

 

1. نعم ، ضع صورة خلف التقرير ، واجعل خلفية الحقةل شفافة ،

2. نعم ، اجعل الشعار في التقرير باسم img_Logo مثلا ،

في النموذج frm_1 ، اجعل حقل Show_Logo علامة نعم/لا (ويمكن عمل اي نوعية اخرى) ، وعندما تريد الشعار يظهر على التقرير ، اختار نعم ،

في التقرير ، في قسم التفصيل ، في حدث التنسيق او حدث قبل الطباعة اكتب هذا الكود:

if Forms!frm_1!Show_Logo=-1 then
'معناها نعم ، اظهر الشعار
me.img_Logo.visible=true
else
me.img_Logo.visible=false
endif

جعفر

تم تعديل مارس 14, 2015 بواسطه jjafferr

[ابو جودي]

كيف يتم الكتابه على صفحات التقارير كما فى هذه الصوره
وكما فى مثال الاستاذ منتصر الانسى

هنا
http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=39555

[ابو جودي]

هذا الكود  داخل وحده نمطية يظهر كلمة ( صورة ) على صفحات التقارير المختلفة

______________________________________________

Option Compare Database

 

Public Sub RptCopy(Rpt As Report)

On Error Resume Next

Dim RptWidth As Double

Dim RptHight As Double

Rpt.ScaleMode = 7

Rpt.DrawMode = 3

Rpt.DrawStyle = 0

Rpt.ForeColor = RGB(192, 192, 192)

Rpt.DrawWidth = 10

RptWidth = (Rpt.ScaleWidth - 1) / 2

RptHight = Rpt.ScaleHeight / 2

Rpt.Line (RptWidth + 1, RptHight - 7)-(RptWidth + 2, RptHight - 6)

Rpt.Line (RptWidth + 2, RptHight - 6)-(RptWidth + 5, RptHight - 9)

Rpt.Line (RptWidth + 7, RptHight - 9)-(RptWidth + 10, RptHight - 6)

Rpt.Line (RptWidth + 10, RptHight - 6)-(RptWidth + 4, RptHight + 0)

Rpt.Line (RptWidth + 3, RptHight + 1)-(RptWidth + 1, RptHight + 3)

Rpt.Line (RptWidth + 1, RptHight + 3)-(RptWidth - 1, RptHight + 1)

Rpt.Line (RptWidth - 1, RptHight - 3)-(RptWidth + 0, RptHight - 4)

Rpt.Line (RptWidth + 0, RptHight - 4)-(RptWidth + 2, RptHight - 2)

Rpt.Line (RptWidth + 2, RptHight - 2)-(RptWidth + 3, RptHight - 3)

Rpt.Line (RptWidth + 3, RptHight - 3)-(RptWidth + 1, RptHight - 5)

Rpt.Line (RptWidth + 1, RptHight - 5)-(RptWidth + 1, RptHight - 7)

Rpt.Line (RptWidth - 0, RptHight - 2)-(RptWidth + 1, RptHight - 1)

Rpt.Line (RptWidth + 1, RptHight - 1)-(RptWidth + 0, RptHight - 0)

 

Rpt.Line (RptWidth + 6.5, RptHight - 7.5)-(RptWidth + 7, RptHight - 7)

Rpt.Line (RptWidth + 7, RptHight - 7)-(RptWidth + 4, RptHight - 4)

Rpt.Line (RptWidth + 4, RptHight - 4)-(RptWidth + 3, RptHight - 5)

Rpt.Line (RptWidth + 3, RptHight - 5)-(RptWidth + 5.5, RptHight - 7.5)

Rpt.Line (RptWidth + 3, RptHight - 5)-(RptWidth + 5.5, RptHight - 7.5)

 

Rpt.Line (RptWidth - 3, RptHight + 1)-(RptWidth + 0, RptHight + 4)

Rpt.Line (RptWidth - 3, RptHight + 1)-(RptWidth - 3, RptHight + 3)

Rpt.Line (RptWidth - 3, RptHight + 3)-(RptWidth - 1, RptHight + 5)

Rpt.Line (RptWidth - 7, RptHight + 3)-(RptWidth - 7.5, RptHight + 2.5)

Rpt.Line (RptWidth - 7.5, RptHight + 2.5)-(RptWidth - 7.5, RptHight + 0.5)

Rpt.Line (RptWidth - 7.5, RptHight + 0.5)-(RptWidth - 2, RptHight + 6)

Rpt.Line (RptWidth - 2, RptHight + 6)-(RptWidth - 5, RptHight + 9)

Rpt.Line (RptWidth - 5, RptHight + 9)-(RptWidth - 7, RptHight + 7)

Rpt.Line (RptWidth - 6, RptHight + 4)-(RptWidth - 5, RptHight + 5)

Rpt.Line (RptWidth - 5, RptHight + 5)-(RptWidth - 6, RptHight + 6)

Rpt.Circle ((RptWidth + 6), (RptHight - 8)), 1.4, , 0.8, 2.35

Rpt.Circle ((RptWidth + 6), (RptHight - 7)), 0.7, , 0.8, 2.35

Rpt.Circle ((RptWidth + 1), (RptHight + 3)), 2.8, , 5.5, 0.8

Rpt.Circle ((RptWidth + 2), (RptHight + 2)), 2.8, , 5.5, 0.8

Rpt.Line (RptWidth + 3, RptHight + 5)-(RptWidth + 4, RptHight + 4)

Rpt.Circle ((RptWidth + 1), (RptHight - 1)), 1.4, , 2.35, 3.9

Rpt.Circle ((RptWidth + 1), (RptHight - 1)), 2.8, , 2.35, 3.9

Rpt.Circle ((RptWidth - 3), (RptHight + 7)), 2.8, , 5.5, 0.8

Rpt.Circle ((RptWidth - 2), (RptHight + 6)), 2.8, , 5.5, 0.8

Rpt.Line (RptWidth + 0, RptHight + 8)-(RptWidth - 1, RptHight + 9)

Rpt.Circle ((RptWidth - 5), (RptHight + 5)), 2.8, , 2.35, 3.9

Rpt.Circle ((RptWidth - 5), (RptHight + 5)), 1.4, , 2.35, 3.9

Rpt.Circle ((RptWidth - 7.7), (RptHight + 3.1)), 0.5

Rpt.Circle ((RptWidth - 8.4), (RptHight + 3.9)), 0.5

End Sub

-------------------------------------------------------------------------------------------------------------------------------

هذا الكود  داخل وحده نمطية يظهر كلمة ( قيد مقفل  ) على صفحات التقارير المختلفة

______________________________________________

 

Public Sub RptLockedOpr(Rpt As Report)

On Error Resume Next

Dim RptWidth As Double

Dim RptHight As Double

Rpt.ScaleMode = 7

Rpt.DrawMode = 3

Rpt.DrawStyle = 0

Rpt.ForeColor = RGB(0, 0, 255)

Rpt.DrawWidth = 10

RptWidth = (Rpt.ScaleWidth - 2) / 2

RptHight = Rpt.ScaleHeight / 2

Rpt.Line (RptWidth + 5.5, RptHight - 9)-(RptWidth + 6, RptHight - 9.5)

Rpt.Line (RptWidth + 6, RptHight - 9.5)-(RptWidth + 9.5, RptHight - 6)

Rpt.Line (RptWidth + 9.5, RptHight - 6)-(RptWidth + 3.5, RptHight - 0)

Rpt.Line (RptWidth + 3.5, RptHight - 0)-(RptWidth + 2, RptHight - 1.5)

Rpt.Line (RptWidth + 2, RptHight - 1.5)-(RptWidth + 3.5, RptHight - 3)

Rpt.Line (RptWidth + 3.5, RptHight - 3)-(RptWidth + 3.25, RptHight - 3.25)

Rpt.Line (RptWidth + 2.75, RptHight - 3.25)-(RptWidth + 1.5, RptHight - 2)

Rpt.Line (RptWidth + 1.5, RptHight - 2)-(RptWidth + 1.5, RptHight - 3)

Rpt.Line (RptWidth + 1.5, RptHight - 3)-(RptWidth + 2.5, RptHight - 4)

Rpt.Line (RptWidth + 3.5, RptHight - 4)-(RptWidth + 4, RptHight - 3.5)

Rpt.Line (RptWidth + 4, RptHight - 3.5)-(RptWidth + 5, RptHight - 4.5)

Rpt.Line (RptWidth + 5, RptHight - 4.5)-(RptWidth + 4.5, RptHight - 5)

Rpt.Line (RptWidth + 4.5, RptHight - 5)-(RptWidth + 4.5, RptHight - 6)

Rpt.Line (RptWidth + 4.5, RptHight - 6)-(RptWidth + 5.5, RptHight - 5)

Rpt.Line (RptWidth + 5.5, RptHight - 5)-(RptWidth + 7.5, RptHight - 7)

Rpt.Line (RptWidth + 7.5, RptHight - 7)-(RptWidth + 7, RptHight - 7.5)

Rpt.Line (RptWidth + 7, RptHight - 7.5)-(RptWidth + 6, RptHight - 6.5)

Rpt.Line (RptWidth + 6, RptHight - 6.5)-(RptWidth + 5.5, RptHight - 7)

Rpt.Line (RptWidth + 6, RptHight - 8.5)-(RptWidth + 6.5, RptHight - 8)

Rpt.Line (RptWidth + 6.5, RptHight - 8)-(RptWidth + 6, RptHight - 7.5)

 

Rpt.Line (RptWidth - 0, RptHight - 1)-(RptWidth + 0.5, RptHight - 1.5)

Rpt.Line (RptWidth + 0.5, RptHight - 1.5)-(RptWidth + 3, RptHight + 1)

Rpt.Line (RptWidth + 3, RptHight + 1)-(RptWidth - 3.5, RptHight + 7.5)

Rpt.Line (RptWidth - 4, RptHight + 8)-(RptWidth - 8, RptHight + 4)

Rpt.Line (RptWidth - 8, RptHight + 4)-(RptWidth - 8, RptHight + 3)

Rpt.Line (RptWidth - 8, RptHight + 3)-(RptWidth - 5, RptHight + 6)

Rpt.Line (RptWidth - 5, RptHight + 6)-(RptWidth - 3.5, RptHight + 4.5)

Rpt.Line (RptWidth - 3.5, RptHight + 4.5)-(RptWidth - 4, RptHight + 4)

Rpt.Line (RptWidth - 4, RptHight + 4)-(RptWidth - 5, RptHight + 5)

Rpt.Line (RptWidth - 5, RptHight + 5)-(RptWidth - 5.5, RptHight + 4.5)

Rpt.Line (RptWidth + 0.5, RptHight - 0.5)-(RptWidth + 1, RptHight + 0)

Rpt.Line (RptWidth + 1, RptHight + 0)-(RptWidth + 0.5, RptHight + 0.5)

 

Rpt.Line (RptWidth - 5.5, RptHight + 2.5)-(RptWidth - 5, RptHight + 2)

Rpt.Line (RptWidth - 5, RptHight + 2)-(RptWidth - 3, RptHight + 4)

Rpt.Line (RptWidth - 3, RptHight + 4)-(RptWidth - 1.5, RptHight + 2.5)

Rpt.Line (RptWidth - 1.5, RptHight + 2.5)-(RptWidth - 2, RptHight + 2)

Rpt.Line (RptWidth - 2, RptHight + 2)-(RptWidth - 3, RptHight + 3)

Rpt.Line (RptWidth - 3, RptHight + 3)-(RptWidth - 3.5, RptHight + 2.5)

Rpt.Line (RptWidth - 3.5, RptHight + 0.5)-(RptWidth - 3, RptHight + 0)

Rpt.Line (RptWidth - 3, RptHight + 0)-(RptWidth - 1, RptHight + 2)

Rpt.Line (RptWidth - 1, RptHight + 2)-(RptWidth - 0, RptHight + 1)

Rpt.Line (RptWidth - 3, RptHight + 1)-(RptWidth - 2.5, RptHight + 1.5)

Rpt.Line (RptWidth - 2.5, RptHight + 1.5)-(RptWidth - 3, RptHight + 2)

Rpt.Line (RptWidth - 5, RptHight + 3)-(RptWidth - 4.5, RptHight + 3.5)

Rpt.Line (RptWidth - 4.5, RptHight + 3.5)-(RptWidth - 5, RptHight + 4)

 

Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 0.7, , 2.35, 3.9

Rpt.Circle ((RptWidth + 6.5), (RptHight - 8)), 1.4, , 2.35, 3.9

Rpt.Circle ((RptWidth + 3), (RptHight - 3)), 0.35, , 0.8, 2.35

Rpt.Circle ((RptWidth + 3), (RptHight - 3.5)), 0.7, , 0.8, 2.35

Rpt.Circle ((RptWidth + 1), (RptHight + 0)), 0.7, , 2.35, 3.9

Rpt.Circle ((RptWidth + 1), (RptHight + 0)), 1.4, , 2.35, 3.9

Rpt.Circle ((RptWidth - 2.5), (RptHight + 1.5)), 0.7, , 2.35, 3.9

Rpt.Circle ((RptWidth - 2.5), (RptHight + 1.5)), 1.4, , 2.35, 3.9

Rpt.Circle ((RptWidth - 4.5), (RptHight + 3.5)), 0.7, , 2.35, 3.9

Rpt.Circle ((RptWidth - 4.5), (RptHight + 3.5)), 1.4, , 2.35, 3.9

Rpt.Circle ((RptWidth - 5), (RptHight + 8)), 1, , 3.5, 6.28318530718

Rpt.Circle ((RptWidth - 4.5), (RptHight + 8.5)), 1.4, , 3, 0.8

Rpt.Circle ((RptWidth + 5.5), (RptHight - 9.6)), 0.35

Rpt.Circle ((RptWidth + 5), (RptHight - 9.1)), 0.35

Rpt.Circle ((RptWidth - 3.5), (RptHight - 0.1)), 0.35

Rpt.Circle ((RptWidth - 4), (RptHight + 0.4)), 0.35

Rpt.Circle ((RptWidth - 5.7), (RptHight + 2.1)), 0.35

Rpt.Circle ((RptWidth + 7), (RptHight - 2.5)), 0.35

Rpt.Circle ((RptWidth + 6.5), (RptHight - 2)), 0.35

 

End Sub

 

طبعا هذا من واقع الكود من وحدة نمطية بإسم - mdlReportsBackground  من مثال الاستاذ المنتصر الانسى الذى سبق ووضعت رابط تحميله فى المشاركة السابقة

ولكن سؤالى هو باى لغة تمت كتابة هذا الكود البرمجى الذى يظهر فى التقارير على هيئة كلمة
امممم

والسؤال الاهم هو كيف يمكن عمل مثل هذا الكود او التعديل عليه حتى نغير مثلا كلمة ( صورة )  الى اسم الشركة مثلا

[jjafferr]

أخي الفاضل السلام عليكم 

 

الاخ صاحب البرنامج كتب الكلمات عن طريق الخطوط والدوائر 

طبعا العملية تستاهل اذا عندك مشروع ، وعليه تغير الكلمة المطلوبة الى خطوط ودوائر 

 

ولكن للبسطاء مثلي ، اليك طريقة عمل ما اخبرتك سابقا:

 

1. عملت صورة بإسمي في PowerPoint ، ثم حفظتها كصورة بصيغة jpg:

 

 

2. ثم

 

 

3. والنتيجة

 

 

ولأن الصورة مضمنة ، فحجم البرنامج كبير نسبيا ، غيره الى رابط وسيصبح الحجم تمام 

 

 

جعفر

 

 

36.WaterMark.mdb.zip

[ابو جودي]

أخي الفاضل السلام عليكم 

 

الاخ صاحب البرنامج كتب الكلمات عن طريق الخطوط والدوائر 

طبعا العملية تستاهل اذا عندك مشروع ، وعليه تغير الكلمة المطلوبة الى خطوط ودوائر 

 

ولكن للبسطاء مثلي ، اليك طريقة عمل ما اخبرتك سابقا:

 

1. عملت صورة بإسمي في PowerPoint ، ثم حفظتها كصورة بصيغة jpg:

36.jj.jpg

 

 

2. ثم

36.Clipboard02.jpg

 

 

3. والنتيجة

36.Clipboard01.jpg

 

 

ولأن الصورة مضمنة ، فحجم البرنامج كبير نسبيا ، غيره الى رابط وسيصبح الحجم تمام 

 

 

جعفر

 

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

لكن كنت ابحث عن مصدر الكتابه بهذا الكود وباى لغه كتب هذا الكود انا حاولت البحث كثيرا ولم اوفق هو من باب العلم فقط 

جزاكم الله الجنه ورزقكم كل الخير       

[أبو أحمد]

في 14‏/3‏/2015 at 14:00, jjafferr said:

1. نعم ، ضع صورة خلف التقرير ، واجعل خلفية الحقةل شفافة ،

2. نعم ، اجعل الشعار في التقرير باسم img_Logo مثلا ،

في النموذج frm_1 ، اجعل حقل Show_Logo علامة نعم/لا (ويمكن عمل اي نوعية اخرى) ، وعندما تريد الشعار يظهر على التقرير ، اختار نعم ،

في التقرير ، في قسم التفصيل ، في حدث التنسيق او حدث قبل الطباعة اكتب هذا الكود:

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

db1.mdb

[أبو أحمد]

اين المساعدة

[jjafferr]

في 13‏/7‏/2022 at 18:38, أبو أحمد said:

ممكن مثال لقاعدة بيانات صغيرة توضح ذلك على اكسس 2003

هناك مرفق في آخر مشاركة لي اعلاه:

 

جعفر

[أبو أحمد]

أستاذي الكريم / الاستاذ  جعفر

السلام عليكم ورحمة الله 

أسف على طول المدة ولكن كان عندي ظروف خاصة لم |أتمكن من قرات رسالتكم الكريم 

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

أنا لا اريده في صفحة التقرير كاملة ولكن في الجزء الخاص (تفاصيل ) بالتقرير 

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

db1.mdb

[أبو أحمد]

  هل يمكن المساعدة .. جزاكم الله خيرا

 

[أبو أحمد]

السلام عليكم ورحمة الله /

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