How do I bypass the runtime error message? 1

[benderulz]

I'm using an hta to control Access macros from multiple databases, but if a user cancels a query input they receive a runtime error message asking them to debug. I do not want my users to have that option. Is there a way to suppress this message? I have included my script below.

<SCRIPT LANGUAGE=vbscript>
Sub TimeStudy
Const DBPath = "db path here"
If TS.Value = 2 Then
MacroName = "InSS"
Set AccessApp = GetObjectDBPath, "Access.Application")
AccessApp.Visible = False
AccessApp.DoCmd.RunMacro MacroName
AccessApp.Quit
End If
If TS.Value = 3 Then
MacroName = "OBSS"
Set AccessApp = GetObject(DBPath, "Access.Application")
AccessApp.Visible = False
AccessApp.DoCmd.RunMacro MacroName
AccessApp.Quit
End If
End Sub

</SCRIPT>

Thanks,
Rich

 

[PHV]

You may try this:
...
AccessApp.DoCmd.SetWarnings False
AccessApp.DoCmd.RunMacro MacroName
AccessApp.DoCmd.SetWarnings True
...

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

 

[benderulz]

The code above would stop notifications from Access, but the error I'm trying to suppress is from the HTA. I think it will require an "on error" condition, but I'm sure not sure how to script it. Thank you for the effort.

 

[PHV]

Like this ?
Sub TimeStudy
[!]On Error Resume Next[/!]
Const DBPath = "db path here"
...

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

 

[benderulz]

That worked perfectly. I was trying to put the condition where the code was failing. for example:

AccessApp.Visible = False
AccessApp.DoCmd.RunMacro MacroName
On Error Resume Next
AccessApp.Quit

Thank you for the help! I've just started scripting (as I'm sure you can tell) and still have alot to learn.

Thanks PHV!