وضع كلمة سر على النموذج

[فلسطين الجنان]

اريد أن اسأل يا اخوان عن كيفية وضع كلمة سر عندما اقوم بفتح نموذج معين ، انا لا اقصد هنا النموذج الرئيسي ولكن نموذج متفرع من النموذج الاساسي ، ايضاً اخي الكريم هل استطيع ان اجعل البرنامج لا يحفظ تلقائياً ، اي ان لا يحفظ الكتابه الا عندما اضغط على كبسة الحفظ ،

[نرجس الورد]

السلام عليكم

ضع في النموذج عند حدث قبل التحديث الكود التالي :

If MsgBox(" هل تريد حفظ السجل ؟ ", vbYesNo, " تنبيه ") -= vbNo Then
Cancel = True
SendKeys "{ESC}"
Exit Sub
End If

تم تعديل فبراير 25, 2008 بواسطه نرجس الورد

[Bluemind]

اريد أن اسأل يا اخوان عن كيفية وضع كلمة سر عندما اقوم بفتح نموذج معين ، انا لا اقصد هنا النموذج الرئيسي ولكن نموذج متفرع من النموذج الاساسي ، ايضاً اخي الكريم هل

بعد اذنك نرجس الورد

اخوي اعمل زر و من خصائصه روح على حدث ثم عند النقر ثم اكتب الكود التالي و لاتنسى الباسوورد

 If InputBox("ادخل كلمه المرور", "ادخل كلمه المرور") = "اكتب هنا كلمه المرور" Then
        DoCmd.OpenForm "اكتب اسم النموذج"
    Else
        MsgBox "كلمه المرور غير صحيحه", vbOKOnly, "خطأ"
    End If

استطيع ان اجعل البرنامج لا يحفظ تلقائياً ، اي ان لا يحفظ الكتابه الا عندما اضغط على كبسة الحفظ ،

شوف اخوي هذا الرابط، هذا سؤال من كم يوم جاوبت عليه نفس سؤالك

اضغط هنا

تم تعديل فبراير 25, 2008 بواسطه Knight22666