زر أمر ذو رقم سري

[محمد الجوهر]

أخواني في الله اعضاء هذا المنتدى الرائع

أواجه بعض المشاكل التي استعصيت علي في الحقيقة وبأذن الله سأجد الحل عند أعضاء هذا المنتدى.

1- قد بحثت عن كود اعادة الترقيم التسلسلي تلقائيا وقمت بتطبيقه لكن لا جدوى

2- أريد عمل زر أمر حذف سجل لكن بضغط عليه يقوم بطلب رقم سري لتفعيل الامر بعد ادخال الرقم السري يقوم الامر بحذف السجل في النموذج

اللهم فرج هم من يقوم بمساعدتي وجعله بموازين أعماله الصالحة

بوركتم

[ابوعمرالمصري]

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
: إحتواء الكود ضمن المحرر

[أبو آدم]

جزيت خيرا أبا عمر

نفع الله بك

................

[أبو آدم]

أخي محمد الجوهر

الأخ أبو عمر قدّم لك حلاً مثالياً ..... جزاه الله خيراً ، في مسألة زر الأمر ذو الرقم السري

يرجى متابعة الموضوع أولاً في موضوع مستقل ، حفاظاً على قواعد المشاركة في المنتدى.

(تمت الاجابة)

[الصمت المتحدث]

في حالة تفشي كلمة السر والقاعدة مغلقة حينها ماذا يمكن عمله كحل ؟

طبعا إذا ما وصلنا لهذه المرحلة فسيكون من الصعب تغيير كلمة السر

ولهذا أطرح السؤال الأن بينما ما تزال القاعدة مفتوحة بحثا عن حل برمجي

يفيد في تغيير كلمة السر اذا ما انتشرت

في انتظار حل شيق أستودعكم الله الذي لا تضيع ودائعه

[ahmad_mustafa]

في ٢٠‏/١٢‏/٢٠١١ 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