VBA - Using GetObject function - get error.

[jsbotts]

I have an MS Access application and it opens a file from MS Word. Before I close the MS Access form, I need to programmatically determine if the MS Word application is running. I use the following sub and function:

Private Sub cmdbCloseCC_Click()
On Error GoTo PROC_ERR
    Dim wn As String
    wn = "Word.Application"
    If Me.IsAppRunning(wn) = True Then
        wo.Quit
        Set wo = Nothing
    End If
    
    DoCmd.Close acForm, "frmCC_Status"
    Application.Quit
PROC_EXIT:
    Exit Sub
PROC_ERR:
    MsgBox Err.Description
    Resume PROC_EXIT
End Sub
___________________________________________
Function IsAppRunning(ByVal appName) As Boolean
    Dim oApp As Object
    On Error Resume Next
    
    Set oApp = GetObject(, appName)    'Error here - Run-time error '429': 
    'ActiveX component can't create object
    Debug.Print oApp
    If Not oApp Is Nothing Then 
        Set oApp = Nothing
        IsAppRunning = True
    End If
End Function

[ajetrumpet]

if you have an error handler already and you still get an error and it stops executing, turn the option off in 'options'.

doesn't the error mean that word is closed? sounds like it. what else could it be?

[jsbotts]

Adam,
When I run IsAppRunning I always get a return of True, no matter if there is an instance of Word or not.
jsbotts

[stmoong]

The run-time error simply means that no instance is running, i.e. Word is not running. Trying adding an else condition to return false from the function.

[jsbotts]

Stan,
I have tried that and it makes no difference. I still get a return of true whether a Word instance is present or not.

[goodguy]

Break at line 26 and test the value of oApp. Your code is testing for Nothing, what about other Null values?

[ajetrumpet]

Stan,
I have tried that and it makes no difference. I still get a return of true whether a Word instance is present or not.

it looks like your code is running just fine.

What it looks like you're discovering is one of two things here:

1) a dimmed "object" does not start out as NOTHING, or
2) the error is turning the "object" from NOTHING to something else

you should be able to solve this by putting an error handling section in this and setting the return to TRUE in it, but setting the return to FALSE before it and exiting the function. If it errors when there is not an instance of word running, that should be the way it is done anyway! e.g. - using an error to determine the return you get. What's in your way right now is the fact that you're not using 'GOTO' when you encounter the error. Fix that and you'll be fine.

[stmoong]

Try something like this.

Function IsAppRunning(ByVal appName) As Boolean
    Dim oApp As Object
    On Error Goto ERR_HANDLER
     
    Set oApp = GetObject(, appName)    'Error here - Run-time error '429': 
    'ActiveX component can't create object
    Debug.Print oApp
    If Not oApp Is Nothing Then
        Set oApp = Nothing
        IsAppRunning = True
    Else
        IsAppRunning = False
    End If

    Exit Function

ERR_HANDLER:
    Set oApp = Nothing
    If Err.Number = 429 Then
        IsAppRunning = False
    Else
        ' Handle other errors
    End If
End Function