Kan man spørge på om andre er logget på en base

Det nemmeste var måske at prøve at slette den og så fange fejlen:
ala:
on error resume next
kill DatabasePath & \"\\ICMDM.mdb\"
if err<> 0 then .....

Hvis .ldb-filen findes, så er der brugere på den.
Så en alm. dir-kommando vil kunne checke om der er brugere på.

Hvis du skal bruge noget kode til at få listet HVILKE brugere, som pt har fat i filen, kan du måske få det... :-)

/Thomas

Tak for hjælpen begge to. Jeg tror jeg har nok til at arbejde videre med. Jeg skal ikke vide hvem der er på, bare om de er på.

Du kan evt. prøve nedenstående util

Sub ShowUserRosterMultipleUsers()
Dim cn As New Connection
Dim cn2 As New Connection
Dim rs As New Recordset
Dim i, j As Long

cn.Provider = \"Microsoft.Jet.OLEDB.4.0\"
cn.Open \"Data Source=c:\\Northwind.mdb\"

cn2.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" _
& \"Data Source=c:\\Northwind.mdb\"

\' The user roster is exposed as a provider-specific schema rowset
\' in the Jet 4 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.

Debug.Print rs.Fields(0).Name, \"\", rs.Fields(1).Name, _
\"\", rs.Fields(2).Name, rs.Fields(3).Name

While Not rs.EOF
    Debug.Print rs.Fields(0), rs.Fields(1), _
    rs.Fields(2), rs.Fields(3)
    rs.MoveNext
Wend
End Sub