Messagebox op achtergrond

[bertje123]

hoi

Ik heb een database met enorm veel querys, soms moet ik querys uitvoeren die wat lang aanslepen. nu zou ik graag hebben, dat terwijl deze query loopt, dat er een messagebox verschijnt die zegt dat het nog bezig is, of die een progress bar toont, maakt me niet uit.

Ik gebruik nu dit, Dim LResponse As Integer
LResponse = MsgBox("Gelieve niet van venster te veranderen" & Chr(13) & "De Query is in verwerking.", , "Het systeem is bezig")

Nu voert hij de volgende commando maar uit, als ik op ok heb gedrukt.

Bedankt

 

[ReneDirks]

Tja, een messagebox heeft modaal de focus, dus dat gaat niet lukken. Je zult dan zelf een (bv borderless) form moeten maken waar je de voortgang in laat zien. Je kunt dit natuurlijk ook in de statusbar weergeven, maar mijn ervaring is dat mensen dit al snel over het hoofd zien.

 

[OctaFish]

Zoiets dus: