How to log to server's event log?

[LenexaKS]

Hi all,

I'm writing a VBA Access 2003 app which will have to log an event to the event log of the server it runs on, so that it'll be visible from the Event Viewer. I just can't find any examples of this; can anybody tell me how, or point me towards an example? Many thanks in advance... - LenexaKS

[Doogle]

There's a set of event logging APIs you can use. See here: http://msdn2.microsoft.com/en-us/lib...81(VS.85).aspx

[Hack]

I'm writing a VBA Access 2003 app

Moved To Office Development

[LenexaKS]

Thanks, Doogle! I'll give it a try.

[LenexaKS]

Details/Summary for future searchers:

Create a VBScript file, eg, scriptname.vbs:
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.LogEvent 0, WScript.Arguments(0)

In the VBA code, do:
Shell "Wscript.exe C:\[path]\scriptname.vbs " & YourEventText

YourEventText will probably be multiple words, so group the whole event message string in double quotes first, or it'll treat it as multiple incoming arguments:
MessageText = """" & MessageText & """"