Verwendung der ActiveX-Fortschrittsbalken in Access 2003 mit Visual Basic
Zu wissen, wie ein ActiveX-ProgressBar-Steuerelement in Microsoft Office Access verwenden, kann Ihre Anwendung benutzerfreundlicher machen durch die Möglichkeit, einem Benutzer zeigen den Fortschritt einer bestimmten Aufgabe. Der Zugang ist ein relationales Datenbank-Managementsystem, in der Microsoft Office-Suite angeboten. Microsoft Visual Basic für Applikationen (VBA) ist eine Programmiersprache, die in Access verwendet, um Routineaufgaben zu automatisieren. Glücklicherweise kann VBA verwendet werden, zum Erstellen einer ActiveX-ProgressBar-Steuerelement und seine Eigenschaften zu definieren.
Anweisungen
1 Öffnen Sie Microsoft Access 2003. Erstellen Sie eine neue Datenbank, indem Sie "Neue Datenbank" auswählen, und wählen Sie dann "Erstellen". Klicken Sie auf der Registerkarte "Formulare" und wählen Sie "Neu" zum Erstellen eines neuen Formulars.
2 Klicken Sie im Menü "Einfügen" und dann auf "ActiveX-Steuerelement". Doppelklicken Sie auf "Microsoft-ProgressBar-Steuerelement" um das Steuerelement hinzuzufügen. Fügen Sie eine Befehlsschaltfläche, indem Sie sie aus dem Menü "Toolbox" auswählen. Klicken Sie auf das Formular und bewegen Sie die Maus bei gedrückter Maustaste. Fügen Sie ein Label auf das Formular mit der gleichen Technik. Der neue Befehl Maustaste, und wählen Sie dann "Build Ereignis." Wählen Sie "Code-Generator" im Dialogfeld "Generator auswählen". Klicken Sie auf "OK".
3 Kopieren Sie und fügen Sie Folgendes zum Fenster "Module" innerhalb der Befehl Schaltfläche Prozedur Variablen deklarieren, die Sie verwenden möchten:
Dim Prg als ProgressBar
Dim IntValue so lange
Fmin As String Dim
Fmax As String Dim
Dim Fstep As String
Dim StrComplete As String
4 Geben Sie Folgendes ein, um der min, Max und der Schritt für Ihre Statusanzeige-Steuerelement festgelegt:
FMIN = 1
Fmax = 20
Fstep = 2
5 Geben Sie Folgendes ein, um die Variable "Prg" als Statusanzeige-Steuerelement definieren:
Festlegen von Prg = Me! ProgressBar0.Object
6 Geben Sie Folgendes an der max-Wert aus dem Mindeswert Schleife, während der Aktualisierung des Statusanzeige-Steuerelements:
Tun
IntValue = IntValue + Fstep
Wenn IntValue > = Prg. Max dann
IntValue = prg.Max
EndIf
Prg. Wert = IntValue
StrComplete = Format ((Prg. Wert / Prg. Max) * 100, "##") & _
" % Complete"
Label1. Beschriftung = StrComplete
DoCmd.RepaintObject
Loop während IntValue < Prg. Max
7 Maustaste auf das Formular, und klicken Sie auf "Formularansicht." Klicken Sie auf "Button1", die Code der Prozedur zum Ausfüllen des ActiveX ProgressBar-Steuerelements ausgeführt wird.