[ تمت الإجابة ]عدم تكرار رقم الجزء في برنامج لمتابعة حفظ القرآن الكريم

الأخ الفاضل / حسين السرحاني .. المحترم

السلام عليكم ورحمة الله وبركاته،،

المطلوب هو:

1- لا يتكرر رقم الجزء للشخص الواحد في نفس الجدول

2- لا يزيد رقم الجزء عن 30 ولا يقل عن الرقم 1

بعد الاطلاع على قاعدة البيانات يكون شغلنا كله في الجدول tblQuizzes

حل المشكلة الأولى:

أولا قبل كل شيء يجب تحويل نوع الحقل ()JozeQuizNo من نص إلى رقم ( ضروري)

ثانيا: قم بإزالة الأرقام المكررة في الحقل (JozeQuizNo) حتى تتم العملية بسلام

ثالثا:حتى لا يتكرر رقم الجزء للشخص الواحد أنت بحاجة إلى عمل مفتاح أساسي ( كيف ؟!!)

لعمل مفتاح أساسي للحقل (SajeenNoAlhoeah) مع الحقل (JozeQuizNo) تقوم بتحديد الحقل 1 ثم تضغط Ctrl وتحدد الحقل2 ثم تضغط على علامة المفتاح الأساسي.

كما هو موضح أدناه

حل المشكلة الثانية :

نقوم بكتابة شرط في قاعدة التحقق من الصحة حقل (JozeQuizNo) وهو أكبر أو يساوي 1 و اصغر أو يساوي 30 لتكون بالشكل التالي:

كما هو موضح أدناه

أرجو ان يكون هو المطلوب

أخوك مشكاة

كل الشكر والقدير لك أخي الكريم Mishkat ibrahim على الرد والحل السريع . :D :D :D

وهل من الممكن وضع رسالة للمستخدم تنبة بتكرار رقم الجزء بدلاً من رسالة الأكسيس ... ؟؟؟

كما أرجو منك أخي الكريم لو تكرمت أن تشرح لي الحل الذي وضعتة للطريقة الأولى وما هي الفائدة من تحديد الحقلين معاً ... ؟؟؟

وجزاك الله كل خير وجعله في موازين حسناتك عنده ...

الأخ / حسين السرحاني .. المحترم

السلام عليكم ورحمة الله وبركاته ،،

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

ثانيا : بالنسبة للشرح على الطريقة الأولى وهي وضع مفتاح أساسي لحقلين ما هو الهدف منه

نبدأ بشرح ثانيا ثم اولا

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

لتحقيق منع تكرار رقم الجزء مع اسم الشخص بحثنا في الجدول لنجد ان رقم الجزء يمثله الحقل (JozeQuizNo)

واسم الشخص يمثله الحقل (SajeenNoAlhoeah) فتم اختيارهما على هذا الأساس

وقمنا بتحويل الحقل (JozeQuizNo) من نص الى رقم حتى يقوم الاكسس بمعالجة البيانات بشكل صحيح لأن المعلومات المدخلة هي (ارقام)

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

هذا بالنسبة الى الفقرة الاولى

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

بالنسبة لرقم الخطأ مع رسالة الأكسس في حالتنا هذه هو (3022)وهي كما موضحه بالصورة

طيب كيف يتم التعامل معها نفتح النموذج الفرعي FrmQuizzesSub بوضع التصميم ونذهب الى حدث -عند الخطأ- ونضع الكود التالي:

'مشكاة
FHdate = Format([QuizDate], "yyyy/mm/dd")
Const conErrDuplicateKey = 3022
Select Case DataErr
Case conErrDuplicateKey
	  MsgBox "تم ادخال سجل مكرر للجزء رقم " & [JozeQuizNo] & "  بتاريخ  " & FHdate & "سيتم التراجع عنه الآن ", vbCritical, "خطأ رقم " & DataErr
			  Response = acDataErrContinue
				Me.Undo
Case Else
  Response = acDataErrDisplay
End Select
'مشكاة

وهذه صورة توضح المقصود

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

أرجو ان يكون الشرح مفيدا لما طلبت

أخوك مشكاة

Qu_UP.rar

كل الشكر والقدير لك أخي الكريم مشكاة على ماقدمته لي من حلول لمشاكل كادت أن توقف هذا العمل الذي يعين أهل القرآن وحفظته

وأرجو من الله تعالى أن يجعل عملك هذا في موازين حسناتك عندة يوم لا ينفع مالاً ولا بنون ...

وجزاك الله كل خير وغفر لك ولوالديك ولجميع المسلمين ...

اللهم آمين

اللهم آمين

اللهم آمين

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة