|
vb123.com |
|
|
Home Contact Us Order Software Search vb123 The Magazine that Access Developers loved to read and write for is back Article Index Here or Purchase Here
RSS &
Newsletter
Get Good Help
Like FMS Products? The Toolbox About The Editor 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
|
The
|
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 |
Find Out 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.
Function JetVersion_FX() As String
Or see some more general
comments on getting the file version here
Click on the following button
Click here for the
Access 2002/2003 sample database file
Click here for the
Access 2000 sample database file
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
'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.