How can I tell if more than one person has a .mdb file open concurrently?

[mdommer1]

How in code can I determine if the current front end .mdb file is being used by more than one person?

Can I determine how many people?

Can I determine who?

Can I determine who and how many are using a back end .mdb file?

Thanks in advance for sharing your experience.

[ADezii]

The following code will generate a Listing (Debug Window) of currently Logged-On Users along with their Computer Names by using the OpenSchema() Method of the ADO Connection Object. You may also wish to view the supplied Link which contains similar code:

Const conUsers = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"
 
Dim cnn As ADODB.Connection
Dim fld As ADODB.Field
Dim strUser As String
Dim rst As ADODB.Recordset
Dim varValue As Variant
 
Set cnn = CurrentProject.Connection
Set rst = cnn.OpenSchema(Schema:=adSchemaProviderSpecific, SchemaID:=conUsers)
 
'Set  Heading
Debug.Print "Computer,UserName"
 
With rst    'fills Recordset (rst) with User List data
  Do Until .EOF
    intUser = intUser + 1
      For Each fld In .Fields
        If fld.Name = "COMPUTER_NAME" Or fld.Name = "LOGIN_NAME" Then
        varValue = fld.Value
          'Some of the return values are Null-Terminated Strings, if
          'so strip them off
          If InStr(varValue, vbNullChar) > 0 Then
            varValue = Left(varValue, InStr(varValue, vbNullChar) - 1)
          End If
          strUser = strUser & varValue & ","
        End If
      Next
        Debug.Print Left$(strUser, Len(strUser) - 1)
        strUser = ""        'Reset
        .MoveNext
  Loop
End With
 
'Routine cleanup chores
Set fld = Nothing
Set rst = Nothing
Set cnn = Nothing

OUTPUT (Single User):

Computer,UserName
DEZII,Admin

http://bytes.com/topic/access/insigh...rate-user-list

[mdommer1]

Perfect! Thanks!!!