ابوخليل

ايضا تمت التجربة على اوفيس 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 يعني مصدر عنصر التحكم لحقلنا الموجود في النموذج الفرعي كما تلاحظون في الكود يتغير المصدر بتغير قيمة مربع التحرير الفترة الموجود في النموذج الرئيسي

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

يمكنك ذلك 1-افتح الجدول على التصميم 2- حدد(ظلل) الحقلين جميعا ، ويمكنك ذلك بضغط زر Ctrl باستمرار اثناء التحديد 3- اضغط بزر الفارة الأيمن واختر علامة المفتاح ستلاحظ ان الحقلين اصبحا مفتاحين هنا لا يمكن تكرار الحقلين مجتمعين A2.rar

طيب اخوي جعفر افحص المثال المرفق يوجد داخله جدولين واحد منها مرتبط ... حاول اظهارها من الخيارات يمكن اكسس الذي عندي يوهمني .. تراها دايم تحصل احب أتأكد .. جزيت خيرا aa.rar

السلام عليكم يسعدني المشاركة معكم وحسب فهمي ان كان القصد اخفاء واظهار الجداول المرتبطة في قاعدة بيانات ما ،، فهذا للاخفاء : If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 وهذا للاظهار : If tdf.Attributes = 1073741824 Then tdf.Attributes = 0

اخي آخر الارض جزاك الله خيرا ما دامت الحقول غير منضمة الى جدول فلا بد ان نعرف قيمتها كعدد حتى تتم المقارنة اعد كتابة الكود بما يشبه هذا : Dim i, x As Integer x = Me.XX i = Me.M_SM If i > x Then MsgBox ("المبلغ الاصلي اكبر من الرصيد") Exit Sub End If

جرب اخي ادخال درجات الصف الرابع او الخامس او السادس لجميع فترات السنة يتم اختيار الفترة اولا ثم الصف ثم المادة وموافاتي بالنتيجة والاستفسارات ان وجدت ADrjat2.rar

الاجابة على الشق الثالث من السؤال يتطلب زيادة جدول ونموذج فرعيين وهذا ما سيتم شرحه ان شاء الله في الجزء الثاني من هذا الدرس http://www.officena.net/ib/index.php?s=818b325877d034b9a763dc666124fcb2&showtopic=59344

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

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

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

تفضل تم التعديل التعديل تم باضافة بعض الجداول اللازمة الى الاستعلام الفرعي مصدر بيانات النموذج تعديل.rar

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

اكتب في مصدر عنصر تحكم الحقل السطر التالي : =DLast("FldName";"table1") اظهار قيمة خلية .rar

نريدها واحدة واحدة تقصد بعد اختيار الصف سأشرح الطريقة ولكني اجد صعوبة في عرض الصور واحتاج لمن يوضح ويشرح لي كيف ادرج الصور في الشرح ومع ذلك فالصور قد يعتريها الخلل مع الوقت بينما الشرح النصي اكثر بقاء نحن لدينا مربعي تحرير : واحد للصفوف والآخر للمواد ومصدرهما جدولان وهما : جدول الصفوف والجدول المتفرع منه والذي سجلنا فيه المواد حسب كل صف لنفتح مصدر كل مربع للاطلاع : في عرض التصميم للنموذج/ ننقر باليمين على مربع التحرير ونختار خصائص / لسان التبويب بيانات/ ننقر على النقاط الثلاث بجانب القيمة : مصدر الصف سيظهر الاستعلام الفرعي الذي هو مصدر الصف بالنسبة للمربع الصف سنرى داخله حقلي الصف ومعرفه من جدول الصفوف اما مربع المواد فسنرى داخل الاستعلام حقل المادة من الجدول الفرعي + حقل الصف من جدول الصفوف وفي حقل الصف وضعنا معيارا للتصفية وهذا المعيار هو قيمة مربع الصف في النموذج الرئيسي والآن وحسب الشرح اعلاه لو فتحنا النموذج ثم اخترنا صفا محددا من مربع الصف ثم ذهبنا الى مربع المادة لوجدناه خاليا او لم تتم التصفية المطلوبة والسبب ان مربع المادة بحاجة الى تحديث حتى يستجيب وتظهر النتيجة حسب المعيار المحدد لذا نلجأ الى تحديث مربع المادة عند حدث تحديث مربع الصف فنكتب عند حدث تحديث الصف : [مربع المادة].Requery

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

معذرة هذا تصحيح للكود اعلاه vl: IIf([nmb]>0 And [nmb]<501;[nmb]*0.25;IIf([nmb]>500 And [nmb]<751;[nmb]*0.5;IIf([nmb]>750;[nmb]*0.75))) وسأنظر في طلبك الثاني ان شاء الله .. ان استطعت