vb123.com.au
Samples of Surveillance Of Microsoft Access Usage
With these samples you will learn how to
Object Name
Access Version
Click Picture to View
Topic
Object Type
frmJetUserRoster
2003 2002 2000
Use ADO
to list the users that are connected to the database. Stop new users
from logging in.
Form
frmUserObjectLogs
2003 2002 2000
Demonstrates how you can open a report or a form and log when and who
opened that form. You can then use that information to see which objects
are being used the most and to see if you actually have any security
concerns on any object.
Form
frmMakeUserLogs
2003 2002 2000
Open
this form (hidden) in the Autoexec macro of your database. Once open,
the form will log the Windows ID to a login table. When the system is
closed, a logoff time will be added to the table. This can be used to
work out who is and has been using the system.
Form
rptGR8_UserLogs
2003 2002 2000
Produce
a report of all users who have accessed the database and signal if they
are still in the database
Report
rptGR8_UserObjectLogs
2003 2002 2000
By
using the functions OpenForm_FX and OpenReport_FX in conjunction with
FXL8_userlogs form, you can work out who is opening forms and report and
when. Use this report to printout how many times a report has been
opened and who opened it last.
Report
basGR8_Startup
2003 2002 2000
Includes openform and openreport functions, userlogging, find current
path of database and change window headers.
Module
frmFindNoStartups
2003 2002 2000 Check
the Jet User Roster List against legitimate logins in the userlogs table
Form
frmWhoLoggedOn
2003 2002 2000
List
computers and workgroup user names in the currently open LDB file
Form
Your Access 2002/2003 sample database file is called "grMap2002.zip"
and your Access 2000 sample database file is called "grMap2000.zip"
If you do NOT own "The Toolbox", Click
here to find out how to purchase The Toolbox.
Find Out More
These samples are discussed at
length in Chapter 6 of Garry's Book on Access
Protection and Security
Read More
You should also see the more advanced techniques that can be used
to shutdown databases and send messages to users in the
Access Workbench
Log The Version Of Jet That Your Users Are Using
If you are having troubles with corruptions, it is good to check
that all your users are using the same version of the Jet Engine. To do that you
need to look at the jet DLL file using the scripting object to retrieve the
information. This function will help you do that.
Function JetVersion_FX() As String
'Return the version of Jet that the user is using
Dim objFSO, temp, temp2, getVersion ', response
On Error Resume Next
getVersion = "JetVersion_FX failed"
Set objFSO = CreateObject("Scripting.FileSystemObject")
temp = objFSO.GetFileVersion("c:\windows\system32\msjet40.dll")
If Len(temp) = 0 Then
temp2 = objFSO.GetFileVersion("c:\winnt\system32\msjet40.dll")
If Len(temp2) > 0 Then
temp = temp2
End If
End If
If Len(temp) > 0 Then
getVersion = Trim$(temp)
Else
getVersion = "Version unknown"
End If
Set objFSO = Nothing
JetVersion_FX = getVersion
End Function
Or see some more general comments on getting the file version here
http://www.microsoft.com/technet/scriptcenter/resources/qanda/apr05/hey0418.mspx
Other Toolbox Articles That You Might Want To Read
Focus on Popular Objects to Speed
up an Access 2007 Database
Click on the following button
to jump to the next page in the protection samples loop.
Our Tools and Resources
vb123 Professionals
Get Good Help Here
If you need help with a database or
Office programming,
our Professionals could be the answer because we have worked on many
similar solutions
Frontpage Conversions
We have converted vb123.com to Expression Web,
contact us if we can help you move to the latest Microsoft web tool.
About The Editor ~ Contact Us
Garry Robinson writes for a number
of popular computer magazines, is now a book author and has worked on
100+ Access databases. He is based in Sydney, Australia
Access 2003 Security
|
Object Name Access Version Click Picture to View |
Topic | Object Type |
|---|---|---|
frmJetUserRoster |
Use ADO to list the users that are connected to the database. Stop new users from logging in. | Form |
frmUserObjectLogs |
Demonstrates how you can open a report or a form and log when and who opened that form. You can then use that information to see which objects are being used the most and to see if you actually have any security concerns on any object. | Form |
|
frmMakeUserLogs |
Open this form (hidden) in the Autoexec macro of your database. Once open, the form will log the Windows ID to a login table. When the system is closed, a logoff time will be added to the table. This can be used to work out who is and has been using the system. | Form |
|
rptGR8_UserLogs |
Produce a report of all users who have accessed the database and signal if they are still in the database | Report |
|
rptGR8_UserObjectLogs |
By using the functions OpenForm_FX and OpenReport_FX in conjunction with FXL8_userlogs form, you can work out who is opening forms and report and when. Use this report to printout how many times a report has been opened and who opened it last. | Report |
|
basGR8_Startup |
Includes openform and openreport functions, userlogging, find current path of database and change window headers. | Module |
| Check the Jet User Roster List against legitimate logins in the userlogs table | Form | |
| frmWhoLoggedOn |
List computers and workgroup user names in the currently open LDB file | Form |
These samples are discussed at
length in Chapter 6 of Garry's Book on Access
Protection and Security
Read More
If you are having troubles with corruptions, it is good to check
that all your users are using the same version of the Jet Engine. To do that you
need to look at the jet DLL file using the scripting object to retrieve the
information. This function will help you do that. Or see some more general comments on getting the file version here
Other Toolbox Articles That You Might Want To Read
Focus on Popular Objects to Speed
up an Access 2007 Database
Click on the following button
Your Access 2002/2003 sample database file is called "grMap2002.zip"
and your Access 2000 sample database file is called "grMap2000.zip"
If you do NOT own "The Toolbox", Click
here to find out how to purchase The Toolbox.
Find Out More
You should also see the more advanced techniques that can be used
to shutdown databases and send messages to users in the
Access Workbench
Function JetVersion_FX() As String
'Return the version of Jet that the user is using
Dim objFSO, temp, temp2, getVersion ', response
On Error Resume Next
getVersion = "JetVersion_FX failed"
Set objFSO = CreateObject("Scripting.FileSystemObject")
temp = objFSO.GetFileVersion("c:\windows\system32\msjet40.dll")
If Len(temp) = 0 Then
temp2 = objFSO.GetFileVersion("c:\winnt\system32\msjet40.dll")
If Len(temp2) > 0 Then
temp = temp2
End If
End If
If Len(temp) > 0 Then
getVersion = Trim$(temp)
Else
getVersion = "Version unknown"
End If
Set objFSO = Nothing
JetVersion_FX = getVersion
End Function
http://www.microsoft.com/technet/scriptcenter/resources/qanda/apr05/hey0418.mspx
to jump to the next page in the protection samples loop.Our Tools and Resources
vb123 Professionals
Get Good Help Here
If you need help with a database or
Office programming,
our Professionals could be the answer because we have worked on many
similar solutions
Frontpage Conversions
We have converted vb123.com to Expression Web,
contact us if we can help you move to the latest Microsoft web tool.
About The Editor ~ Contact Us
Garry Robinson writes for a number
of popular computer magazines, is now a book author and has worked on
100+ Access databases. He is based in Sydney, Australia
Access 2003 Security
