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.