activeX error 429 - Code works on all PC's but one

[Dryheat]

I did a search and found this :
thread705-1126945

It references an FAQ located here:
faq705-2882

Unfortuanetly I have not been able to resolve this matter following the suggestions on this thread nor by following MS KB document located here:

http://support.microsoft.com/kb/319844/en-us

The code creating the error was created by Access when it generated the switchboard so there is nothing wrong with the code.

    ' Open the table of Switchboard Items, and find
    ' the first item for this Switchboard Page.
    Set con = Application.CurrentProject.Connection
    stSql = "SELECT * FROM [Switchboard Items]"
    stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
    stSql = stSql & " ORDER BY [ItemNumber];"
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open stSql, con, 1   ' 1 = adOpenKeyset

It fails on the first line after the comments.

This code has worked on this PC for several months and then one day stopped working after a failed software install unrelated to MS Office. I have tried reinstalling Access (2007) along with all the other resolutions listed on the MS KB article referenced above. Nothing has worked. Only thing left is sending it to corporate to have it reimaged. Please let me know if you have any ideas how to fix this.

Win XP Pro SP2
Dell Optiplex 755
MS Office Professional Plus 2007

 

[jrbarnett]

Look in your VBA references (Alt F11 for the VBA editor, then open the Tools menu and choose References).
Are there any there listed as being missing?

John

 

[Dryheat]

No missing references. Trust me, this one is not going to be a simple fix. As I said, I attempted every suggested fix listed in the MS knowledge base article listed above. Something went wrong when the user of the PC tried to install some software unreleated to MS Office. For some reason when it failed to install properly it caused this problem.

 

[PHV]

Can't you restore the system to the save point made before the failing install ?

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

 

[Dryheat]

I will try the system restore idea. It took place over a month ago so I'm not sure of the implications.

For now I searched Yahoo and found another solution:

stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CurrentDB.OpenRecordSet(stSql, dbOpenDynaset)

It works for the switch board functions but now I will have to rewrite code for 7 different subs to use this other method for referencing recodsets in my project.
Please let me know if anyone thinks of another solution.
thanks.

Pete

 

[jrbarnett]

Can I ask - which software package was it that caused the failure?
Also have you tried doing a repair install of MS Office?

John

 

[jazzz]

Look for the program dependency walker

http://www.dependencywalker.com/

run it on a machine that works and then run it on the machine that fails. I am guessing your files are not the same version. It's worth a shot. When I have an issue like yours this generally solves the problem.

Life's a journey enjoy the ride...

jazzz