Access: Formulier 1 moet wachten tot formulier 2 afgesloten is

[wimbrug]

In mijn facturatieprogramma gebruik ik een keuzelijst om een artikel in te voegen via het artikelnummer. Bij "niet in keuzelijst" zou ik naar het formulier "Artikel_Zoeken" willen gaan en deze gaat dan naar formulier Artikelen om dan eventueel verder te zoeken...

Als ik het juiste artikel gevonden heb, wil ik na afsluiten terug verder werken aan de factuur.

Probleem is dat het formulier van de factuur niet wacht op het resultaat van de zoektocht in het formulier Artikelen.

acDialog kan niet want dan kan ik niet meer navigeren tussen Artikelen_Zoeken en Artikelen
modaal en pop-up geven ook niet het gewenste resultaat.
application.wait bestaat niet in access.

Mijn idee was om bij afsluiten van het formulier Artikelen een public-boolean te plaatsen en deze op te vragen in formulier 1. Dus in formulier 1 een while-loop die iedere seconde de status van de boolean controleert.

dus zoiets:

while Formulier_2_is_niet_afgesloten
.... wacht 1 seconde
loop
Formulier_2_is_niet_afgesloten = false

Voor die "wacht 1 seconde" zou ik de timer-functie moeten gebruiken,... maar hoe?

Ik vind wel iets op http://www.mvps.org/access/api/api0021.htm maar wat ik niet begrijp, wil ik ook niet gebruiken.

 

[wimbrug]

Ik heb een knop gemaakt met het volgende:

Private Sub Knop36_Click()
...Dim T_EindTijd, T_StartTijd As Date
...T_EindTijd = Time
...T_EindTijd = DateAdd("s", 7, T_EindTijd) ' 7 seconden wachten
...Do Until T_StartTijd >= T_EindTijd
...... T_StartTijd = Time ' verschil tussen huidige tijd en start-tijd
...Loop
...MsgBox "gedaan"
End Sub

het werkt, maar de processor is 100% belast zodat Access enkel de tijd krijgt om een kader te maken van het tweede formulier.

 

[flitsflitsflits]

Waarom open je "Artikel_Zoeken" niet terwijl je originele formulier erachter staat? (DoCmd.OpenForm "Artikel_Zoeken")