اخواني واستاتذتي الكرام
اقدم لكم وافر الشكر والتقدير على انشاء مثل هذا الصرح التعليمي والحقيقة انني استفدته منه الكثير في تصميم قاعدة بيانات تخص عملي ( مع عدم بخس حق منتديات اخرى في نفس المجال ) وظننت ان وقاعدة البيانات الان جاهزة للعمل عليها ولكن عند اختبار القاعدة قبل تسليمها وجدت مشكلة صغيرة وارجوا من له القدرة على حلها ان لا يبخل علينا بذلك .
لم ارغب في ازعاجكم او زيادة اعبائكم لو وجدت حل لهذه المشكله والتي تتمثل في الاتي
لدي نموذج بحث بالرقم الخاص ووضعت به زر البحث وزر للحذف اي القيام بالبحث عن السجل المطلوب بواسطه الرقم الخاص ومن ثم الضغط على زر الحذف لحذف هذا السجل وهي تعمل بشكل ممتاز فقط في حال وجود البيانات المطلوبة في جداول القاعدة
المطلوب من الاساتذه الكرام التالي :
بالنسبة لزر البحث ارجو تعديل الكود بحث لو تم ادخال رقم غير موجود في القاعدة تخرج رسالة تفيد المستخدم بعدم وجود هذا الرقم الامر الاخر في حال لم يتم ادخل رقم في مربع النص تخرج رسالة تفيد المستخدم بضرورة ادخال الرقم
اما زر الحذف فقمت باضافة كود له بحيث لايحذف البيانات الا بعد ادخل كلمة المرور وهو يعمل بشكل ممتاز الا انه واجهتني مشكلة عندما ادخل رقم غير موجود في قاعدة البيانات او حتى بدون ادخال رقم وقمت بالضغط على زر الحذف لتجربته واختبار عمله خرجت لي الرسالة التالية
ارجوا من الاساتذه الكرام تعديل كود الحذف بحيث لا تظهر هذه الرسالة للمستخدم وايضا للخوف من قيامه بالعبث بالكواد الموجوده في تلك الصفحه .
كود زر البحث
Private Sub امر31_Click() Form.RecordSource = "ser3" End Sub
كود زر الحذف
Private Sub أمر60_Click()
'TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
Dim Pass
str_Title = "كلمة المرور مطلوبة"
str_Prompt = "ادخل كلمة المرور لكي يتم السماح لك بالتعديل"
Pass = InputBox(str_Prompt, str_Title)
If Pass = "1111" Then ' 1111 : عدل هذه العبارة بكلمة المرور لديك
Me.AllowEdits = True
MsgBox "تم السماح لك بتعديل البيانات وحفظها", , "كلمة المرور صحيحة"
Else
Me.AllowEdits = False
MsgBox "كلمة المرور غير صحيحة" & Chr(13) & "لا يمكنك تعديل البيانات", , "تنبيه"
Exit Sub
End If
If MsgBox("هل أنت متأكد من حذف السجل الحالي ؟", vbYesNo + vbQuestion, "تأكيد الحذف") = vbYes Then
DoCmd.SetWarnings False
Me.AllowEdits = True
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Me.[t1].SetFocus
End Ifملاحظة :
1 - سبق ان طرحت نفس الموضوع ولكن لم اجده عندما قمت بالبحث عنه
2 - تم ارفاق جزاء من القاعدة بعد حذف اكثر من خمس نماذج استعلام بملحقاتها وكذلك حذف صور الخلفيات التي تم اردراجها في القاعدة حيث وصل حجم القاعدة بعد الضغط والاصلاح الى 18 ميغا
