*كود* كلمة سر عند حذف سجل

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

فى حدث عند الحذف

If MsgBox("  Do you really want to delete this record - are au sure ", vbYesNo, _
   " Delete Confirmation") = vbNo Then
   Cancel = True
   SendKeys "{ESC}"
   Exit Sub
End If

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

1- أنشئ نموذج جديد وضع عليه مربعي نص الأول باسم كلمة_المرور والثاني باسم اسم_المستخدم ثم ضع عليه زر أمر وفي حدث عند النقر عليه ضع :

If Me![كلمة_المرور] = "كلمة" And Me![اسم_المستخدم] = "اسم" Then
DoCmd.OpenForm "اسم النموذج الذي نريد حذف السجل منه"
DoCmd.RunCommand acCmdDeleteRecord
Else
MsgBox "تأكد من كلمة المرور واسم المستخدم ."
' إذا أردت أن يتم إغلاق النموذج إذا أخطأ في كلمة السر فمكن السطر التالي
'DoCmd.Close acForm, Me.Name
End If

واجعله اطاره مربع حوار وازل ازرار التنقل وكل الأمور الأخرى التي لاداعي لها .

غير كلمة واسم الى ما تحب .

2- في النموذج الذي نريد حذف سجله ضع زر أمر وعند حدث عند النقر ضع :

DoCmd.OpenForm "اسم النموذج الجديد السابق", , , , , acDialog

يستحب جداً إلغاء ظهور رسالة حذف السجلات الافتراضية وقد سبق ذكر ذلك في موضوع قريب .

ولك تحياتي

الاخ مصراوي الاخ ابو حمود

جزاكم الله كل خير وزادكم علما

اخي العزيز ابو حمود

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

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

حاولت اكتشاف السبب لكن دون فائدة ارجو منك اخي العزيز المساعدة وجزاك الله كل خير

أسرع حل أرسل لي الملف بعد حذف الجميع ماعد النموذجين والجدول المبني عليه النموذج الذي نريد الحذف منه .

ولك تحياتي

جزالكم الله خيرا جميعا

واتمنى لكم التوفيق

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

لدي سؤال حوال تشفير كلمة التى التي تدخل في فورم inputbox

هل هناك امكانية جعل كلمة السر المدخلة تظهر على شكل نجوم مثلا او اخفاءها عن النظر

في حدث عند نقر الزر

pass = InputBox("ادخل كلمة المرور", "الفريق العربي للبرمجة", " هنا ادخل كلمة المرور", ali)

If VBYESCANCEL = 6 Then

Cancel = False

End If

If pass <> "كلمة_السر" Then MsgBox "خطا": Exit Sub: Cancel = False

ان كان هنال حل ارجو التكرم بالاجابة وفقكم الله لكل خير

ولكم خالص التحية الاكرام

ليس فى ال INPUTBOX

و لكن أردت ذلك فعليك بعمل فورم صغير

لتتمكن من التحكم فيها