Weten hoe u een ActiveX-besturingselement ProgressBar in Microsoft Office Access kan uw toepassing nog gebruiksvriendelijker te maken door de mogelijkheid om een gebruiker de voortgang van een bepaalde taak te tonen . Access is een relationele database management systeem aangeboden in de Microsoft Office suite . Microsoft Visual Basic for Applications ( VBA ) is een programmeertaal die in Access om routinetaken te automatiseren . Gelukkig kan VBA worden gebruikt om een ActiveX-besturingselement ProgressBar maken en definieer de eigenschappen . Wat je nodig hebt
Microsoft Access 2003
Toon Meer Aanwijzingen
Open Microsoft Access 2003 1 . Maak een nieuwe database door " New Database , " en selecteer vervolgens "Create . " Klik op het tabblad " Formulieren " en selecteer " Nieuw " om een nieuw formulier te maken . Kopen van 2 Klik op het menu "Invoegen " en klik vervolgens op ' ActiveX Control . " Dubbelklik op " Microsoft ProgressBar Control" aan de controle toe te voegen . Een opdracht knop toevoegen door deze te selecteren in het menu "Instellingen". Links op het formulier en sleep de muis terwijl u de muisknop ingedrukt houdt . Voeg een label aan het formulier met dezelfde techniek . Rechtermuisknop op de nieuwe opdracht knop , en kies vervolgens " Build Event . " Selecteer " Code Builder " van de "Choose Builder " dialoogvenster . Klik op "OK . "
Kopieer 3 en plak de volgende om de "Module " raam in de opdracht knop procedure om de variabelen die u wilt gebruiken verklaart : Dim prg
zoals ProgressBar Dim intValue
zoals lang Dim fmin
als Koord Dim fmax
als Koord Dim fstep
als Koord
Dim strComplete
fmin = 1 fmax
= 20 < br : als String
Type 4 het volgende aan de min , max en de stap voor uw voortgangsbalk controle instellen fstep = 2
5 Typ het volgende om de variabele " prg " definiëren als de bar voortgangscontrole > : ! Set
prg = Me ProgressBar0.Object
Type 6 het volgende aan lus van de min waarde aan de maximum waarde tijdens het bijwerken van de bar voortgangscontrole :
Do
intValue = intValue + fstep
Als intValue > = prg.Max dan
intValue = prg.Max End
Als prg.Value = intValue strComplete
= Format
( ( prg.Value /prg.Max ) * 100 , " # # " ) & _ " % voltooid " Label1.Caption
= strComplete DoCmd.RepaintObject
< br Loop > Terwijl intValue 7 rechtermuisknop op het formulier en klik vervolgens op "Form View . " Klik op " Button1 ", die de procedure code wordt uitgevoerd aan het ActiveX-besturingselement ProgressBar vullen .
|
