Wissen, wie man ein ActiveX- Steuerelement ProgressBar in Microsoft Office Access kann Ihren Antrag noch benutzerfreundlicher durch die Möglichkeit zu zeigen, einem Benutzer den Fortschritt einer bestimmten Aufgabe. Access ist ein relationales Datenbank- Management-System in der Microsoft Office-Suite angeboten . Microsoft Visual Basic für Applikationen (VBA ) ist ein Computer-Programmiersprache in Access verwendet, um Routineaufgaben zu automatisieren . Glücklicherweise kann VBA verwendet, um ein ActiveX- Steuerelement ProgressBar erstellen und definieren ihre Eigenschaften werden. Things You
Microsoft Access 2003
brauchen anzeigen Weitere Anweisungen
1
Öffnen Sie Microsoft Access 2003 . Erstellen Sie eine neue Datenbank , indem Sie " Neue Datenbank ", und wählen Sie dann " Erstellen". Klicken Sie auf das Register "Vorlagen" und wählen Sie " Neu", um ein neues Formular erstellen .
2
Klicken Sie auf das Menü "Einfügen" , und klicken Sie dann auf " ActiveX-Steuerelement. " Doppelklicken Sie auf " Microsoft ProgressBar Control" , um das Steuerelement hinzuzufügen. Fügen Sie eine Befehlsschaltfläche indem Sie sie aus der "Toolbox "-Menü. Linke Maustaste auf das Formular und ziehen Sie die Maus mit gedrückter Maustaste. Fügen Sie ein Label auf die Form mit der gleichen Technik . Der rechten Maustaste auf die neue Schaltfläche , und wählen Sie dann "Build -Ereignis. " Wählen Sie " Code-Generator " aus dem " Generator auswählen "-Dialog . Klicken Sie auf " OK".
3
Kopieren Sie den folgenden auf die "Module" Fenster in die Schaltfläche Verfahren, um die Variablen , die Sie verwenden erklären :
Dim prg wie ProgressBar
Dim IntValue As Long Dim
fmin As String Dim
fmax As String Dim
Fstep As String Dim
strComplete As String
4
Geben Sie den folgenden stellt man die min , max und der Schritt für Ihre Fortschrittsbalken Steuerung:
fmin = 1
fmax = 20
Fstep = 2
5
Geben Sie den folgenden , um die "PRG " Variable als Statusanzeige-Steuerelement definieren :
Set prg = Me ProgressBar0.Object
Seite 6
Geben Sie den folgenden in einer Schleife von der min-Wert der max-Wert während der Aktualisierung der Statusanzeige-Steuerelement :
Haben
IntValue = IntValue + Fstep
< p > Wenn IntValue > = prg.Max Dann
IntValue = prg.Max
End If
prg.Value = IntValue
strComplete = Format ( ( prg.Value /prg.Max ) * 100 , "# #" ) & _
" % abgeschlossen "
Label1.Caption = strComplete
DoCmd.RepaintObject
Loop While IntValue < prg.Max
7
der rechten Maustaste auf das Formular, und klicken Sie dann auf "Form View. " Klicken Sie auf " Button1 ", die das Verfahren Code ausführen wird , um die ActiveX ProgressBar-Steuerelement zu füllen.
