VBA-code werkt niet onder knop

Status
Niet open voor verdere reacties.

LauravT

Gebruiker
Lid geworden
14 jun 2012
Berichten
156
Hallo,

Ik heb een code die een andere database opent en vervolgens een macro uitvoert:

Code:
Dim accessApp
Set accessApp = CreateObject("Access.Application")

accessApp.Visible = True
accessApp.UserControl = True
accessApp.OpenCurrentDatabase ("LINK NAAR DATABASE")
accessApp.Run "macro"

accessApp.Quit

En die werkt prima!
Alleen zodra ik deze opdracht via een knop wil laten uitvoeren op een formulier, geeft ie ineens een foutwaarde aan:

"Er is een fout opgetreden in de communicatie tussen Microsoft Access en het OLE-bronprogramma of het ActiveX-besturingselement."

Weet iemand hoe ik dit kan verhelpen?
 
Ik was zojuist bezig met een voorbeeld bestand te maken,.. en daar deed ie het wel onder de knop.
Heb nu mijn formulier opnieuw gemaakt en het werkt nu allemaal wel.
Ik heb alleen geen idee waarom in het originele formulier het niet wilde werken.

Iig bedankt voor de genomen moeite!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan