Hoe de ActiveX voortgangsbalk gebruiken in Access 2003 met Visual Basic

Weten hoe u een ActiveX ProgressBar controle in Microsoft Office Access kan uw applicatie gebruiksvriendelijker door de mogelijkheid om een ​​gebruiker de voortgang van een bepaalde taak te laten zien maken. Access is een relationele database management systeem aangeboden in de Microsoft Office-suite. Microsoft Visual Basic for Applications (VBA) is een programmeertaal gebruikt in Access om routinematige taken te automatiseren. Gelukkig kan VBA worden gebruikt om een ​​ActiveX ProgressBar controle zijn eigenschappen te creëren en te definiëren.

instructies

1 Open Microsoft Access 2003. Maak een nieuwe database door te kiezen voor "New Database," en selecteer "Create." Klik op het tabblad 'Formulieren "en selecteer" Nieuw "om een ​​nieuwe vorm te creëren.

2 Klik op het menu "Invoegen" en vervolgens op "ActiveX-besturingselement." Dubbelklik op "Microsoft ProgressBar Control" aan de controle toe te voegen. Een opdracht knop toevoegen door in het menu "Toolbox" selecteren. Links op het formulier en sleep je de muis terwijl u de muisknop ingedrukt. Een label van de vorm met behulp van dezelfde techniek. Klik met de rechtermuisknop de nieuwe opdracht knop en selecteer "Build Event." Selecteer "Code Builder" van het "Kies Builder" dialoogvenster. Klik op 'OK'.

3 Kopieer en plak de volgende aan de "Module" raam in de opdracht knop procedure om de variabelen die u wilt gebruiken verklaart:

Dim prg Zoals ProgressBar

Dim intValue As Long

Dim fmin As String

Dim fmax As String

Dim fstep As String

Dim strComplete As String

4 Typ het volgende om de min, max en de stap voor uw voortgangsbalk controle in te stellen:

fmin = 1

fmax = 20

fstep = 2

5 Typ het volgende om de "prg" variabele definiëren als de voortgangsbalk controle:

Set prg = Me! ProgressBar0.Object

6 Typ de volgende lus van de min waarde aan de maximum waarde tijdens het bijwerken van de voortgangsbalk controle:

Do

IntValue = intValue + fstep

Als intValue> = prg.Max Dan

IntValue = prg.Max

Stop als

prg.Value = intValue

strComplete = Format ((prg.Value / prg.Max) * 100, "##") & _

" % Complete"

Label1.Caption = strComplete

DoCmd.RepaintObject

Loop While intValue <prg.Max

7 Met de rechtermuisknop op het formulier en klik vervolgens op "Form View." Klik op "Button1", die de procedure code om de ActiveX ProgressBar controle te vullen zal uitvoeren.