Opdaterer ikke form ordenligt før den videre beregning

du kan prøve med:

DoEvents

det sted i koden, hvor du vil frigive processoren fra "hente-processen" til korrekt at vise din advarselsformular.

Hvor præcis skal jeg skrive det?
Min kode ser således ud:

Private Sub Kommandoknap12_Click()

    Dim stDocName As String
    Dim stLinkCriteria As String
DoCmd.Close
DoEvents
    stDocName = "vent venligst"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Echo 1000, "Henter data...."
 
HentData
    DoCmd.Close
    stDocName = "Autoexec_efter"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Er det ved linjen:

HentData

at det kører langsomt? fordi det tager tid at indhente dataene fra de 4 backends?
Er det en funktion, der henter dataene?

Det kan være du har brug for en progress bar som viser at noget er i gang?

Ja, den når ikke at vise "vent venligst" formen før den går igang med at køre "hent data"
Jeg kunne godt tænke mig at vide hvordan man laver en progress bar også - men jeg skal vise den form med vent venligst i denne sag.

Jeg kan ikke forstå at din formular "vent venligst" ikke vises som den skal.
Jeg har lavet et forsøg med en lignende opsætning her, og det virker tilsyneladende.

Kunne

Me.repaint

virke (den opfrisker skærmen)

eller evt. DoEvents lige før HentData:

Private Sub Kommandoknap12_Click()

    Dim stDocName As String
    Dim stLinkCriteria As String
DoCmd.Close
    stDocName = "vent venligst"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Echo 1000, "Henter data...."
DoEvents
HentData
    DoCmd.Close
    stDocName = "Autoexec_efter"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

DoEvents skulle bare ind det rigtige sted - så virkede det.
Tak.

me.repaint virkede ikke, da den form som VBA kører fra lukkes før "vent venligst" formen.