helmy_foad قام بنشر أبريل 26, 2007 قام بنشر أبريل 26, 2007 إذا قمت بعمل إستعلام حذف لكى يقوم بحذف بيانات جدول كيف أجعل زر تشغيل هذا الإستعلام عن طريق كلمة مرور لكى أمنع المسح الخاطئ بحيث أنة عند الضغط على الزر يطلب كلمة السر ، إذا تم إدخالها بصورة سليمة يتم تشغيل الإستعلام و حذف جميع البيانات
helmy_foad قام بنشر أبريل 27, 2007 الكاتب قام بنشر أبريل 27, 2007 الحمد لله وصلت للحل و هو من تطبيقات الاخت زهرة وفقها الله 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 هو أسم النموذج
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.