یافتن لیست کاربر هایی که با برنامه کار میکنند

با سلام و عرض تشکر
برنامه اکسسی طراحی کردم که کاربران زیادی از اون استفاده میکنند، چطور میتونم لیستی از کاربرانی که هر لحظه از برنامه استفاده میکنند و برنامه اکسس من روی سیستم آنها فعال هست رو چک کنم؟

شايد اين كد به دردتون بخوره:

Option Compare Database

Option Explicit

Sub ShowUserRosterMultipleUsers()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim i, j As Long

Dim db As Database

Dim rsDao As DAO.Recordset



Set cn = CurrentProject.Connection

Set db = CurrentDb

Set rsDao = db.OpenRecordset("Users", dbOpenTable, dbAppendOnly + dbFailOnError)



' The user roster is exposed as a provider-specific schema rowset

' in the Jet 4.0 OLE DB provider.  You have to use a GUID to

' reference the schema, as provider-specific schemas are not

' listed in ADO's type library for schema rowsets



Set rs = cn.OpenSchema(adSchemaProviderSpecific, _

, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")



'Output the list of all users in the current database.

Do While Not rs.EOF

    rsDao.AddNew

    rsDao!User.Value = rs.Fields(0)

    rsDao.Update

    rs.MoveNext

Loop

End Sub

براي ذخيره اسامي كاربران يك جدول با نام users درست كن كه يك فيلد با نام user داشته باشه.
.................
موفق باشيد

نقل قول:

---

نوشته شده توسط amirzazadeh

شايد اين كد به دردتون بخوره:

Option Compare Database

Option Explicit

Sub ShowUserRosterMultipleUsers()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim i, j As Long

Dim db As Database

Dim rsDao As DAO.Recordset



Set cn = CurrentProject.Connection

Set db = CurrentDb

Set rsDao = db.OpenRecordset("Users", dbOpenTable, dbAppendOnly + dbFailOnError)



' The user roster is exposed as a provider-specific schema rowset

' in the Jet 4.0 OLE DB provider.  You have to use a GUID to

' reference the schema, as provider-specific schemas are not

' listed in ADO's type library for schema rowsets



Set rs = cn.OpenSchema(adSchemaProviderSpecific, _

, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")



'Output the list of all users in the current database.

Do While Not rs.EOF

    rsDao.AddNew

    rsDao!User.Value = rs.Fields(0)

    rsDao.Update

    rs.MoveNext

Loop

End Sub

براي ذخيره اسامي كاربران يك جدول با نام users درست كن كه يك فيلد با نام user داشته باشه.
.................
موفق باشيد

---

تشکر ولی متوجه نشدم
بعد ساختن جدولی که فرمودید باید یک فرم بسازم ، در قسمت general فرم این کد رو وارد کنم؟ باید text box بسازم که اسامی افرادی که برنامه روی سیستمشون به اشتراک گذاشته شده و فعاله رو نمایش بده؟ در صورت امکان فایل پیوست کنید یا توضیح بیشتری بدین.. ممنونم

سلام
يك نمونه از سايت پروگرامر براتون اپلود كردم.اميدوارم به دردتون بخوره.