Slik bruker ActiveX Progress Bar i Access 2003 med Visual Basic

Å vite hvordan du bruker en ActiveX ProgressBar kontrollen i Microsoft Office Access kan gjøre programmet mer brukervennlig ved å være i stand til å vise en bruker fremdriften for en bestemt oppgave. Access er en relasjonsdatabase styringssystem som tilbys i Microsoft Office-pakken. Microsoft Visual Basic for Applications (VBA) er et programmeringsspråk som brukes i Access for å automatisere rutineoppgaver. Heldigvis kan VBA brukes til å lage en ActiveX-kontroll ProgressBar og definere dets egenskaper.

Bruksanvisning

1 Åpne Microsoft Access 2003. Lag en ny database ved å velge "Ny database," og velg "Create". Klikk på "Skjemaer" -kategorien og velg "New" for å opprette en ny form.

2 Klikk på "Insert" -menyen, og klikk deretter på "ActiveX Control." Dobbeltklikk "Microsoft ProgressBar Control" for å legge kontrollen. Legg en kommandoknapp ved å velge den fra "Toolbox" -menyen. Venstreklikk skjemaet og dra musen mens du holder museknappen. Legg en etikett til skjemaet ved å bruke den samme teknikken. Høyreklikk den nye kommandoknappen, og velg deretter «Bygg Event." Velg "Code Builder" fra "Velg Builder" dialogboksen. Klikk på "OK".

3 Kopier og lim inn følgende til "Module" vindu inne i kommandoknappen prosedyre for å erklære de variablene du vil bruke:

Dim prg Som ProgressBar

Dim IntValue As Long

Dim fmin As String

Dim fmax As String

Dim fstep As String

Dim strComplete As String

4 Skriv inn følgende for å stille min, max og trinnet for fremdriftsindikator kontroll:

fmin = 1

fmax = 20

fstep = 2

5 Skriv inn følgende for å definere "PRG" variable som fremdriftslinjen kontroll:

Set prg = Me! ProgressBar0.Object

6 Skriv inn følgende å sløyfe fra min verdi til max verdi under oppdatering av fremdriftslinjen kontroll:

Gjøre

IntValue = IntValue + fstep

Hvis IntValue> = prg.Max Deretter

IntValue = prg.Max

Slutt om

prg.Value = IntValue

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

" % Complete"

label1.Caption = strComplete

DoCmd.RepaintObject

Loop Mens IntValue <prg.Max

7 Høyreklikk skjemaet, og klikk deretter på "Form View." Klikk "Button1", som vil utføre prosedyrekode for å fylle ActiveX ProgressBar kontroll.