ابو جودي

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

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

للعلم انا شغال على المرفق ده من امبارح ياترى ده شئ مرضى ان انا موقف شغلى فى البرنامج بتاعى ومحاولة مساعدتك

اولا يفضل ان يكون كل سؤال على حده فى مشاركة خاصة به هذا من قوانين المنتدى ثانيا الطلب الاول انا جهزته الطلب الثانى انا عاجر عن تنفيذه او بمعنى اوضح انا عملته بس لو تم ادخال القيم بالطريقة اللى انا عملتها مره لايمكن تعديلها مره اخرى الطلب الثالث تم تنفيذه ولكن لى سؤال ايضا انا قمت بتنفيذ الطلب الاخير من خلال زر امر يجمع القيم فى التاليف الفرعية ويطابقه مع التكاليف الرئيسية وان كان الناتج متطابق يبقى اشطه قوى تمام ولو مش متطابق يطلع لى رساله يقول لى اتاكد من مطابقة التكاليف ممكن لو فى تغيير تانى احاول لو مش ده المطلوب وارجوا من اساتذتى الكرام الاتى زر الامر الذى تم توصيفه بـــــــــ مطابقة التكلفة الإجمالية ومجموع التكاليف الفرعية انا وضعت حدث عليه بعمل الاتى جمع كل التكاليف ده تمام مطابقة التكلفه الاجمالية مع ناتيج التكاليف الفرعية واظهار رسالة فى حالة وجود الاختلاف المشكلة انا كنت عاوز لما ندوس على الغاء الامر يحافظ على كل البيانات مكتوبه كما هى فى كل الحقول ولكن فقط يمسح مربع النص الخاص بجمع التكاليف الفرعية اممممممممممممم فى شئ تانى انا عدلت قاعدة البيانات تعديل كلى برجاء التأكد من الاتى تسمية الجداول باللغة الانجليزية تسمية الحقول باللغة الانجليزية وان كانت ولابد ان تكون اكثر من كلمه يفضل عدم ترك مسافات بخصوص الطلب الثانى برجاء التدخل من قبل اساتذتنا الكرام لعجزى عن تنفيذه بالطريقة المطلوبه وقلة حيلتى up.rar

الاستاذ القدير والمعلم الحليل والفنان جعفر الفكرة اعجبتنى جدا جدا جدا جدا وفعلا فعلا اكثر من رائعة

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

جزاكم الله خيرا

بعد اذن معلمنا الجليل واستاذنا القدير الاستاذ ابو خليل قمت بالتعديل على المرفق واصبح يعمل بشكل جيد جدا الشـــــرح حتى تعم الفائده من خصائص مربع التحرير والسرد من التبويب بيانات يكون مصدر الصف هذه القيم "مهتم دائما";5;"مهتم في معظم الاحيان";4;"مهتم احيانا";3;"مهتم قليلا";2;"غير مهتم";1 بهذه الطريقة وطبعا نوع بيانات مصدر مربع التحرير والســـرد تكون Value List حبث ان قائمة القيم هى "مهتم دائما";5;"مهتم في معظم الاحيان";4;"مهتم احيانا";3;"مهتم قليلا";2;"غير مهتم";1 "مهتم دائما";5; "مهتم في معظم الاحيان";4; "مهتم احيانا";3; "مهتم قليلا";2; "غير مهتم";1 ومن خصائص مربع التحرير والسرد ان يكون عمودين وهذه الصور توضح التعديل العمود الاول هو البند الخاص بالقائمة مثل مهتم دائما والعمود الثانى هو قيمته فى القائمه مثل 5 يرجع الفضل اولا لله عزوجل ثم ثانيا لاستاذنا ومعلمنا القدير الاستاذ ابو خليل للمرة الاولى ارى مثل هذا المثال وهذا الكود المستخدم فى الحدث على مربع التحرير والسرد فقط لاجيب طلب اخى السائل الاستاذ جمال السناني قمت بتحليل المرفق ومحاولة التحليل والفهم ويسر لى الله عزوجل فهم الية العمل وقمت بالشرح نيابة عن معلمى طبعا لا اضاهيه علما وصبرا وحلما ومكانة ولم اقصد التجرا على معلمى ولكن احاول التعلم والمساعده ردا لجميله على فحتما وقته ضيق لما يحمله على كتفه من اعبائنا جميعا فى هذا الصرح الشامخ طبعا الشرح على حسب فهمى الضئيل وكما هعدنا استاذنا الجليل ان اخطئت يصحح لى بعلمه وان اثقلت عليه يتحملنى بحلمه جزاكم الله عنا كل الخير ان شاء الله test.rar

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

جزاكم الله خيرا اخى الحبيب s s m ولكن هل يمكن عمل إستعلام يتم إنشاءة تلقائيا عند فتح النموذج وبعد ان يتم إجراء اللازم من قبل المستخدم سواء إدخال بيانات أو تعديل فيها وعند إغلاق النموذج يتم حذف الاستعلام تلقائيا كذلك

المثال المرفق يحتوى على عدد 2 نموذج كل منهما يخص تغيير لون انموذج وذلك بعدة الوان مسبقة التحضير من المبرمج بهذه الطريقة المصم يهتم بالناحية الجمالية ويرضى جميع اذواق المستخدمين بتعدد اختيارات الالوان فقط يغير المستخدم لون واجهة البرنامج للون المفضل له كما يحلوا له النموذج الاول A توجد مربعات بالالوان المتاحه اسفل يمين النموذج فقط اختر اللون الذى تريده فيتغير لون الفورم النموذج الثانى B اسفل اليمين تجد كلمة تغير لون النموذج فتختفى الكلمة ويظهر بدلا منها مربع تحرير وسرد يحتوى على الاوان المتاحه للتبديل فيما بينها لتغيير لون النموذج فكرة لذيذه جدا اتمنى تعجبكم تغيير لون النموذج كما يريد المستخدم.rar

عند إنشاء نموذج لإدخال البيانات أن هذا النموذج يكون مبنى على بيانات موجودة بجدول ويكون مصدر البيانات للنموذج أو قد يكون مبنى على إستعلام وفى كلا الحالتين يكون مصدر البيان للنموذج معروف وكائن ضمن كائنات قاعدة البيانات لكن هل يمكن أن يكون النموذج مبنى على إستعلام يتم إنشاءة عند فتح النموذج وبعد ان يتم إجراء اللازم من قبل المستخدم سواء إدخال بيانات أو تعديل فيها وعند إغلاق النموذج يتم حذف الاستعلام من قاعدة البيانات ؟! امممم ولو هذا الكلام منطقى فى عالم البرمجه ممكن شرح مبسط وارفاق لمثال لهذه الفكرة إن امكن جزاكم الله عنا كل الخير

ممتااااااااااااااااز استاذ s s m جزاكم الله خيرا كل الشكر والتقدير

اخانا الحبيب لاشكر على واجب هذا هو واجبنا تجاه هذا الصرح الشامخ الذى نتعلم منه على ايد اساتذتنا الكرام جزاهم الله والقائمين على امر هذا المنتدى عنا كل الخير وجعل كل اعمالهم فى موازين حسناتهم ان شاء الله فقط نتمنى على الله ان تجد مرادك وكما اخبرتك ان اردت تعديل على قاعدتك ارفقها

حياكم الله وبياكم ولم ابذل اى جهد يستحق الشكر ومهما فعلت لن افيكم حقكم وقدركم فمنكم تعلمت ولازلت اتعلم وانهل من بحور علومكم التى لم تبخلوا بها علينا قط انا فقط ارد جاهدا ولو جزء بسيط لهذا الصرح الذى اتعلم وانهل منه جزاكم الله عنا كل الخير

وشكرا لكم مره اخرى بالتوفيق هو طلب ممكن كود يمكن من خلاله ان تظهر في العمود المنظم يبقى كده هو محتاج المرفق البرمجى اما الجزء من الثوانى مش عارف بصراحه اول مره اتعرض له ومش فاهم هو طالب الجزء من الثوانى ليه وفى ايه هيفيد وجوده تقبل تحياتى استاذ s s m وجزاك الله كل الخير على جهودك الاكثر من الرائعة

استاذنا الغالى كل الشكر والتقدير وبهذا اكتمل المرفق الخاص بالاستاذه زهرة ام عهود نسال الله لها الخير ان شاء الله واليكم عدد 2 مرفق الاول مرفق الاستاذه زهرة وهو يعتمد فى الاساس على ملف فلاشى مرفق داخل مجلد قاعدة البيانات za-DigitalClock.rar المرفق الثانى يحتوى على ساعتين رقمية وعقارب داخل نموذج واحد وتم عملهم باكواد برمجه ساعه رقمية وعقارب بالاكسس.rar

للعلم هذا المثال يعتمد على ملف فلاش ولم يتم ادراجه داخل الملف المضغوط وبالتالى عند فتح النموذج لن يتم عرض الوقت انظر الى الكود التالى Me.ShockwaveFlash1.Movie = Application.CurrentProject.Path & "\FlashClock.swf"

اتفضل هذا مثال من مكتبتى وان اردت التعديل على المرفق الخاص بكم برجاء وضعه هنا فى مشاركة ليتم ذلك ساعه رقمية وعقارب بالاكسس.rar

كده حضرتك مصطبه نسختين من الاوفيس على الجهاز ده اوفيس 2007 12.0 اوفيس 2010 14.0

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

طيب اولا انا لازلت اتعلم على ايد اساتذتنا الكرام فى هذا الصرح الشامخ جزاهم الله عنا كل الخير انا بصراحه مش قادر استوعب او بمعنى اوضح انا مش عارف منطقيا اللى حضرتك بتقولى عليه ده ممكن واللا لاء بس خلينى ارفق لحضرتك مثالك بعد التعديل ده الشكل البرمجى الصحيح اللى المفروض يكون عليه التصميم على ما اعتقد طبعا اساتذتنا الكرام يقدروا يفيدونا اكتر فى الموضوع ده بخصوص التقرير ياريت احد الاساتذة الكرام يفيدنا فى موضوع التقرير ده ويقول لنا هل ممكن منطقيا ان يحصل كده فى التقرير كما هو سؤال الاستاذه مياده مرفق ملف مضغوط يحتوى على قاعدة بيانات بإصدار 2000 واخرى بإصدار 2007 حتى يسهل على الكل المساعده ان امكن ومرفق ايضا ملف ورد يحتوى على المطلوب اضافته او تعديله على قاعدة البيانات Data source.rar

هذا الكود داخل وحده نمطية يظهر كلمة ( صورة ) على صفحات التقارير المختلفة ______________________________________________ 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 من مثال الاستاذ المنتصر الانسى الذى سبق ووضعت رابط تحميله فى المشاركة السابقة ولكن سؤالى هو باى لغة تمت كتابة هذا الكود البرمجى الذى يظهر فى التقارير على هيئة كلمة امممم والسؤال الاهم هو كيف يمكن عمل مثل هذا الكود او التعديل عليه حتى نغير مثلا كلمة ( صورة ) الى اسم الشركة مثلا

كيف يتم الكتابه على صفحات التقارير كما فى هذه الصوره وكما فى مثال الاستاذ منتصر الانسى هنا http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=39555

انا مش قادر افهم السؤال بصراحة وياريت لو توضح سبب التبويبين ايه ممكن تشرح الفكره