Goedendag,
Ik probeer een voortgangsbalk (progress bar) te realiseren met de volgende code:
Maar wat er nu gebeurt is dat de progress bar rechtsonder verschijnt in het Access venster. Is er ook een mogelijkheid dat Access zelf een messagebox genereert (dus liefst geen eigengemaakte form hiervoor!) met de progress bar. Ik vraag me dan ook af het mogelijk is om aan te geven in diezelfde messagebox met progress bar, waar die dan mee bezig is (zoals aangegeven in de code). Dus bijvoorbeeld eerst bezig met Query A, dan met Query B, etc.
Is dit mogelijk in VBA (niet in function)?
:thumb: bedankt voor de hulp,
scw
Ik probeer een voortgangsbalk (progress bar) te realiseren met de volgende code:
Code:
Private Sub CmdUpdate_Click()
Dim Counter As Integer
MsgBox "Het updaten gaat beginnen.", vbExclamation, "Transport Cost Breakdown"
If MsgBox("Ben je klaar om te updaten?", vbQuestion + vbYesNo, "voorbeeldDB") = vbNo Then
Exit Sub
Else
DoCmd.SetWarnings False
SysCmd acSysCmdInitMeter, "Aan het updaten: ", 1000
For Counter = 1 To 1000
SysCmd acSysCmdUpdateMeter, Counter
DoCmd.OpenQuery "qryA" 'Nu bezig met het updaten van: Query A
DoCmd.OpenQuery "qryB" 'Nu bezig met het updaten van: Query B
DoCmd.OpenQuery "qryC" 'Nu bezig met het updaten van: Query C
DoCmd.OpenQuery "qryD" 'Nu bezig met het updaten van: Query D
Next Counter
SysCmd acSysCmdRemoveMeter
DoCmd.SetWarnings True
End If
MsgBox "Het updaten is gelukt!", vbInformation + vbOKOnly, "voorbeeldDB"
Maar wat er nu gebeurt is dat de progress bar rechtsonder verschijnt in het Access venster. Is er ook een mogelijkheid dat Access zelf een messagebox genereert (dus liefst geen eigengemaakte form hiervoor!) met de progress bar. Ik vraag me dan ook af het mogelijk is om aan te geven in diezelfde messagebox met progress bar, waar die dan mee bezig is (zoals aangegeven in de code). Dus bijvoorbeeld eerst bezig met Query A, dan met Query B, etc.
Is dit mogelijk in VBA (niet in function)?
:thumb: bedankt voor de hulp,
scw