الاخوة الخبراء والاعضاء المحترمين
السلام عليكم ورحمة الله وبركاته
بفضل الله وكرمه قمت بتنفيذ قاعدة بيانات تحوي عدة نماذج وجداول والفضل يعود بعد الله لهذا الصرح التعليمي وايضا منتدى اخر بوجود استاذه كبار بخلقهم واخلاقهم
فكل ما وجهتني مشكله بحثت لها عن حل اتفاجأ بعدد كبير من الحلول من استاتذتنا الاعزاء فلهم مني وافر الشكر والتقدير واسأل الله ان يجعل ذلك في موازين اعمالهم
اخواني واستاتذتي الكرام
لم ارغب في ازعاجكم او زيادة اعبائكم لو وجدت حل لهذه المشكله والتي تتمثل في الاتي
لدي نموذج بحث بالرقم الخاص ووضعت به زر البحث وزر للحذف اي القيام بالبحث عن السجل المطلوب بواسطه الرقم الخاص ومن ثم الضغط على زر الحذف لحذف هذا السجل وهي تعمل بشكل ممتاز فقط في حال وجود البيانات المطلوبة في جداول القاعدة
المطلوب من الاساتذه الكرام التالي :
بالنسبة لزر البحث ارجو تعديل الكود بحث لو تم ادخال رقم غير موجود في القاعدة تخرج رسالة تفيد المستخدم بعدم وجود هذا الرقم الامر الاخر في حال لم يتم ادخل رقم في مربع النص تخرج رسالة تفيد المستخدم بضرورة ادخال الرقم
اما زر الحذف فقمت باضافة كود له بحيث لايحذف البيانات الا بعد ادخل كلمة المرور وهو يعمل بشكل ممتاز الا انه واجهتني مشكلة عندما ادخل رقم غير موجود في قاعدة البيانات او حتى بدون ادخال رقم وقمت بالضغط على زر الحذف لتجربته واختبار عمله خرجت لي الرسالة التالية
ارجوا من الاساتذه الكرام تعديل كود الحذف بحيث لا تظهر هذه الرسالة للمستخدم وايضا للخوف من قيامه بالعبث بالكواد الموجوده في تلك الصفحه .
كود زر البحث
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
