بنك أسئلة إلكتروني

[خالد أبو هشام]

الزملاء الاعزاء

مرفق  مشروع صغير  يحتوى على بنك اسئلة إلكترونى مصغر على نمط أختبارات التويفل أو ICDL    فهل يمكن فضلاً لا أمراً مساعدتى فيه فى

1- عندما يقوم الطالب بإختيار A, B, C, D  يتم تخزين ذلك فى حقل Student Answer

2- فى نهاية الإختبار يتم تفعيل زر نتيجة الطالب ليظهر يتم حساب إجمالى عددالأسئلة و عدد الأسئلة الصحيحة و نسبة الإجابات الصحيحة

مع وافر الشكر و التقدير شاكراً لسيادتكم إهتمامكم و تعاونكم

Questions.rar

[أ / محمد صالح]

بارك الله لك أخي الكريم

ربما يفيدك هذا التعديل

لا يلزمك حقل إجابة الطالب

تم تعديل كود زر تسليم (هو ما يلزمنا)

mas_Questions.rar

[خالد أبو هشام]

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

أشكر لسيادتكم إستجابتكم السريعة وإسهاماتكم  المميزه جزاك الله خيراً

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

شاكراً لسيادتكم جميل صنعكم و كل عام و سيادتكم  بكل خير  

mas_Questions.rar

[أ / محمد صالح]

لا يتم تسجيل إجابة الطالب

كل هذا يتم على الطاير

ويمكنك مشاهدة حقل إجابة الطالب في الجدول

قلت في المشاركة السابقة يمكننا الاستغناء عن حقل إجابة الطالب

6 ساعات مضت, أ / محمد صالح said:

لا يلزمك حقل إجابة الطالب

موفق إن شاء الله أستاذي الكريم

[خالد أبو هشام]

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

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

تقبل شكرى و إمتنانى مع تقديرى و شكرى لمجهود سيادتكم  

 

   

Questions.rar

[أ / محمد صالح]

سهلة جدا أستاذي الفاضل

حاليا أنا على موبايل ممكن أعملها لحضرتك بعد العودة من العمل

وممكن تحاول فيها

يتم عمل تقرير لجدول questions

يعرض عمودين إجابة الطالب والإجابة الصحيحة فقط

وإضافة سطر لتسجيل إجابة الطالب في حقل student_answer

Me.student_answer=me.Answers

إن شاء الله تقدر تعملها

 

[خالد أبو هشام]

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

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

مرفق لسيادتكم ملف توضيحى

مع الشكر و الإمتنان لسيادتكم 

Questions.rar

[أ / محمد صالح]

1 ساعه مضت, خالد أبو هشام said:

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

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

مرفق لسيادتكم ملف توضيحى

مع الشكر و الإمتنان لسيادتكم 

Questions.rar

وفقك الله لكل خير أستاذ خالد

* لقد استعملت كود

Me.StudentAnswer = Me.Text33

بدلا من 

Me.student_answer=me.Answers

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

ولا أعتقد أنك تريد أن يكتب الطالب رقم الإجابة في هذا المربع ولا يختارها بالضغط على زر الاختيار answers

والثاني يجعل إجابة الطالب هي الرقم الذي اختاره من الإجابات الأربعة

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

والأولى كما قلت لك عرض (رقم السؤال ورقم الإجابة الصحيحة ورقم إجابة الطالب) في تقرير

وهذا هو الملف بعد بعض التعديلات حتى يتناسب مع ما طلبت

وفقنا الله وإياكم لكل خير

Questions2.rar

[خالد أبو هشام]

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

هل يمكن لسيادتكم إرسال الملف ثانية بتنسيق أوفيس 2007 لأنى عند فتح الملف المرفق تصل رساله أن قاعدة البيانات غير متعرف عليها

مع وافر الشكر و التقدير لسيادتكم

[أ / محمد صالح]

8 ساعات مضت, خالد أبو هشام said:

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

هل يمكن لسيادتكم إرسال الملف ثانية بتنسيق أوفيس 2007 لأنى عند فتح الملف المرفق تصل رساله أن قاعدة البيانات غير متعرف عليها

مع وافر الشكر و التقدير لسيادتكم

هي بالفعل بتنسيق 2007

فلم يتم تعديل تنسيق الملف

فقط التعديلات المذكورة سابقا

وفقنا الله وإياكم لكل خير

[خالد أبو هشام]

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

عند فتح الملف تظهر الرسالة  الخطأ المرفقة - لا أعرف ماهى مشكلة الملف هل هى فى التنسيق أم فى الملف نفسه

مع وافر الشكر و التقدير لسيادتكم

[أ / محمد صالح]

أخي الكريم

يمكنك عملها بنفسك من آخرملف تم رفعه من حضرتك 

Questions.rar

الخطوات التي تمت على آخر ملف

* حذف زر السؤال السابق 

* إخفاء إجابة الطالب والإجابة الصحيحة من نموذج chapter أو حذفهما

* تعديل كود زر التسليم إلى

Private Sub Command45_Click()
If Not (IsNull(Me.answers)) Then
qcount = qcount + 1
If Me.answers = Val(Me.CorrectAnswer) Then
truecount = truecount + 1
End If
If qcount <= DCount("*", "Questions_Entry") Then Me.StudentAnswer = Me.answers
If qcount + 1 <= DCount("*", "Questions_Entry") Then
DoCmd.GoToRecord , , acNext
Me.answers = Null
Else
DoCmd.OpenForm "result"
Forms!result!lblcount.Caption = qcount
Forms!result!lbltrue.Caption = truecount
Forms!result!lblpercent.Caption = Format(truecount / qcount * 100, "%00.00")
DoCmd.Close acForm, Me.Name
End If

Else
MsgBox "يجب اختيار إجابتك"
End If
End Sub

* تعديل كود زر الإغلاق في نموذج result إلى

Private Sub Command41_Click()
DoCmd.SetWarnings 0
DoCmd.RunSQL "update Questions_Entry set StudentAnswer=null"
DoCmd.SetWarnings 1
DoCmd.Close
End Sub

* طبعا تصميم تقرير من خلال المعالج وإضافة رقم السؤال والإجابة الصحيحة وإجابة الطالب فقط

* أو يمكنك تصميم نموذج باستخدام المعالج وإضافة نفس الحقول

كل عام والجميع بخير وسعادة ورضا

[المهندس خالد]

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

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

فى زر عرض النتيجة النموذجية عند نهاية  عرض الإجابات يظهر رساله خطأ

ظهور النموذج  بحجم كبير رغم أن النموذج صغير

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

مرفق لسيادتكم ملف للتوضيح         مع وافر الشكر و التقدير

DB.rar

[أ / محمد صالح]

عفوا هناك مشكله .

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

كود الخطاء : 2S328/1

 

تقريبا تم حذف المرفق

[خالد أبو هشام]

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

ارفق لسيادتكم ملف للتوضيح حيث توجد بعض المشكلات و  تتضمن

فى زر عرض النتيجة النموذجية عند نهاية  عرض الإجابات يظهر رساله خطأ

ظهور النموذج  بحجم كبير رغم أن النموذج صغير

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

         مع وافر الشكر و التقدير

 

Questions_4.rar

[أ / محمد صالح]

تفضل أخي الكريم

تم تعديل زر السابق وعرض الإجابة والخروج

زأضافة موديول لإخفاء الأكسس مع تغيير حاصية منبثق popup ومشروط modal إلى نعم

 

mas_Questions_4.rar

[خالد أبو هشام]

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

واجهت نفس المشكلة حيث لا يتم فتح قاعدة البيانات  لتظهر رسالة خطأ بأن لا يتعرف على تنسيق قاعدة البيانات علماً أننا نستخدم نفس البرنامج اكسس  2007  أ عتقد أن المشكلة يمكن أن تكون بسبب برنامج ضغط الملفات ، هل يمكن نسخ الكود المطلوب للتوضيح 

تقبل شكرى و إحترامي لسيادتكم

 

[خالد أبو هشام]

سعادة الاستاذ الفاضل محمد صالح السلام عليكم

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

مع وافر الشكر و التقدير  

E_Exams.rar

[أ / محمد صالح]

بارك الله لك أستاذي الفاضل

يمكنك تعديل كود زر فتح النموذج إلى

DoCmd.OpenForm "Exam", , , "[Chapter_Question] = """ & Forms!startup!Label72.Caption & """"

أو

DoCmd.OpenForm "Exam", , , "[Chapter_Question] = """ & Me.Label72.Caption & """"

بدلا من

DoCmd.OpenForm "Exam", , , "[Chapter_Question]  = Me.[Label74].caption"

ملحوظة:

ياعم الحاج احنا ناس غلابة قوي

بلاش حكاية سعادة الأستاذ ال.... ال...... والكلام الكبير ده

الواحد ياخد قلم في نفسه ولا حاجة

ربنا يصلح أحوالنا جميعا