حذف سجل - حذف مشروط بكلمة مرور

[nccyma]

الأخوه بالمنتدى

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

وضعت أمر حذف بنموذج وأردت بعد النقر عليه أن يقوم بطلب رقم سري قبل الحذف وكذلك بعد الرقم السري مباشراً إذا كان صحيح يظهر مربع حوار يخبرك بأنه سوف يتم حذف السجل الفلاني هل أنت متأكد...الخ

ولدي أمثله من هذا المنتدي الرائع أحدهم يطلب رقم سري والأخر يخبرك بما سوف يتم حذف وأردت جمع الكود ين معاً بحيث يطلب الرقم ثم يخبرك بالسجل الذي سوف يتم حذفه.. ولكن لم أوفق بدمج الكودين!!

مع أني تعلمت كتابة الأكواد دون سابق خبره وكذاك فك رموز معظم الاكواد وأصبحت لأ أستخدم القص واللقص إلا نادر, حتى أيقنت أنهما لايدمجان بأمر واحد

أمل من خبراء الأكود تزويدي به لرويته ... ولتعلم الأكواد أكثر

لكم مني كل الشكر ولهذا المنتدي الأكثر من رائع

[rudwan]

ضع هذا الكود في حدث عند النقر

Private Sub ClosCmd_Click() On Error GoTo Err_ClosCmd_Click
dim m as string
Dim Ae As DAO.Recordset
Const mb_ok = 0, mb_okcancel = 1
Const mb_yesnocancel = 3, mb_yesno = 4
Const mb_iconstop = 16, mb_iconquestion = 32
Const mb_defbutton2 = 256, idyes = 6, idno = 7


m=inputbox(" enter your password" )
if m= " correct answer " then

Title = "      رسالة تنبيه "
Msg = ("    هل أنت متأكد من أنك تريد حذف السجل ؟ ")

dgdef = mb_yesno + mb_iconstop + mb_defbutton2
Response = MsgBox(Msg, dgdef, Title)
If Response = idyes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
end if
end if

[nccyma]

rudwan

أشكرك أخي الكريم على سرعة ردك

ولكن

أرجو التكد من الكود فقد وضعته تحت زر أمر في حدث عن النقر ولكن لم يقم بأي إجراء وراجعته أكثر من مره وأعرف أين يمكن الخلل.

أخوكــ ..العلي

[rudwan]

المعذره , أنا قطعت هذا الكود من احد النماذج عندي , و نسيت انهائه

على كل حال هذا هو بعد التعديل

Private Sub Command4_Click() On Error GoTo Err_ClosCmd_Click
Dim m As String
Const mb_ok = 0, mb_okcancel = 1
Const mb_yesnocancel = 3, mb_yesno = 4
Const mb_iconstop = 16, mb_iconquestion = 32
Const mb_defbutton2 = 256, idyes = 6, idno = 7


m = InputBox(" enter your password")
If m = "correct answer" Then

Title = " رسالة تنبيه "
Msg = (" هل أنت متأكد من أنك تريد حذف السجل ؟ ")

dgdef = mb_yesno + mb_iconstop + mb_defbutton2
Response = MsgBox(Msg, dgdef, Title)
If Response = idyes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
End If
Exit Sub
Err_ClosCmd_Click:
MsgBox Err.Description

End Sub

وشكرا على التنبيه

تم تعديل يناير 31, 2005 بواسطه rudwan

[nccyma]

أشكرك اخي

ولكن

تمنيت أن الكود يخبرني بالسجل الذي سوف يحذف وكذلك ظهرة لي رسالة تأكيد أخرى من الأكسيس وهي المعروفه. سوف يتم حذف واحد سجل..

أشكرك على فتح الباب لي وسوف أقوم بتطوير الكود

أخوك. العلي (y)