How and were can I put an error message in the right place?

[jnrussell]

On a form I have created a command button that opens a Word file called "Instructions for Inventory Program". I've discovered that, if the file has been moved, deleted, or renamed, Access gives the user an unfriendly message and leaves Word open. I want to replace the message Access displays with a more friendly and understandable message of my own. I've tried everything I can think of with no luck. For now, I've placed a message at the beginning of the procedure, but they have to see this every time. I only want a message to be shown if the file is not found.

I'd really appreciate any suggestions as to where and how I can get Access to display my message at the appropriate time in the procedure, and only if the file is not found.

Here is the code I'm using right now:

Private Sub View_manual_button_Click()



MsgBox "If the Instruction manual can not be found you will receive an error message." & vbCrLf & vbCrLf & "IMPORTANT: If the file can not be found you must immediately close Word to prevent futher error messages."

On Error GoTo Err_View_manual_button_Click

Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True


Exit_View_manual_button_Click:


Exit Sub

Err_View_manual_button_Click:

MsgBox Err.Number

Resume Exit_View_manual_button_Click


End Sub

[pbaldy]

Presumably there's more to it, but you can use the Len() and Dir() functions to test for the existence of the file to be opened before proceeding.

[jnrussell]

Sinced I created the command button from the controls at the bottom of the form in design view, Access created the code for me. The code I posted is all I can find. It doesn't even include the file name. On the properties for the commandf button, the hyperlink line is "Instructions%20for%20CAFP%20Inventory%20Program.d oc"

I don't see anywhere to test for the existence of the file.

Obviously I'm very new to this and don't know much at all about coding.

[June7]

Maybe use error handler code to trap the particular error. Need to know the error number, make note of it the next time you run the code then try building error handler to trap. However, I am not sure it will be trapped before or after Word is already open.

Review: http://allenbrowne.com/ser-23a.html

Another approach is to use FollowHyperlink in VBA instead of the Hyperlink property of textbox.

Also might be of interest http://allenbrowne.com/func-GoHyperlink.html

[jnrussell]

I don't see an error number. All I get is the message "Unable to to open Instructions%20for%20CAFP%20Inventory%20Program.do c. Cannot open the specified file.". And I can't find that message in any of the online lists of error codes. I'll check out your links and hope there will be some help there.

[trevor40]

all this does is open word and show it, unless you have the file and path provided elseware

Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True

you then need to tell word what file to use,
you need to provide the full path and file name for word to find the file

sample found on web

Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = New Word.Application
With wordApp
.Visible = True
Set wordDoc = .Documents.Open("C:\Word\Doc1.doc", , False)
End With