ما الحل في إشارة الخطأProcedure too Large

تجربة أولى ...

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

ولعل أحد الأعضاء يأتي بحل أو طريقة سهله ومريحه .

تحياتي ..

db5.rar

أخي الكريم/ فهد الدوسري

جزاك كل خير وجاري تنزيل الملف وإخبارك بالنتائج إن شاء الله

بارك الله فيك

والله هو الموفق لسواء السبيل

الباشا قمر الزمان

أخي الكريم/ فهد الدوسري

بارك الله فيك وجزاك كل خير

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

أعود فأقول إشكرك جزيلاً جداً وخاصة أنها أخذت منك وقت في تنفيذها بسبب طولها.

بارك الله فيك

والله هو الموفق لسواء السبيل

الباشا قمر الزمان

أخي الفاضل/ فهد الدوسري

عندي سؤال لفت نظري وهو لماذا أسميت الحقول والتي أخذت الحرف f بالإسم ff بالرغم من أنك اسميت كل مجموعة من المجموعات بحرف واحد فقط إلا هذه المجموعة فقط أسميتها بحرفين

ثانياً: أشكرك مرة أخرى وإليك الملف بعد التعديل

بعد التعديلdb5.rar

أنت تعرف أن الحرف f إذا جاء معه رقم 1 بهذه الطريقة (F1) فهو عبارة عن طلب المساعدة من الأوفيس فكنت أخشى أن نقع في مشاكل مستقبليه في البرنامج .. فقط لا غير والله أعلم .

تحياتي ..

أخي الكريم/فهد الدوسري

أفادك الله وهذا ما توقعته ولكن لم أعرف لماذا بالتحديد

شكراً جزيلاً وبارك الله فيك

الباشا قمر الزمان

أخي الكريم/ فهد الدوسري

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

أرجوا الإفادة وجزاك الله كل خير

الباشا قمر الزمان

ملاحظة: أرجوا ألا أكون خرجت عن قواعد المشاركة فالسؤال مطروح للجميع ولكن توجيهي السؤال إلى أخي فهد بسبب علمه بالموضوع وقيامه بتعديل ذكي فيه.

الملف المرفق

db7.rar

لماذا غيرت أسماء مربعات النص والتي يعمل عليها الكود . ما هي الأشكالية لديك في ذلك ممكن توضح أكثر .

تحياتي ..

أخي الكريم/ فهد الدوسري

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

وحينما أردت أن أظهر بيانات طلاب فصل معين مثل 1/1 في مادة اللغة العربية فقد ظهرت أرقام الطلاب المسلسلة وكذلك أسماؤهم ولكن حدث ظهور حقول اللغة العربية في كل سجل من سجلات الطلاب كما أرغب إلا أنها تحمل نفس إسم الحقل فالحقل الأول للطالب الأول إسم هذا الحقل يكون a0 ,وكذلك يكون الحقل الأول لكل طالب يكون له نفس الإسمa0 وكذلك الحقل الثاني يحمل نفس الإسم في كل سجل وهكذا في باقي السجلات.

وهذا يعنى وجود مشكلة للأكسس عند إدخال أي درجة وعند الخروج من الحقل يذهب لينفذ الكود ففي أي حقل يسجل هذا الكود هل في الحقل الأول للطالب الأول أم الحقل الأول للطالب الثاني أو الثالث.

وهذا سبب ظهور كلمة name في جميع الحقول عند فتح النموذج بعد التعديل.

وعلى هذا النحو طبقاً لمعلوماتي الرياضية وليس الأكسس فإن مسميات الحقول يجب أن تتم بشكل مصفوفة كأن يكون الحقل الأول في السجل الأول في اللغة العربية إسمه a00 والحقل الأول في السجل الثاني للغة العربية إسمه a02 والثالث إسمه a03 ثم يكون الحقل الثاني في السجل الأول اسمه a11 والحقل الثانى في السجل الثاني إسمه a12 وهكذا في كل الحقول في جميع المواد ، مثلما تسمى الحقول في الإكسل ولكن لعدم معرفتي بذلك في الأكسس فلا أستطيع تنفيذها

هذا من رأيى( وهذا إجتهاد)حسب حدود علمي والله أعلم.

المهم أن يكون في النهاية شكل النموذج في ترتيب صفحة الأكسس وأن تتم تنفيذ الأكواد لكل حقول صف

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

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

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

أم ذلك يحتاج إلى موديول وبعد ذلك ننظر للتعامل مع أكواد الجمع

شكراً جزيلاً أخي الفاضل وبارك الله فيك

والله هو الموفق لسواء السبيل

الباشا قمر الزمان

أخي الكريم/فهد الدوسري

أرى أنه يمكن عمل استعلام تحديث أو تحديد لاأدري أيهما الأصح وذلك لحقلي اسم الطالب ورقم الطالب وذلك لإدخال هذه الأسماء والأرقام ضمن جدول درجات الطلاب

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

برجاء الإفادة والله هو الموفق لسواء السبيل

الإخوة الأفاضل

أريد نقل معلومات حقلين من جدول الطلاب إلى نموذج بحيث يمكن حفظهم في جدول الدرجات

والحقلين هم رقم الطالب® واسم الطالب(compnam1)وذلك حسب إختيار الفصل المسمى (SSS).

قد أعيني الحيلة في ذلك

والله هو الموفق لسواء السبيل

الباشا قمر الزمان

أستاذنا الكبير فهد الدوسري من العقليات النيرة والفذة في منتدانا وفي منتديات أخرى ، وله منا الدعاء في ظهر الغيب

لا حرمك الله الأجر يا أستاذنا الغالي

بالنسبة لك أخي الكريم .. قمر الزمان

فوجهة نظري أن البناء الخاطيء لقاعدة البيانات أوقعك في مثل هذا الإشكال ، فأنت كررت الحقول في الجدول لكل مادة ، وهذا خطأ فادح

يكفيك أخي الحبيب أن تقوم بتقسيم الجدول DEG إلى عدة جداول ، ومن ثم يمكنك القيام بالعمليات في كل يسر وسهولة ، بعيداً عن الكم الهائل من الأكواد ، والتي لا داعي لها ، وتضر أكثر مما تنفع ، وإن كان له نفع فمحدود جداً .

فلو قسمت الجدول إلى التالي :

جدول الطلاب ( اسم الطالب ، رقم الطالب )

جدول المواد ( رقم المادة ، اسم المادة )

جدول الدرجات ، يربط بين الجدولين السابقين ، واحد لمتعدد ، وبه الحقول التالية ( رقم الطالب ، رقم المادة ، الشهر ، الدرجة )

فيتم إدخال الطلاب في جدولهم أولاً ، وكذلك المواد

ثم تسجيل الدرجات يكون في الجدول الثالث بعد عمل قائمة بأرقام الطلاب ، وقائمة بالمود ، واختيار رقم الطالب والمادة .

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

تضع لخانة اختيار المادة الإحالات إلى الإجراء المراد تنفيذه كالتالي :

Private Sub subj_name_AfterUpdate()

If Me.subj_name = "اللغة العربية" Then
    GoArabic
ElseIf Me.subj_name = "اللغة الإنجليزية" Then
    GoEnglish
End IF

End Sub
-------------------------------------------------------------------------
Sub GoArabic()
...
...
...
...
End Sub
-------------------------------------------------------------------------
Sub GoEnglish()
...
...
...
...
End Sub

أخي الكريم/ أحمد الحربي

لك الشكر على المساعدة والرد والشكر قبل ذلك لأخي الكريم فهد الدوسري

والأن دعني أستوعب الفكرة التي قدمتها وأفيدك بالنتائج علماً بأني أرغب في أن تكون درجات الطلاب كلها في جدول واحد

والأن دعني أدرس الفكرة التي أشارت بها وشكراً على مساعدتك وعونك وبارك الله فيك

والله هو الموفق لسواء السبيل

الباشا قمر الزمان

أخي الكريم/ أحمد الحربي

فكرة جميلة جداً أيضاً

بالنسبة لأسماء الطلاب وأرقامهم فهي موجودة في الجدول Talebdata_T هذا أولاً

ثانياً ما فائدة جدول المواد فالمواد جميعها إجبارية عدا 3مواد فهى اختيارية بالنسبة للصف الأول الثانوي

وهى اللغة الأجنبية الثانية وكذلك مادة الفنون ومادة الجال وهي أيضاً موجودة في جدولTalebdata_T

أي أن المطلوب من الجدولين الذي ذكرتهما موجودة في جدول واحدTalebdata_T وما يتبقى هو الربط بين جدول DEG وبين جدول Talebdata_T وذلك لربط اسم الطالب ورقمه ودرجاته

وقد حاولت إيجاد الرابط ذلك باستخدام دالة DLookUp وذلك حتى يصبح جدول الدرجات جدول كامل يحتوى اسم الطالب ورقمه ودرجاته وهذا ما كنت أريده بالتحديد

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

وهذه هي المشكلة الآن

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

شاكراً لك حسن تعاونك معى أنت وأخي الفاضل فهد الدوسري وأرجوا أن أكون أوضحت الموضوع بشكل جيد

أرجوا الإفادة

والله هو الموفق لسواء السبيل

الباشا قمر الزمان

وفيت وكفيت أستاذي أحمد الحربي .. فعلاً بناء البرنامج الخاطئ جعله يتوقف قبل أن يبدأ .

وقد كنت أنوي قول ذلك للأستاذ (الباشاقمرالزمان) ولكني وجدت أنه قد تعب فيه كثيراً فقررت الصمت .. وهذا خطأ مني أعترف به . فأرجو قبول عذري عن هذا الخطأ .

تحياتي ..

أخي الفاضل/ أ. فهد الدوسري

أخى الكريم/ أ.أحمد الحربي

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

وبالطبع قد أكون مخطئاً تماماً ولكن ذلك يظل محاولة فأرجوا الإجابة وتحملوني ولا تملوا فأنا أعلم مقدار ما تبذلونه من جهد وشاكر لكم تعاونكم معي وجزاكم الله عني كل خير

والله هو الموفق لسواء السبيل

الباشا قمر الزمان

للرفع

ولو .. أستاذنا فهد ، منك تعلمنا واستفدنا

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

عموماً .. لي عودة إن شاء الله حول برنامجك

دمت بخير ورضا

أخي الكريم/ أحمد الحربي

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

وأنا في إنتظار متابعتك أنت والإخوة الأفاضل فريق الثلاثي المبدع .

والله هو الموفق لسواء السبيل

الباشا قمر الزمان

ما زلت في الانتظار

أنا في انتظارك

للرفع

للرفع

للرفع