Active X error 429

[CedarTree]

Hello - I often will open an Adobe object. All of a sudden, I'm getting a 429 error "Active component can't create object." Any suggestions. See code below. I do have Adobe PRO, I repaired the DB (to be safe), and this code was JUST working like 1 hour ago!

Edit: the coding does seem to work assuming that Adobe Pro is ALREADY open - but I never needed to do that before.

Set mobjAcroApp = CreateObject("AcroExch.App") 'Initialize Acrobat by creating App object

 

[Uncle Gizmo]

Have you tried Late Binding? Switching to late binding might resolve issues:

Dim mobjAcroApp As Object
Set mobjAcroApp = CreateObject("AcroExch.App")

 

[Ranman256]

i've used GetApplication() sometimes to catch it if already open:

Set mobjAcroApp = GetApplication("AcroExch.App")  'it may be open already so use this
 'not: Set mobjAcroApp = CreateObject("AcroExch.App")


Function GetApplication(className As String) As Object
' function to encapsulate the instantiation of an application object
Dim theApp As Object
On Error Resume Next
Set theApp = GetObject(, className)
If Err.Number <> 0 Then
    MsgBox "Unable to Get" & className & ", attempting to CreateObject"
    Set theApp = CreateObject(className)
End If

If theApp Is Nothing Then
    Err.Raise Err.Number, Err.Source, "Unable to Get or Create the " & className & "!"
    Set GetApplication = Nothing
End If

'MsgBox "Successfully got a handle on Outlook Application, returning to caller"
Set GetApplication = theApp
End Function