ابو جودي

بعد اذن معلمنا الجليل واستاذنا القدير الاستاذ ابو خليل قمت بالتعديل على المرفق واصبح يعمل بشكل جيد جدا الشـــــرح حتى تعم الفائده من خصائص مربع التحرير والسرد من التبويب بيانات يكون مصدر الصف هذه القيم "مهتم دائما";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

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

UP لن افقد الأمل ان شاء الله

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

طيب انا عدلت شوية حجات اولا بدل اللخبطه بتاعة الاكواد لان من كتر الااكواد مدخل البيانات اكيد حيصل له لخبطه جربى اول شئ النموذج باسم Frm_Staff بعد التعديل طبعا انا كمان عدلت على جدول tbl_Staff لو حضرتك فتحتى الجدول حتلاقى كل شئ بيتم اختياره من خلال مربع تحرير وسرد زى النموذج بعد كده افتحى التقرير انا عدلت على اد ما فهمت ممكن حضرتك تطلبى التعديل اللى انتى عاوزاه واحده واحده لحد ما نوصل ان شاء الله اممممممم انا على فكره خليت زى ما حضرتك قلتى التقرير يظهر زى الترتيب اللى تم فى جدول الادخال اتفضلى حملى المرفق وجربى وتحت امرك لو فى اى تعديل Data-up.rar

ممكن مرفق الاكسس اللى حضرتك شغاله عليه يا استاذه

ممكن مرفق لو تكرمتى حتى يسهل تقديم المساعده ان امكن ذلك ان شاء الله

جزاكم الله خيرا وده تصميم اذكار الصباح بصوت اكثر من رائع وجارى اعداد تصميم اذكار المساء ان شاء الله http://up.1sw1r.com/upswf12/iws15304.swf وللمشاهده بكامل الشاشة من المرفقات READ IT.txt

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