Who's looking at what?

[Guest_imported]

Hello, fellow tipsters! I am wondering if there is any way of seeing just exactly what a user is doing in a database. ie. what forms do they have open, what tables do they have locked, that sort of thing. <p>John Vogel<br><a href=mailto:john@computerwiz.net>john@computerwiz.net</a><br><a href=

http://www.computerwiz.net>HTTP://w...><br>---==============================---<br>

I am currently working on

http://www.computerwiz.net.<br>

It should be LIVE 1/12/00 or before. I would appreciate suggestions, comments and the like. Please go look and help. Thanks.<br>
---========================

 

[DougP]

sounds like it's do-able but a lot of work<br>
Each person needs to log into the database.<br>
Start by clicking on Tools, Security<br>
Set up groups and users etc.<br>
then in each form see who is in it, in the Load Event<br>
And write this information to a separate table<br>
Here is an article I found in MSDN Oct 99<br>
&quot;Microsoft Access User Level Security&quot;<br>
Its too big to paste here and the top part is a lot of talk go down to the bottom for the code<br>
But here is a little function I copied out<br>
<br>
Function CheckAllReadPerms()<br>
Dim dbs As Database, docTemp As Document, strUser As String, strObject As String<br>
<br>
' Assign the current database to the database variable.<br>
Set dbs = CurrentDb<br>
<br>
' Prompt for user name and table name and assign to string variables.<br>
strUser = InputBox(&quot;Enter a user's account name.&quot;, &quot;Enter User&quot<br>
strObject = InputBox(&quot;Enter a table to check for Read Data permission.&quot;, _<br>
&quot;Enter Table&quot<br>
<br>
' Set document variable to the specified table and then specify the user<br>
' of that table.<br>
Set docTemp = dbs.Containers!Tables.Documents(strObject)<br>
docTemp.UserName = strUser<br>
<br>
' Check to see if user has either implicit or explicit Read Data permission.<br>
If (docTemp.AllPermissions And dbSecRetrieveData) &gt; 0 Then<br>
MsgBox strUser & &quot; has implicit or explicit Read Data permission for &quot; _<br>
& strObject & &quot;.&quot;<br>
Else<br>
MsgBox strUser & &quot; has no permissions for &quot; & strObject & &quot;.&quot;<br>
End If<br>
End Function<br>
<br>
Hope it Helps<br>
DougP<br>

 

[Guest_imported]

Thank you Doug! That was incredibly helpful, and I found the article you are talking about. Thanks a bundle, Oh wise and wonderfull TipMaster <p>John Vogel<br><a href=mailto:john@computerwiz.net>john@computerwiz.net</a><br><a href=

http://www.computerwiz.net>HTTP://w...><br>---==============================---<br>

I am currently working on

http://www.computerwiz.net.<br>

It should be LIVE 1/12/00 or before. I would appreciate suggestions, comments and the like. Please go look and help. Thanks.<br>
---========================