Writing to the Application Event Log

[GabeC]

Does anyone have a code sample to write to the Application Event Log?

I am using MS Access 2003 and VBA.

Thanks for your help.

Thanks,

Gabe

 

[Remou]

Something like this?
Transaction Log for Ms. Access
faq181-291

 

[PHV]

Have a look here:

http://msdn2.microsoft.com/en-us/library/aa964766.aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GabeC]

Thank you both for your response.

I don't think I have been clear on what I am trying to do.

Right click My Computer then click Manage.

Expand the Event View branch under Systems Tools.

Click Application.

This shows a list of application events. I need to be able to write to this event log.

In VB 6.0 I can write the code
App.LogEvent "My Event Message", vbLogEventTypeInformation
App.LogEvent "My Event Message", vbLogEventTypeWarning
App.LogEvent "My Event Message", vbLogEventTypeError

All the computers I need to do this on are running Windows XP.



Thanks,

Gabe

 

[Remou]

Perhaps:

[tt]Set ws = New WshShell
ws.LogEvent 1, "Logon Script failed"[/tt]

--

http://msdn.microsoft.com/library/d...html/03f770db-b59f-4523-ad9d-5f2b34f986ac.asp

 

[GabeC]

Do I need to add WshShell as a reference?

Here is the code:

Dim ws As WshShell
Set ws = New WshShell
ws.LogEvent 1, "Logon Script failed"

Here is the error I am getting:

Compile error:
User-defined type not defined


Thanks,

Gabe

 

[Remou]

Yes. The reference is:
Windows Script Host Object Model

 

[PHV]

A method without adding references:
Dim ws As Object
Set ws = CreateObject("WScript.Shell")
ws.LogEvent 1, "Logon Script failed" ' 1=ERROR

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886