MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Barra Progresso x Botao

    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 336
    Registrado : 13/03/2011

    [Resolvido]Barra Progresso x Botao Empty [Resolvido]Barra Progresso x Botao

    Mensagem  msilveir 12/5/2022, 22:40

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3598
    Registrado : 22/11/2016

    [Resolvido]Barra Progresso x Botao Empty Re: [Resolvido]Barra Progresso x Botao

    Mensagem  DamascenoJr. 13/5/2022, 00:12

    No seu botão, coloque
    Código:
    me.timerinterval = 1000 'um segundo, com isso o evento timer começa a ser executado


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 336
    Registrado : 13/03/2011

    [Resolvido]Barra Progresso x Botao Empty Re: [Resolvido]Barra Progresso x Botao

    Mensagem  msilveir 13/5/2022, 03:59

    Ola DamascenoJr.

    funcionou correto a sua dica

    muito obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3598
    Registrado : 22/11/2016

    [Resolvido]Barra Progresso x Botao Empty Re: [Resolvido]Barra Progresso x Botao

    Mensagem  DamascenoJr. 13/5/2022, 04:01

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    [Resolvido]Barra Progresso x Botao Empty Re: [Resolvido]Barra Progresso x Botao

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2022, 00:27