Help with Help

David Hunt · Oct 23, 2003

I'm trying to open a custom help file I've writting
progrmatically in a module.

Sub Help_GO_Click()

Dim RetVal
RetVal = Shell("I:help.chm", 1)

Help_GO_Click_Exit:
Exit Sub

Help_GO_Click_Err:
MsgBox Error$
Resume Help_GO_Click_Exit

End Sub

It won't work because it's not an executable. I could
really use some direction here. It's not an executable
and I'm having trouble gettting around this.

David

Juan M. Afan de Ribera · Oct 23, 2003

This is a way to do it, using WSH

Sub OpenFileWSH(FileName As String)
Dim wShell As Object

Set wShell = CreateObject("WScript.Shell")
wShell.Run Chr(34) & FileName & Chr(34)
Set wShell = Nothing

End Sub

HTH

--
Saludos desde Barcelona
Juan M. Afan de Ribera
<MVP Ms Access>
http://www.juanmafan.tk
http://www.clikear.com/webs4/juanmafan

TC · Oct 24, 2003

Use this: www.mvps.org/access/api/api0018.htm

HTH,
TC

Help with Help

David Hunt

Juan M. Afan de Ribera

TC