Saber usar um controle ActiveX ProgressBar no Microsoft Office Access pode fazer a sua aplicação mais user-friendly por ser capaz de mostrar ao usuário o progresso de uma tarefa particular. Access é um sistema de gerenciamento de banco de dados relacional oferecido na suíte Microsoft Office. Microsoft Visual Basic for Applications (VBA) é uma linguagem de programação de computador usado no Access para automatizar tarefas rotineiras. Felizmente, VBA pode ser usado para criar um controle ActiveX ProgressBar e definir suas propriedades. Coisas que você precisa
Microsoft Access 2003
Show Mais instruções
1

Abra Microsoft Access 2003. Criar um novo banco de dados , selecionando " New Database" e , em seguida, selecione " Criar". Clique na aba " Formulários" e selecione " Novo" para criar um novo formulário.
2

Clique no menu "Inserir" e clique em "Controle ActiveX ". Clique duas vezes em "Microsoft ProgressBar de controle" para adicionar o controle . Adicionar um botão de comando , selecionando-o a partir do menu " Ferramentas " . Clique com o botão esquerdo do formulário e arraste o mouse , mantendo o botão do mouse. Adicionar um rótulo para o formulário usando a mesma técnica. Direito do mouse no novo botão de comando , e em seguida, selecione " Construir evento . " Selecione " Construtor de código " na caixa de diálogo " Escolher construtor " . Clique em " OK".
3

Copie e cole o seguinte para a janela "Module" dentro do procedimento botão de comando para declarar as variáveis ​​que você vai usar :

Dim prg como ProgressBar

Dim intValue As Long Dim

fmin As String Dim

fmax As String Dim

fstep As String Dim

strComplete as String
4

Digite o seguinte para definir o min, max eo passo para o seu controle de barra de progresso :

fmin = 1

fmax = 20 < br >

fstep = 2
5

Digite o seguinte para definir a variável " prg ", como o controle da barra de progresso :

definir prg = me ProgressBar0.Object

6

Digite o seguinte para repetir a partir do valor mínimo ao valor máximo durante a atualização do controle de barra de progresso :

do

intValue = intValue + fstep

Se intValue > = prg.Max Então

intValue = prg.Max

End If

prg.Value = intValue

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

"% Complete"

Label1.Caption = strComplete

DoCmd.RepaintObject

loop While intValue 7

botão direito do mouse no formulário e , em seguida, clique em " Form View ". Clique em " Button1 ", que irá executar o código do procedimento para preencher o controle ActiveX ProgressBar.