ابوخليل

Private Sub B_Exit(Cancel As Integer) If IsNull(B) Then Cancel = True End If End Sub

لنفرض لدينا مربع تحرير اسمه comb1 يحتوي : رقم الصنف ، واسم الصنف ، والسعر على الترتيب ولدينا حقل اسمه text1 ونريد اظهار احدى قيم مربع التحرير داخل هذا الحقل سيكون الكود على النحو التالي : text1=comb1 ' يرجع رقم الصنف text1=comb1.Column(0)'ايضا يرجع رقم الصنف text1=comb1.Column(1)'يرجع الحقل الثاني الذي هو اسم الصنف text1=comb1.Column(2)'يرجع الحقل الثالث

حقل النتيجة ntj استخدمنا فيه الطريقة نفسها التي نجمع فيها كل صفحة على حدة ولكن هنا استبدلنا الجمع استبدلناه بالاختيار من متعدد واليك شرح مفصل عن ما يحدث داخل التقرير 1- مصدر التقرير هو الاستعلام التجميعي وتظهر فيه المعدلات والمجموع 2- وضعنا حقلا مخفيا (test1) في تفصيل التقرير ومصدر بياناته هو حقل test1 الموجود في الاستعلام وكما ذكرنا سابقا ان هذا الحقل يأخذ القيمة 1 عن كل مجموع يقل عن 50 3- انشأنا حقلا جديدا غير منضم ntj داخل مقطع تذييل اليوزر ويظهر في المحرر بهذا الاسم : (تذييل_المجموعة0 ) الآن نحتاج الى طريقة او كود يجمع الموجودات في حقل test1 ان وجدت ( كل صفحة لوحدها ) لنعمل لها شرطا كالتالي : المجموع1= مكمل .... المجموع2 = مكمل ... المجموع3=راسب ... المجموع 0 =ناجح والطريقة وجدناها وهي طريقة جمع الصفحات وشرحها كالتالي : نعلن عن متغير رقمي testSum في رأس المحرر Dim testSum As Integer في مقطع رأس التقرير نجعل قيمة المتغير صفر لقطع العلاقة بمجموع الصفحة السابقة Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) testSum = 0 End Sub في مقطع التفصيل نجعل المتغير يساوي مجموع قيم الحقل test1 الموجودة Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) testSum = testSum + Nz(Me.test1, 0) End Sub في النهاية قيمة المتغير ستكون صفرا أو 1 أو 2 أو أكثر الآن يمكننا صناعة شرط بناء على قيمة هذا المتغير يظهر قيمة ntj كما نرغب ونريد وذلك يتم في حدث مقطع التذييل الذي يتواجد به حقلنا هذا Private Sub تذييل_المجموعة0_Format(Cancel As Integer, FormatCount As Integer) If testSum = 1 Or testSum = 2 Then ntj = "مكمل" ElseIf testSum > 2 Then ntj = "راسب" Else ntj = "ناجح" End If End Sub آمل ان اكون بينت ووضحت شيئا من الاشكال في المثال المرفق

تم ارفاق الملف مرة أخرى إنشاء شريط أدوات لطباعة التقارير .rar

Dim GrayLine As Boolean ' ضع هذا السطر في راس المحرر '.............................................. Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If GrayLine = True Then Me.تفصيل.BackColor = 14933454 ' رمادي GrayLine = False Else Me.تفصيل.BackColor = 16777215 ' ابيض GrayLine = True End If End sub

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

في المثال المرفق : الشهادة النهائية للطالب وهي نموذج سريع مشابه للتقرير الاول وينقصها بعض اللمسات مثل المجموع الكلي ، والترتيب ، والنسبة ومثل رأس الشهادة اوما يسمى الكليشة وايضا التذييل ايضا هي بحاجة الى سطر يبين اسم المرحلة الجديدة التي انتقل اليها الطالب ويمكن ايضا وضع صورة الطالب في اعلى الشهادة كل واحدة مما ذكر يحتاج الى درس يخصه Drjat9.rar

نعود لدرسنا : وهو شرح كيفية ظهور النتيجة في التقرير بالصورة التي ظهرت في المثال المرفق الاخير وحقيقة ان الطريقة عادية جدا كالتالي 1- جعل الاستعلام مصدرا للتقرير 2- نستخدم خاصية الفرز والتجميع ( كما هو مبين بالصورة المرفقة ) بحيث نجعل بيانات الطالب ( الاسم والصف والشعبة ) في رأس المقطع الجديد الذي انشأناه هذا كل شيء وجاهز لتوضيح اي اشكال او غموض وسيكون الدرس القادم بإذن الله كيف نعمل اشعارخاص او شهادة للطالب من الاستعلام نفسه

اخواني الكرام ابومحمد وابو آلاء وعلي المصري وجميع من يمر من هنا من احبتي واخواني : انا كما يقول المثل : عود من عرض حزمة والخير في اهل هذا المنتدى كثير ، وانتم أهله

اخواني الكرام ابو آلاء وابو محمد سنعتمد الطريقة الاسهل في الشرح في المثال الاخير في المشاركة رقم 10 لا يوجد اكواد ولا ادوات فلترة واعتمدنا في عملنا على التالي : استعلام تحديد وهو مصدر داخلي للتقرير استخرجنا داخله المعدلات والمجموع بطريقة جمع عادية كالتالي : moadl1: Round(([ekhtbar1]+[ekhtbar2]+[ekhtbar3])/3;2) هنا معدل الفصل الاول جمعنا اختبار الشهر الاول + الشهر الثاني + الشهر الثالث ثم قسمناها على 3 اما الرقم 2 فهو خاص بالدالة round ووظيفتها اختصار الخارج العشري والاقتصار على رقمين فقط فلو اردنا الخارج رقما عشريا واحدا فيجب استبدال الرقم 2 بالرقم 1 وهكذا في معدل الفصل الثاني : moadl2: Round(([ekhtbar4]+[ekhtbar5])/2;2) ثم استخرجنا المحصل السنوي : sanawi: Round(([moadl1]+[NISFALSANH]+[moadl2])/3;2 ثم اخرا وليس اخيرا جمعنا الكل وسميناه النتيجة : ntejah: Round(([sanawi]+[NHAIATALSANH])/2;2) واخيرا صنعنا حقلا يشير الى الرسوب : test1: IIf([ntejah]<50;1) ويعني اي مادة تقل عن 50 سيضع امامها رقم واحد تجدون في المرفق هنا انه تم اظهار هذا الاستعلام بدلا من جعله داخل التقرير تنبيه : لفتح الاستعلام يلزم ان يكون النموذج مفتوحا لوجود معايير الصف والشعبة داخل الاستعلام يتبع ... شرح طريقة الفلترة داخل التقرير واستخراج النتيجة حسب الطلاب Drjat8.rar

ولاني متأكذ ان المثال صعب ويعتبر من الدروس المتقدمة جدا ومن اجل ذلك سأسلك طريقا اسهل لتنفيذ المطلوب استخراج النتيجة طريقة2 بالنسسبة للراسبين والمكملين فستأتي لاحقا آمل الاطلاع والدراسة والاكتشاف . وموافتنا بالمرئيات والاستفسارات Drjat7.rar

الدرس الأول : السلام عليكم اخوتي الاعزاء : يوجد اكثر من طريقة لعرض البيانات المدخلة فيمكن عرضها داخل التقرير كبيانات مستمرة ، ويمكن عرضها حسب الانتقاء والاختيار باستخدام الدالة Dlookup كما يمكن عرضها داخل تقارير فرعية او نماذج فرعية وما يحكم هذه الطرق هو شيئان : - الطريقة المتبعة في تصميم حقول البيانات داخل الجداول . - البيانات المطلوب عرضها داخل التقارير وطريقة العرض . والمصمم غالبا يسعى الى ايسر واخصر الطرق في هذا الدرس طبقنا المخرجات على تقرير نتيجة الصفوف الذي تفضل باعداده مشكورا ابو محمد عباس ووظفنا لذلك : frmReports نموذج التقارير لاختيار الفترة والصف والشعبة QDrjat استعلام ( مدير التحكم ) وفيه يجري انتقاء اختبار الفترة حسب التحديد في نموذج التقارير QDrjat_Crosstab استعلام جدولي وهو لتحويل البيانات من رأسي الى افقي Repsh1sfof وهذا هو تقريرنا ويوجد داخله حقول الفترة والصف والشعبة تتغير حسب الاختيار في نموذج التقارير آمل الاطلاع والدراسة والاكتشاف . وموافتنا بالمرئيات والنتائج ADrjat4.rar

اعزائي : كل شيء سهل ويسير باذن الله واعتذر عن تاخر الرد فامهلوني ... اختنا الكريمة حاملة المسك اتمنى ان تجدي الجديد والمفيد الاخ الكريم marlil يمكنك طرح موضوع جديد بالمطلوب وستجد باذن الله العون والمساعدة

تم ضمه الى المواضيع المتميزة المثبتة

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

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

الاستاذ رمهان .. سعدت بمرورك واضافتك وشكرا للتنبيه على افراغ الذاكرة وحلوة تشغيل العرض هذه Dim opj As Object Dim strFilePath strFilePath = CurrentProject.Path & "\Ch1.ppt" Set opj = CreateObject("Powerpoint.Application") opj.Visible = True opj.Presentations.Open (strFilePath): SendKeys "{F5}" Set obj = Nothing

Private Sub Command0_Click() Dim opj As Object Dim strFilePath strFilePath = CurrentProject.Path & "\Ch1.ppt" Set opj = CreateObject("Powerpoint.Application") opj.Visible = True opj.Presentations.Open (strFilePath) End Sub Ch1.ppt هو اسم ملف العرض اجعله بجانب قاعدة البيانات

اجعل نوع الحقل رقمي حجم الحقل = مزدوج التنسيق = قياسي moo2.rar

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

تحية وشكر لك استاذنا جعفر وهذا هو الذي انا اسير عليه في برامجي حيث اضع جدولا وسيطا وقد حاولت حل المسألة من وجهة نظر اخونا ابو عمرو وخرجت بنتيجة لعلها تكون مرضية وهي كالتالي : استبدال السطر الخاص بالتصدير والموجود في الوحدة النمطية العامة : 'DoCmd.OutputTo acOutputTable, "جدول تسجيل الكتب", acFormatXLS, CurrentProject.Path & "\MyBackup" & "\سجل الكتب.xls", true, "" بهذا السطر : DoCmd.TransferSpreadsheet acExport, 8, "جدول تسجيل الكتب", CurrentProject.Path & "\MyBackup" & "\سجل الكتب.xls", False, "" وفي المثال تطبيق للمقال exp@Emp.rar

هذا درس جديد انتقلنا اليه من درسنا السابق ( ادخال الدرجات) http://www.officena.net/ib/index.php?showtopic=59344 واتصور ان التقارير ستكون : 1- اشعار بنتيجة طالب لشهر معين 2- شهادة النصف الأول الاختبار + الشهور الثلاثة 3- كشوف الناجحين والمكملين والراسبين 4- الشهادة النهائية ويمكن ان يكون في ظهرها كشف بعموم الدرجات ويمكن افرادها فعلى بركة الله ...

آمين ولك بالمثل

جميل .. الآن سننتقل الى المرحلة التالية وهي النتائج والمخرجات ومعها سننتقل الى مكان جديد حيث سأفتح درسا جديدا بذلك وسيكون عنوانه استخراج وعرض تقارير ونتائج الطلاب واتصور ان التقارير ستكون : 1- اشعار بنتيجة طالب لشهر معين 2- شهادة النصف الأول الاختبار + الشهور الثلاثة 3- كشوف الناجحين والمكملين والراسبين 4- الشهادة النهائية ويمكن ان يكون في ظهرها كشف بعموم الدرجات ويمكن افرادها علما ان لنا رجعة هنا ان شاء الله لاستكمال ما وعدتكم به وهو كيفية ادخال جميع درجات مواد لطالب معين الى ان ننتقل الى الدرس الجديد مطلوب منك يا ابا محمد ان تبدأ بتصميم ما تقدر عليه من هذه التقارير ( شكليا حسب ما تود ان تظهر )

صحيح وسبب اللخبطة ان معرف الطالب نصي لذا اكسس يرى ان رقم 2 اكبر من 10 الحل بسيط : 1- اجعل الترقيم التلقائي هو المفتاح 2- في خصائص حقل المعرف / اجعل القيمة مفهرس = نعم بدون تكرار هكذا يكون المعرف فريد ويمكن ربطه وكذلك يمكننا البحث عن آخر سجل تم ادراجه ملحوظة : اذا جعلت الاثنين مفاتيح تذهب خاصية الحقل الفريد فيمتنع الربط