Att veta hur man använder en ActiveX ProgressBar kontrollen i Microsoft Office Access kan göra din ansökan mer användarvänligt genom att kunna visa användaren hur en viss uppgift . Access är en relationsdatabas management system som erbjuds i Microsoft Office-paketet . Microsoft Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används i Access för att automatisera rutinuppgifter . Lyckligtvis kan VBA användas för att skapa en ActiveX ProgressBar kontroll och definiera dess egenskaper . Saker du behöver
Microsoft Access 2003
Visa fler instruktioner
1
Öppna Microsoft Access 2003 . Skapa en ny databas genom att välja " Ny databas , " och välj sedan " Skapa ". Klicka på " Blanketter " -fliken och välj " Nytt " för att skapa en ny form .
2
Klicka på " Infoga " -menyn , och klicka sedan på " ActiveX-kontroll . " Dubbelklicka på " Microsoft ProgressBar Control" för att lägga till kontrollen . Lägg en kommandoknapp genom att välja den från menyn "Verktyg" . Vänster - klicka på formen och dra musen medan du håller ned musknappen . Lägg till en etikett till formen med samma teknik . Högerklicka på den nya kommandoknappen , och välj sedan " Build händelse . " Välj " Code Builder " från " Välj Builder " dialogrutan . Klicka på " OK . " Addera 3
Kopiera och klistra in följande till " Module " fönster inne kommandoknappen förfarandet för att förklara de variabler som du kommer att använda :
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öljande för att ställa in min , max och steget för din förloppsindikatorn kontroll :
fmin = 1
fmax = 20
fstep = 2
5
Skriv följande för att definiera " PRG " variabel som förloppsindikatorn kontroll :
Set prg = Me ProgressBar0.Object
6
Skriv följande till slingan från minvärde till max värde under uppdatering kontroll förloppsindikator :
Do
IntValue = IntValue + fstep
Om IntValue > = prg.Max Sen
IntValue = prg.Max
End If
prg.Value = IntValue
strComplete = Format ( ( prg.Value /prg.Max ) * 100 , " # # " ) & _
" % Complete "
label1.Caption = strComplete
DoCmd.RepaintObject
Loop While IntValue < prg.Max
7
Högerklicka på formen och klicka sedan på " form View . " Klicka på " Button1 , " som kommer att utföra proceduren koden att fylla ActiveX ProgressBar kontroll .
