macro voor openen Access bestand

[AndreXL]

Hallo,

Ik haal in excel in een veelgebruikt bestand gegevens op uit een Access database.
Nu moet ik regelmatig in die database zijn. Ik had graag een macro die die database opent.
Ik had al - via de VBA help onderstaande code gevonden, maar deze opent alleen Access als applicatie, maar nog niet het betreffende .mdb bestand.

Waarmee moet ik mijn code aanvullen?

Sub OpenDatabase()
    Dim RetVal
    RetVal = Shell("C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE", 1)
End Sub

 

[Gert Bouwmeeste]

Kun je de bestandsnaam niet toevoegen (zie hieronder in rood)

Sub OpenDatabase()
    Dim RetVal
    RetVal = Shell("C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE [COLOR="red"]Pad + bestandsnaam[/COLOR]", 1)
End Sub

 

[AndreXL]

Gert,

De door jouw aangeleverde suggestie werkt niet.
ik krijg een foutmelding in Access, dat Acces de opdrachtregel niet herkent.
De database blijft dus gesloten.

AndreXL

 

[Warme bakkertje]

Public Sub OpenAccess()
'Bij verwijzingen Microsoft Access 10.0 Object Library aanvinken
Dim appAccess As New Access.Application
Set appAccess = Access.Application
appAccess.OpenCurrentDatabase "D:\mijn documenten\Fakturatie.mdb"
appAccess.Visible = True
End Sub

 

[AndreXL]

Hiermee werkt het!

hartelijk dank.