الاخوة سؤال اعتقد انه عندكم بسيط جدا ولكنه عندي صعب ومحيرني!!!
لدي زر امر لفتح نموذج وضعت له الكود التالي حتى لا يفتح الا للمستخدم الذي يعمل على البرنامج ، لكن المستخدم عندما يدخل رقمه السري يضهر الرقم غير مشفر ، فكيف يمكنني تشفير مدخلات حقل الادخال في inputbox
الكود
Private Sub ÃãÑ38_Click()
SetOption "Confirm Action Queries", False
Dim password As String
password = InputBox$(" ", "inter password")
If password = DLookup("[password]", "pass", "[no] = [forms]![mainform]![no]and[level2]=true") Then
MsgBox ("welcome")
stDocName = "RERENT"
DoCmd.OpenQuery stDocName, acNormal, acEdit
SetOption "Confirm Action Queries", True
Else
DoCmd.Beep
MsgBox ("sorry..you are not allowed to inter")
End If
End Subارجو حل مشكلتي ...مشكورين
