Å vite hvordan du bruker en ActiveX ProgressBar kontroll i Microsoft Office Access kan gjøre programmet mer brukervennlig ved å kunne vise en bruker fremdriften av 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 ProgressBar kontroll og definere sine eiendommer . Du trenger
Microsoft Access 2003
Vis flere instruksjoner
en

Åpne Microsoft Access 2003 . Opprett en ny database ved å velge " Ny database ", og velg "Create ". Klikk på " Skjemaer "-fanen og velg "New " for å opprette et nytt skjema .
2

Klikk på " Insert"-menyen , og klikk deretter på " ActiveX Control . " Dobbeltklikk på " Microsoft ProgressBar Control" for å legge kontrollen . Legg til en kommandoknapp ved å velge den fra " Toolbox "-menyen . Venstre -klikk på form og dra musen mens du holder museknappen . Legg en etikett til skjemaet ved hjelp av samme teknikk. Høyreklikk det nye kommando -knappen , og velg deretter "Bygg Event. " Velg " Kode Builder " fra " Velg verktøy " i dialogboksen . Klikk "OK".
3

Kopier og lim inn følgende til " Module "-vinduet inne kommandoknappen prosedyre for å erklære variablene du vil bruke : en

Dim prg som ProgressBar

Dim IntValue som Long

Dim fmin As String

Dim fmaks As String

Dim fstep As String

Dim strComplete som String
4

Skriv inn følgende for å sette min, max og trinnet for din fremgang bar kontroll : en

fmin = 1

fmaks = 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 fremdriftslinjen kontroll : en

IntValue = IntValue + fstep
< p > Hvis IntValue > = prg.Max Deretter

IntValue = prg.Max

End If

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å "Skjema View. " Klikk " Button1 ", som vil utføre prosedyren koden for å fylle ActiveX ProgressBar kontroll .