اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

ابو جودي

بواسطه ابو جودي
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

ابو جودي

ابو جودي

قام بنشر
قام بنشر

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

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

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

1426332114021.png

رابط هذا التعليق
شارك
jjafferr

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

جعفر

تم تعديل بواسطه jjafferr
  • Like 1
رابط هذا التعليق
شارك
  • 3 weeks later...
ابو جودي

ابو جودي

قام بنشر
  • الكاتب
قام بنشر

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

هنا
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

jjafferr

قام بنشر
قام بنشر

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

 

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

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

 

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

 

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

post-142414-0-58532000-1428082346_thumb.

 

 

2. ثم

post-142414-0-16704700-1428082335_thumb.

 

 

3. والنتيجة

post-142414-0-17185700-1428082324_thumb.

 

 

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

 

 

جعفر

 

 

36.WaterMark.mdb.zip

  • Like 1
رابط هذا التعليق
شارك
ابو جودي

ابو جودي

قام بنشر
  • الكاتب
قام بنشر

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

 

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

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

 

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

 

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

attachicon.gif36.jj.jpg

 

 

2. ثم

attachicon.gif36.Clipboard02.jpg

 

 

3. والنتيجة

attachicon.gif36.Clipboard01.jpg

 

 

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

 

 

جعفر

 

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

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

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

رابط هذا التعليق
شارك
  • 7 years later...
أبو أحمد

أبو أحمد

قام بنشر
قام بنشر
في 14‏/3‏/2015 at 14:00, jjafferr said:

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

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

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

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

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

db1.mdb

رابط هذا التعليق
شارك
  • 4 weeks later...
  • 1 month later...
أبو أحمد

أبو أحمد

قام بنشر
قام بنشر

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

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

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

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

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

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

db1.mdb

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept