الرجاء تعديل كود امر البحث والحذف

[alsaamr2002]

الاخوة الخبراء والاعضاء المحترمين

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

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

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

اخواني واستاتذتي الكرام

لم ارغب في ازعاجكم او زيادة اعبائكم لو وجدت حل لهذه المشكله والتي تتمثل في الاتي

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

المطلوب من الاساتذه الكرام التالي :

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

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

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

كود زر البحث

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

تم تعديل نوفمبر 25, 2006 بواسطه alsaamr2002

[alsaamr2002]

الاخوة الكرام

هل الموضوع صعب لهذه الدرجه ؟

ما زال لدي بارقة امل بالرد من احد الخبراء الكرام

[alsaamr2002]

عسى المانع خير

اين الخبراء الا يوجد امكانية لعمل ذلك

[بو يوسف الراشد]

ارجو أن ترفق لنا المثال كي نتمكن من حل المشكلة

وإن كان حجم القاعة كبير ..... حاول نقل الجدول والنموذج الخاص بالمشكلة فقط لتصغر القاعدة ومن ثم إرفاق القاعدة..

[alsaamr2002]

اخوي بو يوسف الراشد

روح يا شيخ الله يجبر بخاطرك مثل ما جبرت بخاطرنا

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

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



شاكرين ومقدرين حسن تعاونكم معنا

1000.rar

تم تعديل نوفمبر 27, 2006 بواسطه alsaamr2002

[alsaamr2002]

يا شباب ليش مطنشينا

[rudwan]

ملفك يحتاج الى كثير من التعديل

عموما أرفق لك ملفا فيه العديد من المزيا , مثل البحث , الحذف , الاضافة , مع وجود رسائل الخطأ بعدم وجود السجل

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

Search.rar