ابو جودي قام بنشر مارس 14, 2015 مشاركة قام بنشر مارس 14, 2015 1- هل يمكن عمل علامه مائيه على التقارير 2- هل يمكن عمل نموذج لتحكم فى التقارير بمعنى اضافة شعار للتقرير اوصوره للمائيه للتقرير من خلال زر امر فى نموذج 3- هل يمكن عمل تقارير كما فى الصورة التالي رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 14, 2015 مشاركة قام بنشر مارس 14, 2015 (معدل) 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 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 3, 2015 الكاتب مشاركة قام بنشر أبريل 3, 2015 كيف يتم الكتابه على صفحات التقارير كما فى هذه الصوره وكما فى مثال الاستاذ منتصر الانسى هناhttp://www.officena.net/ib/index.php?app=core&module=attach§ion=attach&attach_id=39555 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 3, 2015 الكاتب مشاركة قام بنشر أبريل 3, 2015 هذا الكود داخل وحده نمطية يظهر كلمة ( صورة ) على صفحات التقارير المختلفة ______________________________________________ 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 من مثال الاستاذ المنتصر الانسى الذى سبق ووضعت رابط تحميله فى المشاركة السابقة ولكن سؤالى هو باى لغة تمت كتابة هذا الكود البرمجى الذى يظهر فى التقارير على هيئة كلمة امممم والسؤال الاهم هو كيف يمكن عمل مثل هذا الكود او التعديل عليه حتى نغير مثلا كلمة ( صورة ) الى اسم الشركة مثلا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 3, 2015 مشاركة قام بنشر أبريل 3, 2015 أخي الفاضل السلام عليكم الاخ صاحب البرنامج كتب الكلمات عن طريق الخطوط والدوائر طبعا العملية تستاهل اذا عندك مشروع ، وعليه تغير الكلمة المطلوبة الى خطوط ودوائر ولكن للبسطاء مثلي ، اليك طريقة عمل ما اخبرتك سابقا: 1. عملت صورة بإسمي في PowerPoint ، ثم حفظتها كصورة بصيغة jpg: 2. ثم 3. والنتيجة ولأن الصورة مضمنة ، فحجم البرنامج كبير نسبيا ، غيره الى رابط وسيصبح الحجم تمام جعفر 36.WaterMark.mdb.zip 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 3, 2015 الكاتب مشاركة قام بنشر أبريل 3, 2015 أخي الفاضل السلام عليكم الاخ صاحب البرنامج كتب الكلمات عن طريق الخطوط والدوائر طبعا العملية تستاهل اذا عندك مشروع ، وعليه تغير الكلمة المطلوبة الى خطوط ودوائر ولكن للبسطاء مثلي ، اليك طريقة عمل ما اخبرتك سابقا: 1. عملت صورة بإسمي في PowerPoint ، ثم حفظتها كصورة بصيغة jpg: 36.jj.jpg 2. ثم 36.Clipboard02.jpg 3. والنتيجة 36.Clipboard01.jpg ولأن الصورة مضمنة ، فحجم البرنامج كبير نسبيا ، غيره الى رابط وسيصبح الحجم تمام جعفر تسلم ايديك يا استاذنا الغالى انا بالفعل عملتها بالطريقة دى لكن كنت ابحث عن مصدر الكتابه بهذا الكود وباى لغه كتب هذا الكود انا حاولت البحث كثيرا ولم اوفق هو من باب العلم فقط جزاكم الله الجنه ورزقكم كل الخير رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر يوليو 13, 2022 مشاركة قام بنشر يوليو 13, 2022 في 14/3/2015 at 14:00, jjafferr said: 1. نعم ، ضع صورة خلف التقرير ، واجعل خلفية الحقةل شفافة ، 2. نعم ، اجعل الشعار في التقرير باسم img_Logo مثلا ، في النموذج frm_1 ، اجعل حقل Show_Logo علامة نعم/لا (ويمكن عمل اي نوعية اخرى) ، وعندما تريد الشعار يظهر على التقرير ، اختار نعم ، في التقرير ، في قسم التفصيل ، في حدث التنسيق او حدث قبل الطباعة اكتب هذا الكود: ممكن مثال لقاعدة بيانات صغيرة توضح ذلك على اكسس 2003 مرفق قاعدة بسيطة للتوضيح وجزاكم الله خيرا db1.mdb رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر يوليو 16, 2022 مشاركة قام بنشر يوليو 16, 2022 اين المساعدة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أغسطس 13, 2022 مشاركة قام بنشر أغسطس 13, 2022 في 13/7/2022 at 18:38, أبو أحمد said: ممكن مثال لقاعدة بيانات صغيرة توضح ذلك على اكسس 2003 هناك مرفق في آخر مشاركة لي اعلاه: جعفر رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر سبتمبر 16, 2022 مشاركة قام بنشر سبتمبر 16, 2022 أستاذي الكريم / الاستاذ جعفر السلام عليكم ورحمة الله أسف على طول المدة ولكن كان عندي ظروف خاصة لم |أتمكن من قرات رسالتكم الكريم حاولت ولكن فشلت في وضع كلمة كخلفية في التقرير قبل طباعته أنا لا اريده في صفحة التقرير كاملة ولكن في الجزء الخاص (تفاصيل ) بالتقرير فهل يمكنكم مساعدتي بوضع كلمة أو كلمتين كخلفية في القاعدة المرسلة مع هذه الرسالة .. علما بأن القاعدة على أكسس 2003 ولكم جزيل الشكر db1.mdb رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر سبتمبر 18, 2022 مشاركة قام بنشر سبتمبر 18, 2022 هل يمكن المساعدة .. جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أبو أحمد قام بنشر سبتمبر 20, 2022 مشاركة قام بنشر سبتمبر 20, 2022 السلام عليكم ورحمة الله / الاساتذة أعضاء المنتدى هل يمكن المساعدة في هذا الطلب ؟ وأشكركم مسبقا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.