أريد عمل زر أمر لا يتم تنفيذة إلا بكلمة سر

[helmy_foad]

إذا قمت بعمل إستعلام حذف لكى يقوم بحذف بيانات جدول

كيف أجعل زر تشغيل هذا الإستعلام عن طريق كلمة مرور لكى أمنع المسح الخاطئ

بحيث أنة عند الضغط على الزر يطلب كلمة السر ، إذا تم إدخالها بصورة سليمة يتم تشغيل الإستعلام و حذف جميع البيانات

[helmy_foad]

الحمد لله وصلت للحل

و هو من تطبيقات الاخت زهرة وفقها الله

Private Sub command20_Click()
Dim strPasswd
    strPasswd = InputBox("الرجاء ادخال الرقم السري الصحيح", "Enter Password")
    If strPasswd = "" Or strPasswd = Empty Then
        MsgBox "لم يتم ادخال الرقم السري", vbInformation, "Required Data"
        Exit Sub
    End If
    If strPasswd = "helmy" Then
    DoCmd.Close
     DoCmd.Openquery "querydel", acNormal
    Else
        MsgBox "معذرة اخي الكريم الرقم السري خاطىء", vbOKOnly, "Important Information"
        Exit Sub
    End If
End Sub

حيث أن command20 هو أسم الزر و helmy هو كلمة السر و querydel هو اسم الإستعلام و ممكن إستخدامة لفتح نموذج بتغيير العبارة

DoCmd.Openquery "querydel", acNormal

إلى

DoCmd.Openform "form1", acNormal

حيث form1 هو أسم النموذج