Saper utilizzare un controllo ActiveX ProgressBar in Microsoft Office Access può rendere l'applicazione più user-friendly per essere in grado di mostrare un utente lo stato di avanzamento di una determinata attività. Access è un sistema di gestione di database relazionali offerti nella suite Microsoft Office. Microsoft Visual Basic, Applications Edition (VBA) è un linguaggio di programmazione utilizzato in Access per automatizzare le attività di routine. Fortunatamente, VBA può essere utilizzato per creare un controllo ActiveX ProgressBar e definirne le proprietà.

istruzione

1 Aprire Microsoft Access 2003. Creare un nuovo database selezionando "Nuovo database", quindi selezionare "Crea". Fare clic sulla scheda "Moduli" e selezionare "Nuovo" per creare un nuovo modulo.

2 Fare clic sul menu "Inserisci", e quindi fare clic su "controllo ActiveX". Fare doppio clic su "Microsoft ProgressBar Control" per aggiungere il controllo. Aggiungere un pulsante di comando selezionandolo dal menu "Strumenti". Sinistra clic sul modulo e trascinare il mouse tenendo premuto il pulsante del mouse. Aggiungere un'etichetta al modulo utilizzando la stessa tecnica. Fare clic con il nuovo pulsante di comando, quindi selezionare "Build Event". Selezionare "Generatore di codice" dalla finestra di dialogo "Scegli generatore". Fai clic su "OK".

3 Copiare e incollare il seguente alla finestra "Module" all'interno della procedura di pulsante di comando per dichiarare le variabili che si intende utilizzare:

prg fioco come ProgressBar

Dim intValue As Long

Dim fmin As String

fmax Dim As String

Dim fstep As String

Dim strComplete As String

4 Digitare quanto segue per impostare il min, max e il passo per il controllo barra di avanzamento:

fmin = 1

fmax = 20

fstep = 2

5 Digitare quanto segue per definire la variabile "prg", come il controllo di barra di avanzamento:

Set prg = Me! ProgressBar0.Object

6 Digitare il seguente loop dal valore minimo al valore massimo durante l'aggiornamento del controllo barra di avanzamento:

Fare

IntValue = intValue + fstep

Se intValue> = prg.Max Poi

IntValue = prg.Max

Finisci se

prg.Value = intValue

strComplete = Format ((prg.Value / prg.Max) * 100, "##") & _

" % Complete"

Label1.Caption = strComplete

DoCmd.RepaintObject

Loop While intValue <prg.Max

7 Fare clic con il modulo, e poi cliccare su "Visualizza come modulo." Fai clic su "Button1", che eseguirà il codice di procedura per riempire il controllo ActiveX ProgressBar.