MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Mensagem de Aviso no Cronômetro

    Compartilhe
    avatar
    Krauss
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 23/12/2011

    Mensagem de Aviso no Cronômetro

    Mensagem  Krauss em 2/2/2012, 16:42

    Boa tarde!

    Tenho um formulário de contagem regressiva que, assim que abre, começa a contar de '00:10:00' (10 minutos) até o '0' (zero), sendo que, ao chegar no '0' (zero), fecha o BD.

    Até então perfeito, porém eu gostaria que, quando faltassem 2 minutos pra terminar a contagem, exibisse uma mensagem de aviso "O sistema irá encerrar em 2 minutos! Salve suas atividades."
    ______________________________________________________________________

    No evento 'Ao carregar' do formulário tenho o código:

    Me.Texto0 = "00:00:15"
    Me.TimerInterval = 100
    -----------------------------------------
    No evento 'No timer' do formulário tenho o código:

    Dim xHora, h As Integer
    Dim xMinuto, m As Integer
    Dim xSegundo, s As Integer
    Dim x As Integer

    xSegundo = Second(Texto0)
    xMinuto = Minute(Texto0)
    xHora = Hour(Texto0)
    Me.TimerInterval = 1000

    If xSegundo > 0 Then
    xSegundo = xSegundo - 1
    Else
    xSegundo = 59
    If xMinuto > 0 Then
    xMinuto = xMinuto - 1
    Else
    xMinuto = 59
    If xHora >= 0 Then
    xHora = xHora - 1
    End If
    End If
    End If

    Me.Texto0 = Format(TimeSerial(xHora, xMinuto, xSegundo), "hh:mm:ss")
    If xHora = 0 And xMinuto = 0 And xSegundo = 0 Then
    Beep

    Me.TimerInterval = 0
    DoCmd.Close
    DoCmd.OpenForm "Barra de Progresso Fechar Sistema"
    End If
    End Sub
    ----------------------------------------------------------------------------------------

    Já tentei colocando, tanto no evento 'No timer' quanto no 'No atual' as duas opções de códigos abaixo:

    1) Me.TimerInterval = "00:02:00"
    'MsgBox "O sistema será encerrado em 2 minutos. Salve suas atividades!", vbExclamation + vbOKOnly, " Aviso"

    2) If Me.Texto0 = "00:02:00" Then
    'MsgBox "O sistema será encerrado em 2 minutos. Salve suas atividades!", vbExclamation + vbOKOnly, " Aviso"

    ... dentre outras várias outras formas, mas nenhuma funcionou!

    Como fazer?
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]Mensagem de Aviso no Cronômetro

    Mensagem  Marcelo David em 2/2/2012, 18:16

    Poderia chamar por um formulário informando a quantidade de tempo restante, já que as MsgBox, trava o tempo até clicar em ok...


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    Krauss
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 23/12/2011

    Re: [Resolvido]Mensagem de Aviso no Cronômetro

    Mensagem  Krauss em 2/2/2012, 18:47

    Certo, mas como fazer o sistema entender que deverá exibir uma mensagem ou formulário quando atingir a marca de '00:02:00' (dois minutos)?


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]Mensagem de Aviso no Cronômetro

    Mensagem  Marcelo David em 2/2/2012, 19:14

    Fiz este exemplo que quando faltar 5 segundos, o form abre avisando que irá fechar...
    Observe que pus um if no próprio time do do formulário que que contém o cronómetro. O if verifica se a variável que recebe os segundo é igual a 5, se for, chama o formulário. Daí é só altera e no if verificar se a variável que recebe os minutos é igual 2...

    Qualquer coisa dê um grito.

    Clique aqui para baixar


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    Krauss
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 23/12/2011

    Re: [Resolvido]Mensagem de Aviso no Cronômetro

    Mensagem  Krauss em 2/2/2012, 22:26

    Hehe Marcelo, agora foi!!!!

    Obrigado cara!


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]Mensagem de Aviso no Cronômetro

    Mensagem  Marcelo David em 2/2/2012, 22:36

    Grato pelo retorno, o fórum agradece! cheers


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]Mensagem de Aviso no Cronômetro

    Mensagem  Marcelo David em 2/11/2018, 18:20

    O exemplo desse tópico está atualizado na mensagem 4 desse tópico [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: 14/11/2018, 11:52