vide hvordan man bruger et ActiveX ProgressBar kontrol i Microsoft Office Access kan gøre din ansøgning mere brugervenlig ved at kunne vise en bruger forløbet af en bestemt opgave. Access er en relationel database management system , der tilbydes i Microsoft Office-pakken. Microsoft Visual Basic for Applications ( VBA ) er en computer programmeringssprog, der anvendes i Access til at automatisere rutineopgaver. Heldigvis kan VBA bruges til at skabe et ActiveX ProgressBar kontrol og definere dens egenskaber. Ting du skal
Microsoft Access 2003
Vis Flere Instruktioner
1
Åbn Microsoft Access 2003 . Opret en ny database ved at vælge " Ny database " og derefter vælge " Opret ". Klik på " Formularer "-fanen og vælg "Ny " for at oprette en ny formular.
2
Klik på " Indsæt" menuen , og klik derefter på " ActiveX Control ". Dobbeltklik på " Microsoft ProgressBar Control" for at tilføje kontrollen. Tilføj en kommandoknap ved at vælge det fra "Toolbox "-menuen. Venstre-klik på formen og trække med musen , mens du holder museknappen nede . Tilføj en etiket til formularen ved hjælp af samme teknik. Højreklik på den nye kommando -knappen, og vælg derefter " Build Event. " Vælg "Code Builder " fra " Vælg Builder " dialogboksen . Klik på "OK".
3
Kopier og indsæt følgende til " Module " vinduet inde kommandoknappen procedure til at erklære de variabler, du vil bruge : Hej
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 følgende for at indstille min, max og skridt for din statuslinje kontrol : Hej
fmin = 1
fmax = 20 < br >
fstep = 2
5
Skriv følgende for at definere " prg " variabel som statuslinjen kontrol :
Set prg = Me ProgressBar0.Object
6
Skriv følgende at sløjfe fra min værdi til den max værdi under opdatering statuslinjen kontrol : Hej
Gør
IntValue = IntValue + fstep
< p > Hvis IntValue > = prg.Max Så
IntValue = prg.Max
End If
prg.Value = IntValue
strComplete = Format ( ( prg.Value /prg.Max ) * 100 , "# #" ) & _
"% Complete "
Label1.Caption = strComplete
DoCmd.RepaintObject < br >
Loop Mens IntValue < prg.Max
7
Højreklik på formularen, og klik derefter på " form View ". Klik på " Button1 ", som vil udføre den procedure koden til at fylde ActiveX ProgressBar kontrol.