محمد الجوهر قام بنشر ديسمبر 20, 2011 مشاركة قام بنشر ديسمبر 20, 2011 أخواني في الله اعضاء هذا المنتدى الرائع أواجه بعض المشاكل التي استعصيت علي في الحقيقة وبأذن الله سأجد الحل عند أعضاء هذا المنتدى. 1- قد بحثت عن كود اعادة الترقيم التسلسلي تلقائيا وقمت بتطبيقه لكن لا جدوى 2- أريد عمل زر أمر حذف سجل لكن بضغط عليه يقوم بطلب رقم سري لتفعيل الامر بعد ادخال الرقم السري يقوم الامر بحذف السجل في النموذج اللهم فرج هم من يقوم بمساعدتي وجعله بموازين أعماله الصالحة بوركتم رابط هذا التعليق شارك More sharing options...
ابوعمرالمصري قام بنشر ديسمبر 20, 2011 مشاركة قام بنشر ديسمبر 20, 2011 (معدل) Private Sub Command4_Click() 'توضع تحت حدث الضغط في الأمر الخاص بك On Error GoTo Err_Command4_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Command4_Click: Exit Sub Err_Command4_Click: 'MsgBox Err.Description Resume Exit_Command4_Click End Sub Private Sub Form_AfterDelConfirm(Status As Integer) 'السطر التالي عدم أظهار رسالة حذف سجل DoCmd.SetWarnings True End Sub Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) 'السطر التالي عدم أظهار رسالة حذف سجل DoCmd.SetWarnings False End Sub Private Sub Form_Delete(Cancel As Integer) ' هذا السطر يقوم بتعريف متغير يحمل كلمة السر Dim mypassword As Variant ' ' هذا المتغير يتم أدخال عن طريق مربع أدخال mypassword = InputBox("are you sure you want to delete this record", "Delete") 'password = enter your password ' هذا السطر لو كلمة المرور صحيحة يقوم بحذف السجل If mypassword = "password" Then Cancel = False Else ' كلمة المرور خطأ لا يحذف السجل Cancel = True End If 'DoCmd.SetWarnings True End Sub الأخ الكريم لو تعرف المبادئ الأساسية للفيجوال بيزيك ابليكيشن قم بنسخ الكود السابق في الأحداث المناسبة للنموذج الخاص بك لو في مشكلة واجهتك أرسلها تم تعديل ديسمبر 22, 2011 بواسطه nart lebzo : إحتواء الكود ضمن المحرر رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر ديسمبر 22, 2011 مشاركة قام بنشر ديسمبر 22, 2011 جزيت خيرا أبا عمر نفع الله بك ................ 1 رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر ديسمبر 23, 2011 مشاركة قام بنشر ديسمبر 23, 2011 أخي محمد الجوهر الأخ أبو عمر قدّم لك حلاً مثالياً ..... جزاه الله خيراً ، في مسألة زر الأمر ذو الرقم السري يرجى متابعة الموضوع أولاً في موضوع مستقل ، حفاظاً على قواعد المشاركة في المنتدى. (تمت الاجابة) رابط هذا التعليق شارك More sharing options...
الصمت المتحدث قام بنشر يناير 6, 2012 مشاركة قام بنشر يناير 6, 2012 في حالة تفشي كلمة السر والقاعدة مغلقة حينها ماذا يمكن عمله كحل ؟ طبعا إذا ما وصلنا لهذه المرحلة فسيكون من الصعب تغيير كلمة السر ولهذا أطرح السؤال الأن بينما ما تزال القاعدة مفتوحة بحثا عن حل برمجي يفيد في تغيير كلمة السر اذا ما انتشرت في انتظار حل شيق أستودعكم الله الذي لا تضيع ودائعه رابط هذا التعليق شارك More sharing options...
ahmad_mustafa قام بنشر سبتمبر 4, 2017 مشاركة قام بنشر سبتمبر 4, 2017 (معدل) في ٢٠/١٢/٢٠١١ at 14:19, ابوعمرالمصري said: Private Sub Command4_Click() 'توضع تحت حدث الضغط في الأمر الخاص بك On Error GoTo Err_Command4_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Command4_Click: Exit Sub Err_Command4_Click: 'MsgBox Err.Description Resume Exit_Command4_Click End Sub Private Sub Form_AfterDelConfirm(Status As Integer) 'السطر التالي عدم أظهار رسالة حذف سجل DoCmd.SetWarnings True End Sub Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) 'السطر التالي عدم أظهار رسالة حذف سجل DoCmd.SetWarnings False End Sub Private Sub Form_Delete(Cancel As Integer) ' هذا السطر يقوم بتعريف متغير يحمل كلمة السر Dim mypassword As Variant ' ' هذا المتغير يتم أدخال عن طريق مربع أدخال mypassword = InputBox("are you sure you want to delete this record", "Delete") 'password = enter your password ' هذا السطر لو كلمة المرور صحيحة يقوم بحذف السجل If mypassword = "password" Then Cancel = False Else ' كلمة المرور خطأ لا يحذف السجل Cancel = True End If 'DoCmd.SetWarnings True End Sub الأخ الكريم لو تعرف المبادئ الأساسية للفيجوال بيزيك ابليكيشن قم بنسخ الكود السابق في الأحداث المناسبة للنموذج الخاص بك لو في مشكلة واجهتك أرسلها الكود ممتاز لكن كيف يمكن اخفاء كلمة السر او تحويله لنجوم تم تعديل سبتمبر 4, 2017 بواسطه ahmus رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان