يمكنك وضع كلمة سر لنموذج واليكم الطريقة:-
انشاء نموذجين واعط النموذج الأول اسم form1 والنموذج الثاني form2 وضع في النموذج الأول مربع نص واعطة اسمtext1 وعند حدث بعد التحديث لمربع النص اكتب الكود التالي:-
If text1.Text = "the password" Then
Dim stDocName As String
Dim stLinkCriteria As String
"stDocName = "form2
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
"كلمة السر غير صحيحة"MsgBox
End If
الأخ القيصر يمكن بسهولة وضع كلمة سر للنموذج بكتابة الكود التالي عند حدث فتح في النموذج
كود
.....................................
On Error Resume Next
Dim QQ As Integer
QQ = InputBox("من فضلك أدخل كلمة المرور اللازمة لفتح النموذج", "التأكد من هوية المستخدم")
If QQ = 22 Then
MsgBox "تم قبول كلمة المرور"
Resume
Else
Exit Sub
End If
وشكرا
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…