Simple Open/Close Audit Trail

___

¯¯¯¯¯

Local time

Today, 06:35

Joined

Nov 27, 2003

Messages

595

• Apr 5, 2006

• #1

This is a very simple example of logging every time the database is opened or closed to a text file.

 

Attachments

• txtfilelog_A2K.zip

  15.3 KB · Views: 2,421

Last edited: Apr 5, 2006

D

Durien512

Registered User.

Local time

, 23:35

Joined

Dec 14, 2005

Messages

61

• Apr 6, 2006

• #2

COOL... i am borring it!

 

Groundrush

Registered User.

Local time

Today, 06:35

Joined

Apr 14, 2002

Messages

1,376

• Apr 7, 2006

• #3

Durien512 said:

COOL... i am borring it!

Click to expand...

Hi,

Please let me know when you've returned it so I can also have a look

Thanks...

 

B

Bigmo2u

Registered User.

Local time

Today, 01:35

Joined

Nov 29, 2005

Messages

200

• Apr 12, 2006

• #4

If I place this in my BE this will tell me who is in my Database on the network at all times?

 

M

Mike Hughes

Registered User.

Local time

Today, 06:35

Joined

Mar 23, 2002

Messages

493

• Apr 21, 2006

• #5

I don't understand how this works, but it does. Is there a way to have the log file appear on a network drive? If yes, how?

Thanks

Mike

 

Groundrush

Registered User.

Local time

Today, 06:35

Joined

Apr 14, 2002

Messages

1,376

• Apr 21, 2006

• #6

Mike Hughes said:

I don't understand how this works, but it does. Is there a way to have the log file appear on a network drive? If yes, how?

Thanks

Mike

Click to expand...

Modify the code to show your network drive

Code:

Private Sub Form_Close()
Dim FileNum As Integer

    FileNum = FreeFile
    
    Open "[COLOR="Red"]C[/COLOR]:\DatabaseLog.txt" For Append As #1
    Print #1, "Database closed by" & " " & Environ("UserName") & " " & "using computer" & " " & Environ("ComputerName") & " " & ":---:" & " " & Now(); ""
    Close FileNum
    
End Sub

 

Groundrush

Registered User.

Local time

Today, 06:35

Joined

Apr 14, 2002

Messages

1,376

• Apr 21, 2006

• #7

Bigmo2u said:

If I place this in my BE this will tell me who is in my Database on the network at all times?

Click to expand...

Yes it will

 

M

Mike Hughes

Registered User.

Local time

Today, 06:35

Joined

Mar 23, 2002

Messages

493

• Apr 21, 2006

• #8

Thanks for your quick reply...I have it working.. Mike

 

Fear Naught

Kevin

Local time

Today, 06:35

Joined

Mar 2, 2006

Messages

229

• Apr 21, 2006

• #9

I use a sumple logging table in my database but this also seems a good idea. What I can't understand is what the variable 'FileNum' does especially as it is dimensioned as an integer and its value set with what I can only assume is another integer variable that is not in the code.

Can the author please explain?

Ta

 

S

sdzc

Registered User.

Local time

Today, 01:35

Joined

Mar 27, 2004

Messages

46

• Jul 26, 2006

• #10

Excuse my lack of access skills on this one, but where is the code?

I cannot find it in the example database. All I see is the macro to open the form and the form itself.

 

W

WrHn85

Registered User.

Local time

, 23:35

Joined

Jul 9, 2006

Messages

31

• Aug 2, 2006

• #11

If you've opened the database you can use Alt+F11 to reveal the code. If you still can't see it, make sure the View>Project Explorer taskpane is selected and you can double click any object there to show the code. Least that's what I've been using lately...