🚀 go-pugleaf

> Ik zou graag een Access rapport printen in VB, en dit werkt met
> appAccess.doCmd.OpenReport "rapportnaam" en appAccess.OpenCurrentDatabase
> "adresdatabase" zolang het rapport niet gelinkt is met een tabel.
> Als het wel gelinkt is met een tabel, geeft hij de foutmelding:
> tbl(tabelnaam) bestaat niet.
>
> Toch is de tabel goed gelinkt met het rapport, omdat als ik een preview
doe
> in Access zelf, de gegevens van de database correct in het rapport
> verschijnen.
>
Private Sub cmdPrintAccessReport_click()
    Dim accApp As Access.Application
    Dim accReport As AccessObject

    Set accApp = Access.Application
    accApp.OpenCurrentDatabase App.Path & "\Databasename.mdb"
    'Set accReport = accApp.AllReports
    Set accReport = accApp.CurrentProject.AllReports("reportname")

    accApp.DoCmd.OpenReport accReport.Name,  acViewPreview
    accApp.Visible = True

End Sub

Normaal zou dit perfect moeten werken.  Werkt het betreffende report in
Access zelf wel correct?

Groetjes
Goofy from the Gooftroop

PS: Wanneer je een voorbeeld project wilt waarin je zelf het gewenste report
wilt kiezen geef mij dan een e-mailtje