كيف أسمح لمستخدمين محددين بالدخول ؟

[ali1975]

إلى أهل الخبرة والمعرفة

السلام عليكم ورحمة الله وبركاته

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

Set rs = Me.Recordset.Clone

rs.FindFirst "[اسم _ المستخدم] = '" & [a1] & "'"

If Not rs.EOF And [a2] = rs("كلمة __ المرور") Then

g_user = [a1]

DoCmd.Close

DoCmd.OpenForm "aa"

Else

MsgBox "???E C????? I??", vbCritical

End If

ولكم خالص التقدير

[rudwan]

هذا الكود يسمح للمستخدم اذا كان مسجلا في جدول المستخدمين من الدخول للبرنامج

مع الانتباه للمسيات

راجع الموضوع التالي

http://www.officena.net/ib/index.php?showtopic=10102