أين أضع صندوق المسج بين هذا الأمر

[lyla]

السلام عليكم : وضعت زر أمر يحذف السجل وكتبت عبارة كلمة سر . إذا تحقق حيحذف السجل وإذا لم يتحقق (كلمة السر) فلن يتم حذف السجل. سراحة حيرتني الجملة فعندما أضغط على الزر يطلب كلمة السر ويقوم بحذف السجل في كلا الحالتين إن كانت كلمة السر صح أو خطأ !!! . فأين أضع كود شرط كلمة السر بين سطور إجراء كود الحذف.

هذا إجراء أمر الحذف :

Private Sub Command18_Click() On Error GoTo Err_Command18_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command18_Click:
    Exit Sub

Err_Command18_Click:
    MsgBox Err.Description
    Resume Exit_Command18_Click

End Sub

وهذا كود كلمة السر :

If InputBox("أدخلي كلمة السر") <> "12345" Then
Cancel = True
End If

مع الشكر والتقدير

[ahmedbadr]

Private Sub Command18_Click()

if me.password_filde="12345"then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

else
msg box "لقد قمت بإدخال كلمة سر خاطئة لن يتم الحذف"
end if
end else

تم تعديل مارس 27, 2006 بواسطه ahmedbadr

[lyla]

شكرا أخي الكريم على تجاوبك بس مامشي الحال . أوفر عليك وحطيت لك ملف مثال. ممكن تعدل عليه لوتكرمت .

http://www.geocities.com/art_rtu/Del.zip

[lyla]

ألف شكر أخ أحمد هذا ما أردته.

[ahmedbadr]

علي ماذا يا أختاه

كلنا هنا لنساعد بعضنا البعض

أحمد بدر

[التقني]

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

نرفق مثال الأخ أحمد بدر جزاه الله خيرأ

وينقل الى الارشيف المختص

DEL.rar