alsaamr2002 قام بنشر نوفمبر 25, 2006 قام بنشر نوفمبر 25, 2006 (معدل) الاخوة الخبراء والاعضاء المحترمين السلام عليكم ورحمة الله وبركاته بفضل الله وكرمه قمت بتنفيذ قاعدة بيانات تحوي عدة نماذج وجداول والفضل يعود بعد الله لهذا الصرح التعليمي وايضا منتدى اخر بوجود استاذه كبار بخلقهم واخلاقهم فكل ما وجهتني مشكله بحثت لها عن حل اتفاجأ بعدد كبير من الحلول من استاتذتنا الاعزاء فلهم مني وافر الشكر والتقدير واسأل الله ان يجعل ذلك في موازين اعمالهم اخواني واستاتذتي الكرام لم ارغب في ازعاجكم او زيادة اعبائكم لو وجدت حل لهذه المشكله والتي تتمثل في الاتي لدي نموذج بحث بالرقم الخاص ووضعت به زر البحث وزر للحذف اي القيام بالبحث عن السجل المطلوب بواسطه الرقم الخاص ومن ثم الضغط على زر الحذف لحذف هذا السجل وهي تعمل بشكل ممتاز فقط في حال وجود البيانات المطلوبة في جداول القاعدة المطلوب من الاساتذه الكرام التالي : بالنسبة لزر البحث ارجو تعديل الكود بحث لو تم ادخال رقم غير موجود في القاعدة تخرج رسالة تفيد المستخدم بعدم وجود هذا الرقم الامر الاخر في حال لم يتم ادخل رقم في مربع النص تخرج رسالة تفيد المستخدم بضرورة ادخال الرقم اما زر الحذف فقمت باضافة كود له بحيث لايحذف البيانات الا بعد ادخل كلمة المرور وهو يعمل بشكل ممتاز الا انه واجهتني مشكلة عندما ادخل رقم غير موجود في قاعدة البيانات او حتى بدون ادخال رقم وقمت بالضغط على زر الحذف لتجربته واختبار عمله خرجت لي الرسالة التالية ارجوا من الاساتذه الكرام تعديل كود الحذف بحيث لا تظهر هذه الرسالة للمستخدم وايضا للخوف من قيامه بالعبث بالكواد الموجوده في تلك الصفحه . كود زر البحث 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 قام بنشر نوفمبر 26, 2006 الكاتب قام بنشر نوفمبر 26, 2006 الاخوة الكرام هل الموضوع صعب لهذه الدرجه ؟ ما زال لدي بارقة امل بالرد من احد الخبراء الكرام
alsaamr2002 قام بنشر نوفمبر 27, 2006 الكاتب قام بنشر نوفمبر 27, 2006 عسى المانع خير اين الخبراء الا يوجد امكانية لعمل ذلك
بو يوسف الراشد قام بنشر نوفمبر 27, 2006 قام بنشر نوفمبر 27, 2006 ارجو أن ترفق لنا المثال كي نتمكن من حل المشكلة وإن كان حجم القاعة كبير ..... حاول نقل الجدول والنموذج الخاص بالمشكلة فقط لتصغر القاعدة ومن ثم إرفاق القاعدة..
alsaamr2002 قام بنشر نوفمبر 27, 2006 الكاتب قام بنشر نوفمبر 27, 2006 (معدل) اخوي بو يوسف الراشدروح يا شيخ الله يجبر بخاطرك مثل ما جبرت بخاطرنا استاذي الكريم تم ارفاق جزاء من القاعدة بعد حذف اكثر من خمس نماذج استعلام بمرفقاتها من المكرو والتقارير الخ... لاحتواءها على صور للخلفيات .... للتقليل من حجم القاعدة البالغ 18 ميغا تقريبا وتركت لك الصفحة الرئيسية وشاشة الاستعلام ونموذج بحث بالرقم الخاص المطلوب التعديل عليه حيث في الوقت الحالي عند الضغط على زر الحذف بدون ادخال رقم في مربع النص او عند ادخال رقم غير موجود في قاعد البيانات تظهر لي الصور المرفقه في اول المشاركه ولخوفي ان يقوم المستخدم بالعبث بالكود الظاهر امامه ارغب في تعديله بحيث تخرج له رسالة تفيده بعدم وجود بيانات للرقم المدخل في مربع النص .الله يوفقك بعد فتح القاعدة توجه الى نموذج البحث في واختيار بحث بالرقم الخاص ستجد الازرار التاليه كما هو موضح في الصور واجراء التعديل المطلوب على الكود شاكرين ومقدرين حسن تعاونكم معنا 1000.rar تم تعديل نوفمبر 27, 2006 بواسطه alsaamr2002
rudwan قام بنشر ديسمبر 3, 2006 قام بنشر ديسمبر 3, 2006 ملفك يحتاج الى كثير من التعديل عموما أرفق لك ملفا فيه العديد من المزيا , مثل البحث , الحذف , الاضافة , مع وجود رسائل الخطأ بعدم وجود السجل حاول الاستفادة منه و تطبيق الأكواد الواردة فيه Search.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.