Error 429

[Rod Makin]

I have lifted this code (below) from a macro that I run in MSWord, what
should happen is that it should open a Microsoft Access database. This piece
of code works on some machines but not others and more importantly, not mine
at the minute. What seems to be happening now is that I get the error 429
for unknown error. I just cant track down the problem. Ive looked at the
microsoft help pages but they dont help.

Sub test()
On Error GoTo error_handling
'Dim loerecord As Object
Dim loerecord As Access.Application
Set loerecord = CreateObject("Access.Application")
loerecord.Visible = True
Exit Sub
error_handling:
MsgBox "Unknown Fault :" & Err.Description & ". Error Number = " &
Err.Number
End Sub

Any ideas?

Regards





Rod

 

[Cindy M -WordMVP-]

Hi Rod,

My first thought would be to check if
- Access is installed
- and that Access.Application is in the HKCR in the Registry. And that the
entry (assuming it's there) has a valid ClsID that is, itself in the HKCR. And
that this entry points to the location where the access.exe file is, indeed,
stored.

You might first try Help/Detect and Repair from within Access, as that ought to
re-register it (if this is, indeed, the problem).

The other thing I'd check is whether you can use CreateObject for any other
application (such as Excel.application). If you can't then there's a problem
with the machine configuration. And the next step would then be booting Windows
in Safe Mode to see if the problem goes away. If it does, you're looking at
some third-party "management" application interering.

I have lifted this code (below) from a macro that I run in MSWord, what
should happen is that it should open a Microsoft Access database. This piece
of code works on some machines but not others and more importantly, not mine
at the minute. What seems to be happening now is that I get the error 429
for unknown error. I just cant track down the problem. Ive looked at the
microsoft help pages but they dont help.

Sub test()
On Error GoTo error_handling
'Dim loerecord As Object
Dim loerecord As Access.Application
Set loerecord = CreateObject("Access.Application")
loerecord.Visible = True
Exit Sub
error_handling:
MsgBox "Unknown Fault :" & Err.Description & ". Error Number = " &
Err.Number
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail

 

[David Sisson]

I've had the very same trouble lately. (I haven't had time to resolve
mine yet.)

See KB Q185126 at support.microsoft.com

 

[Rod Makin]

Hi Cindy,

Firstly - thanks for spending the time to respond. So ... here goes.

- Access is definitely installed
- My registry key is this:-

[HKEY_CLASSES_ROOT\CLSID\{73A4C9C1-D68D-11D0-98BF-00A0C90DC8D9}\LocalServer32]
@="C:\\PROGRA~1\\MICROS~2\\ART\\Office\\MSACCESS.EXE"
"LocalServer32"=hex(7):4d,00,70,00,57,00,25,00,21,00,67,00,78,00,73,00,66,00,\
28,00,4e,00,67,00,5d,00,71,00,46,00,60,00,48,00,7b,00,4c,00,73,00,41,00,63,\
00,63,00,65,00,73,00,73,00,52,00,75,00,6e,00,74,00,69,00,6d,00,65,00,4d,00,\
61,00,73,00,74,00,65,00,72,00,3e,00,70,00,6c,00,54,00,5d,00,6a,00,49,00,7b,\
00,6a,00,66,00,28,00,3d,00,31,00,26,00,4c,00,5b,00,2d,00,38,00,31,00,2d,00,\
5d,00,00,00,27,00,5d,00,67,00,41,00,56,00,6e,00,2d,00,7d,00,66,00,28,00,5a,\
00,58,00,66,00,65,00,41,00,52,00,36,00,2e,00,6a,00,69,00,41,00,43,00,43,00,\
45,00,53,00,53,00,46,00,69,00,6c,00,65,00,73,00,3e,00,6f,00,52,00,32,00,27,\
00,77,00,46,00,6a,00,67,00,5a,00,41,00,7b,00,4d,00,5a,00,62,00,45,00,71,00,\
7d,00,5f,00,36,00,5f,00,00,00,00,00

Which seems to be right from what I have found on the web.

 

[Rod Makin]

Hi Cindy,

Firstly - thanks for spending the time to respond - I could kiss you
right now! I was responding to your email and going through each suggestion.
Access IS installed, registry key OK. Now my machine is a company laptop
with a system image, so I suspected that I would not be able to repair
Access, but I could, and I did and it only worked!!!!

Thankyou everso much

Regards




Rod