Saper utilizzare un controllo ProgressBar ActiveX in Microsoft Office Access può rendere l'applicazione più facile da essere in grado di mostrare un utente lo stato di avanzamento di una determinata attività. Access è un sistema di gestione di database relazionale offerto 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 ProgressBar ActiveX e definirne le proprietà . Cose che ti serviranno
Microsoft Access 2003
Mostra più istruzioni
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" , quindi fare clic su "Controllo ActiveX ". Fare doppio clic su " Controllo ProgressBar Microsoft " per aggiungere il controllo . Aggiungere un pulsante di comando selezionando dal menu "Strumenti". Sinistra clic sul form e trascinare il mouse tenendo premuto il tasto del mouse . Aggiungere un'etichetta al modulo utilizzando la stessa tecnica . Fare clic con il nuovo pulsante di comando , e quindi selezionare " Genera evento . " Selezionare " Generatore di codice " dalla finestra di dialogo "Scegli Builder" . Fare clic su "OK".
3

Copia e incolla il seguente nella finestra del "Modulo " all'interno della procedura di pulsante di comando per dichiarare le variabili che si intende utilizzare :

Dim prg come ProgressBar

Dim intValue As Long Dim

fmin As String Dim

fmax 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 < br >

FSTEP = 2
5

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

ProgressBar0.Object
prg = Me! Pagina 6

digitare quanto segue per anello dal valore minimo al valore massimo , mentre l'aggiornamento del controllo della barra di avanzamento :

Do

intValue = intValue + Commercio FSTEP < p > Se intValue > = prg.Max Poi

intValue = prg.Max

End If

prg.Value = intValue

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

" % Complete"

Label1.Caption = strComplete

DoCmd.RepaintObject < br

loop > Mentre intValue < prg.Max
7

destro del mouse il modulo e quindi fare clic su "Modulo di vista . " Fare clic su " Button1 ", che eseguirà il codice di procedura per riempire il controllo ProgressBar ActiveX .