Criando Barra de Carregando (Loading...) no Access - Parte 2

No post anterior criamos a parte "física" da nossa barra. Agora, criaremos a parte lógico.

Com o banco aberto e o formulário no "Modo Design", abra sua "Folha de propriedades" e vá até a guia "Evento", opção "No Timer" e escolha o "Construtor de código", como visto abaixo:

Com o "Microsoft Visual Basic for Application" aberto, digite o seguinte código:

Option Compare Database

Private Sub Form_Timer()

If barra_Carregando1.Visible = False Then
    barra_Carregando1.Visible = True
    Exit Sub
End If

If barra_Carregando2.Visible = False Then
    barra_Carregando1.Visible = False
    barra_Carregando2.Visible = True
    Exit Sub
End If

If barra_carregando3.Visible = False Then
    barra_Carregando1.Visible = False
    barra_Carregando2.Visible = False
    barra_carregando3.Visible = True
    Exit Sub
End If

End Sub

O resultado é como visto a seguir:

Logo em seguida, mude a propriedade "Visível" dos três retângulos para "Não":

Por fim, com as propriedades do formulário abertas, na guia "Evento", propriedade "Intervalo do cronômetro", digite "1000" (sem as aspas), como visto abaixo:

Pronto! Se você seguiu todos os passos corretamente, quando você carregar seu formulário, a barra de carregando estará funcionando perfeitamente.

Caso deseje alterar o tempo que cada barra carrega, basta mudar o valor presente em "Intervalo do Cronômetro". Lá "1000" equivale a 1 segundo.

Download do arquivo completo aqui.
Ir para a Parte 1 do tutorial aqui.