Number of users

[SlepyJack]

How can I get number of users (by VB code) which have curently open my database (database.mdb).

(But not by reading *.ldb file.)

I want not allow to user open (or changing data) database, if five users have the database open.

Thanks

 

[Stoooo]

Try adding the following to a standard module:

Public Function CountUsers() As Short
Dim wrk As DAO.Workspace

Set wrk = DBEngine(0)

CountUsers = wrk.Users.Count
End Function

From your code you can now get the number of users simply by calling the function above as follows:

If CountUsers() >5 Then ...

Hope this is correct and helps.