I
Ian Davies
Hello
Im trying to get the path of my Access application and use it to open the
userguide help file (which resides in the same folder). I am getting the
error message 'Invalid procedure call or argument'
My code is below. Can anyone tell me if I am going about this the right
way.
Private Sub Label47_Click()
Dim RetVal As Variant
On Error GoTo Inst_Error
RetVal = Shell(Application.CurrentProject.Path & "\UserGuide.chm", 1)
If RetVal = 0 Then
GoTo Inst_Error
Exit Sub
Inst_Error:
MsgBox "Installer was unable to open the user guide." & Chr(10) & Chr(13) &
"The file may be corrupt or not in the same folder as the application" &
Chr(10) & Chr(13) & Chr(13) & "Error " & Err.Number & " : " &
Err.Description
End Sub
Im trying to get the path of my Access application and use it to open the
userguide help file (which resides in the same folder). I am getting the
error message 'Invalid procedure call or argument'
My code is below. Can anyone tell me if I am going about this the right
way.
Private Sub Label47_Click()
Dim RetVal As Variant
On Error GoTo Inst_Error
RetVal = Shell(Application.CurrentProject.Path & "\UserGuide.chm", 1)
If RetVal = 0 Then
GoTo Inst_Error
Exit Sub
Inst_Error:
MsgBox "Installer was unable to open the user guide." & Chr(10) & Chr(13) &
"The file may be corrupt or not in the same folder as the application" &
Chr(10) & Chr(13) & Chr(13) & "Error " & Err.Number & " : " &
Err.Description
End Sub