Rapporten openen

Deze functie opent een genoemd rapport in de 'preview' weergave. Mocht het rapport al geopend zijn, dan wordt deze eerst gesloten. Dit kan handig zijn wanneer bijvoorbeeld via een keuzeformulier een rapport met meerdere toepassingen wordt gestuurd. Het geopende rapport staat op het scherm, met hierboiven het keuzeformulier. Door een instelling te wijzigen op het formulier (bijvoorbeeld de gevraagde rapportageperiode) kan met 'Toon Rapport' het rapport opnieuw worden geopend.

Public Sub OpenRapport(RptNaam As String)

Call SluitRapportIndienOpen(RptNaam)

DoCmd.OpenReport RptNaam, acViewPreview

End Sub

Public Sub SluitRapportIndienOpen(RptNaam As String)

Dim i, i2 As Long

i2 = Application.Reports.Count
For i = 0 To (i2 - 1)
    If Reports(i).Name = RptNaam Then DoCmd.Close acReport, Reports(i).Name
Next

End Sub

Reageer op deze tip
Er zijn nog geen reacties geplaatst

De volgende tips zijn beschikbaar:

Comprimeren (handmatig)

Gegevens converteren: Controleren of iets een Decimal is

Gegevens converteren: Controleren of iets een Integer is

Gegevens converteren: Null-waardes afvangen

Melden dat een onderdeel nog niet gereed is

Onderdelen van je pakket afschermen met een wachtwoord