[Resolvido]Barra Progresso x Botao

Ola Pessoal

tenho esse código num formulário , funciona perfeito eu gostaria de colocar num formulário e quando eu clicar num botao ai ele aparece e executar


Private Sub Form_Timer()

txtContagem = txtContagem + 1

lblPorcentagem.Caption = txtContagem & " %"

txtProgresso.Width = txtContagem * 50

If txtContagem = 100 Then

Me.TimerInterval = 0

MsgBox ("Base Limpa com Sucesso"), vbInformation, "Atenção"

DoCmd.Close acForm, "Frm_BarraBase"


End If

No seu botão, coloque

Código:

me.timerinterval = 1000 'um segundo, com isso o evento timer começa a ser executado

Ola DamascenoJr.

funcionou correto a sua dica

muito obrigado

O fórum agradece o retorno. Sucesso.