سلام . چطور میتوان Userی را که با Password خودش وارد برنامه شده در فرمهای مختلف برنامه شناسایی کرد.

[zamaniabs]

دوستان با سلام و تشکر از پاسخهاتون
برنامه ای دارم که ابتدا در یک فرم LOGIN چندین نفر میتوانند وارد برنامه بشن میخوام در دیگر فرمها بدونم که کدام User در حال استفاده از برنامه است؟

[Abbas Amiri]

لیست کاربران متصل را با تابع زیر می توان بدست آورد:


Function MultipleUsersList()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i, j As Long
Dim ConnectedUsers() As String
Set cn = CurrentProject.Connection

Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
While Not rs.EOF
If rs.Fields("CONNECTED") Then
Debug.Print rs.Fields("LOGIN_NAME")
ReDim Preserve ConnectedUsers(j)
ConnectedUsers(j) = rs.Fields("LOGIN_NAME")
j = j + 1
End If
rs.MoveNext
Wend
MultipleUsersList = ConnectedUsers
End Function

برای دسترسی به مقادیربرگشتی تابع:


Dim UsersList
Dim k As Integer
UsersList = MultipleUsersList
For k = 0 To UBound(UsersList)
' any Statement
Debug.Print UsersList(k)
Next