ابوخليل

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

رايي ان هذا الموضوع اصبح مائدة هذا مثال للاخ السائل يجمع بين الاكواد فاختر من المائدة ما شئت 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- في خصائص حقل المعرف / اجعل القيمة مفهرس = نعم بدون تكرار هكذا يكون المعرف فريد ويمكن ربطه وكذلك يمكننا البحث عن آخر سجل تم ادراجه ملحوظة : اذا جعلت الاثنين مفاتيح تذهب خاصية الحقل الفريد فيمتنع الربط

تحفة ،،،

السبب في جدول الاسماء : اجعل المفتاح لمعرف الطالب فقط اما بالنسبة لتصفير الترقيم التلقائي : فعند حذفك لجميع البيانات داخل الجدول (لا بد يكون الجدول فارغ) : اعمل ضغط واصلاح لقاعدة البيانات

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

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

ايضا تمت التجربة على اوفيس 2007 عربي التقارير لا تعمل من خلال خانة الاختيار !!

التقارير لا تعمل من خلال خانة الاختيار على نسخة 2003 النسخة عندي عربية

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

اخي الكريم احرص على كتابة عنوان مناسب يصف الموضوع تم تعديل العنوان

اخي الكريم احرص على كتابة عنوان مناسب يصف الموضوع تم تعديل العنوان

اخي الكريم احرص على كتابة عنوان مناسب يصف الموضوع تم تعديل العنوان

البيانات اعلاه تكون في جدول واحد لانها بيانات ثابتة لا تتغير ولا تزيد ولا تنقص متى نحتاج الى الجداول الاخرى ؟ نحتاجها عند وجود بيانات متغيرة مثلا : 1-المرتبات ...... تزيد وتنقص وتتجدد كل شهر 2- الاجازات .... تختلف وتمنح من حين الى آخر 3- الدرجات للطلاب ... وهكذا .....

ولماذا النسخ واللصق ؟ هذا يعني ان الدرجات يتم ادخالها اول مرة يدويا مثل برانمجنا هذا صمم ليتم الادخال يدويا تأتي كشوف الاختبارات فيقوم المسؤول بادخال الدرجات اولا باول في بعض الحالات ( مدارس وغيرها ) يكون هناك قواعد بيانات خارجية او مصنفات اكسل يتم ضمها الى البرنامج على فترات ، وهذه يجرى لها عمليات خاصة عند الاستيراد ، وتكون الجداول داخل البرنامج معدة مسبقا لاستقبال مثل هذه العمليات .

بعد التطبيق في المثال السابق .. هذا هو الكود هو المسؤول عن العملية Private Sub co2_AfterUpdate() If co2 = 1 Then 'ويمثل الاختبار الاول في مربع تحرير الفترة subs.Form!text1.ControlSource = "ekhtbar1" 'حقل الاختبار الاول في الجدول ElseIf co2 = 2 Then subs.Form!text1.ControlSource = "ekhtbar2" ElseIf co2 = 3 Then subs.Form!text1.ControlSource = "ekhtbar3" ElseIf co2 = 4 Then subs.Form!text1.ControlSource = "NISFALSANH" ElseIf co2 = 5 Then subs.Form!text1.ControlSource = "ekhtbar4" ElseIf co2 = 6 Then subs.Form!text1.ControlSource = "ekhtbar5" ElseIf co2 = 7 Then subs.Form!text1.ControlSource = "NHAIATALSANH" End If End Sub text1.ControlSource يعني مصدر عنصر التحكم لحقلنا الموجود في النموذج الفرعي كما تلاحظون في الكود يتغير المصدر بتغير قيمة مربع التحرير الفترة الموجود في النموذج الرئيسي

تم اظهارهم بنجاح جعفر الحمدلله اولا وآخرا وجزاكم الله خيرا ،،،