إلى أهل الخبرة والمعرفة
السلام عليكم ورحمة الله وبركاته
كيف أستطيع استخدام هذه الأكواد على النموذج بحيث يمكن للمستخدمين المحددين في القائمة من العمل على البرنامج الذي أضعه ، والأكواد هي :
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
ولكم خالص التقدير