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


3 participantes

    [Resolvido]Contar numero

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 578
    Registrado : 30/08/2010

    [Resolvido]Contar numero Empty [Resolvido]Contar numero

    Mensagem  NADIRONUNES 25/5/2016, 15:28

    bom dia

    como que faco pra contar com esse exemplo, so que queria contar com sleep e nao usar o form_timer() do formulario

    Dim X As Byte

    Private Sub btnTeste_Click()
    Me.TimerInterval = 1000
    End Sub

    Private Sub Form_Timer()
    If X = 100 Then
    Me.TimerInterval = 0
    Me.lbAviso.Visible = False
    Me.Gif89a0.Visible = False
    Exit Sub
    Else
    Me.Gif89a0.Visible = True
    Me.lbAviso.Visible = True
    X = X + 1
    Me.lbAviso.Caption = X & " Arquivo(s)"
    End If
    End Sub

    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 03/11/2014

    [Resolvido]Contar numero Empty Re: [Resolvido]Contar numero

    Mensagem  baldocchi 25/5/2016, 16:11

    Dim X As Byte

    Private Sub btnTeste_Click()
    Me.TimerInterval = 1000
    End Sub

    Private Sub Form_Timer()

    *****************************************************
    sua intenção aqui é voltar o cronometro para Zero ???
    If X = 100 Then
    Me.TimerInterval = 0
    *****************************************************

    Me.lbAviso.Visible = False
    Me.Gif89a0.Visible = False
    Exit Sub
    Else
    Me.Gif89a0.Visible = True
    Me.lbAviso.Visible = True
    X = X + 1
    Me.lbAviso.Caption = X & " Arquivo(s)"
    End If
    End Sub


    sei lá, eu usaria um for ou while.....
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Contar numero Empty Re: [Resolvido]Contar numero

    Mensagem  Avelino Sampaio 26/5/2016, 18:24

    Olá!

    Utilize o FOR.  Algo assim

    Dim j%
    Me.Gif89a0.Visible = True
    Me.lbAviso.Visible = True
    For j = 1 to 100
      sleep 1000
      Me.lbAviso.Caption = j & " Arquivo(s)"
    next j
    Me.lbAviso.Visible = False
    Me.Gif89a0.Visible = False


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 578
    Registrado : 30/08/2010

    [Resolvido]Contar numero Empty Re: [Resolvido]Contar numero

    Mensagem  NADIRONUNES 27/5/2016, 12:48

    obrigado a todos

    Conteúdo patrocinado


    [Resolvido]Contar numero Empty Re: [Resolvido]Contar numero

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:48