via macro van Excel naar Access

[J Manussen]

Geachte leden v.h. Forum,

Wie kan mij het VBA-script geven om het volgende op te lossen:

Via een macro in een Excel werkblad "A"
1 een bestaand formulier in Access "B" openen
2 daarna Excel afsluiten
3 waarna ik direct verder kan werken in Access

Ik gebruik MS-Office 2007

(Ik kom tot punt 3, maar bij het openen van een nieuw formulier "C" in Access wordt deze toepassing afgesloten.)

 

[OctaFish]

Misschien handiger om de code de je nu hebt hier te zetten, dan kunnen we zien wat je verkeerd doet.

 

[J Manussen]

d.m.v. macro van Excel naar Access

Hallo OctaFish,

't Spijt me, dat ik je reactie zo laat beantwoord.

Ik voldoe graag aan je verzoek door hieronder de macro in een bijlage mee te sturen.

Overigens heb ik intussen een oplossing gevonden.
Deze macro doet het dus.... ik kan na afsluiting van Excel gewoon in Access verder werken, maar de Access-app verschijnt niet in maximaal formaat,ondanks het
DoCmd.Maximize commando.

Misschien valt dat nog te verbeteren.
Bedankt voor het meedenken!

Joop Manussen

 

[OctaFish]

Het Maximize commando is alleen bedoeld om Access objecten te maximaliseren, zoals formulieren en rapporten. De applicatie luistert alleen naar dit commando:

    Application.RunCommand acCmdAppMaximize

 

[J Manussen]

d.m.v. macro van excel naar access

Hallo OctaFish,

Advies opgevolgd en het commando in macro gewijzigd.

Resultaat: applicatie wordt gemaximaliseerd geopend.

Bedankt en misschien tot een volgende keer!

ps. voor mensen die met eenzelfde probleem zitten hieronder de aangepaste macro.


'Bij verwijzingen Microsoft Access 12.0 Object Library aanvinken in menu extra in Visual basic mode
Application.ScreenUpdating = False
Dim obj As Access.Application
Set obj = CreateObject("Access.Application")
With obj
.OpenCurrentDatabase ("C:\\\\.accdb")
.Visible = True
.UserControl = True
.Application.RunCommand acCmdAppMaximize
End With
Excel.Application.Quit
Application.ScreenUpdating = True
End Sub