Code Subroutines eerst afronden

[Schapie]

Hallo,

In een Access Data Base roep ik vanuit de code in een formulier code in een module aan.
Deze module maakt een tabel aan, waarop een rapport is gebaseerd.

Call NettoShiftOpkomst 'Code om de tabellen aan te maken

stDocname = "Rpt_NettoShiftOpkomst"
DoCmd.OpenReport stDocname, acPreview

Het probleem is nu dat in het formulier de code gelijk door loopt, waardoor het rapport al opent voordat de juiste data beschikbaar is.

Kan in VBA ingesteld worden, dat eerst de code uit de module volledig moet worden uitgevoerd voordat de code van het formulier weer verder gaat?

Gr. Stefan

 

[Guus2005]

Ik begrijp niet goed wat je bedoelt. Je zorgt toch dat je alles voor elkaar hebt voordat je je rapport opent?

Post anders even je database of een gedeelte waaruit het probleem blijkt.

 

[Schapie]

Ik heb het probleem nu ondervangen dmv een Loop functie.

Het probleem was echter dat het rapport gebaseerd is op een tabel, welke door de module aangemaakt wordt in VBA.
Als ik op het betreffende formulier op de knop klik om het rapport te openen, wordt de functie in de module aangeroepen, maar vervolgens gelijk het rapport geopend, zonder dat hiervoor de juiste gegevens beschikbaar zijn.

Met onderstaande Loop functie gaat het nu wel goed

ModuleCheck = 0
Call NettoShiftOpkomst 'Code om de tabellen aan te maken

Do While ModuleCheck = 0
Loop

stDocname = "Rpt_NettoShiftOpkomst"
DoCmd.OpenReport stDocname, acPreview

ModuleCheck is een niet zichtbaar veld, wat vanuit de module een andere waarde krijgt, als de module is afgerond.