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]Mensagem de Aviso no Cronômetro

    Krauss
    Krauss
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Empty Mensagem de Aviso no Cronômetro

    Mensagem  Krauss 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?
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 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...


    .................................................................................
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Marcel11
    Krauss
    Krauss
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Krauss 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"
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 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


    .................................................................................
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Marcel11
    Krauss
    Krauss
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Krauss 2/2/2012, 22:26

    Hehe Marcelo, agora foi!!!!

    Obrigado cara!


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

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


    Respeito às regras : Respeito às Regras 100%

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

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

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

    Grato pelo retorno, o fórum agradece! cheers


    .................................................................................
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Marcel11
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

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

    O exemplo desse tópico está atualizado na mensagem 4 desse tópico aqui.


    .................................................................................
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    cronometro - [Resolvido]Mensagem de Aviso no Cronômetro Marcel11

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 04:05