MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Fecha Se Inativo

    avatar
    zerocool1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 17
    Registrado : 26/08/2011

    [Resolvido]Fecha Se Inativo Empty [Resolvido]Fecha Se Inativo

    Mensagem  zerocool1 em 14/9/2011, 08:49

    boas

    ja fiz o download do exemplo do mestre JPaulo, porem não consigo adaptar ao minha BD.

    tenho um form principal com botões para abrir outros forms e o quando abro outro form o codigo continua a correr e fecha a BD.

    o que queira fazer era que o codigo so corresse no form principal, mas kando abro outro form ele pare, e so kando voltar ao form principal ele corra novamente.

    obrigado
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Fecha Se Inativo Empty Re: [Resolvido]Fecha Se Inativo

    Mensagem  HARYSOHN em 15/9/2011, 18:17

    Nao vi o exemplo.. mas creio que no botão ao abrir o novo form deve setar o Timer como 0 fazendo parar o cronometro.
    Ao fechar este form... Setar novamente o Timer..

    No Botão que abre o novo form

    Me.TimerInterval = 0

    e ao fechar o form aberto..

    Forms!NomeDoForm.TimerInterval = 1000
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]Fecha Se Inativo Empty Re: [Resolvido]Fecha Se Inativo

    Mensagem  JPaulo em 16/9/2011, 12:54

    Utilize o evento vba load e o unload para setar o intervalo do cronometro.

    Exemplo;
    http://dl.dropbox.com/u/771097/FechaSeInativoII.rar


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fecha Se Inativo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fecha Se Inativo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fecha Se Inativo Folder_announce_new Instruções SQL como utilizar...
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Fecha Se Inativo Empty Re: [Resolvido]Fecha Se Inativo

    Mensagem  WS_Lima em 21/4/2020, 18:30

    Olá colegas!

    Eu também estava com a mesma dúvida, e montei um código bem simples que atendeu ao que precisava, talvez possa ser útil. Lembrando que utilizei o código já criado pelo mestre JPaulo, e só acrescentei uma Sub para chamar a partir dos outros formulários. Segue:

    Este código fica no formulário principal, que no meu caso está nomeado como "frm_menu":

    Private Sub Detalhe_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call Cronometro
    End Sub


    Sub Cronometro()
    Me.lblTempo.Caption = "00:00:00"
    End Sub


    Private Sub Form_Timer()
    'By JPaulo ® Maximo Access
    Static strHora As Integer
    Static strMinutos As Integer
    Static strSegundos As Integer

           If Trim(lblTempo.Caption) = "00:00:00" Then
               strHora = 0
               strMinutos = 0
               strSegundos = 0
           End If

       strSegundos = strSegundos + 1
       
           If strSegundos = 60 Then
               strSegundos = 0
               strMinutos = strMinutos + 1
           If strMinutos = 60 Then
               strMinutos = 0
               strHora = strHora + 1
           If strHora = 24 Then
           strHora = 0
          End If
        End If
      End If

       lblTempo.Caption = Format(strHora, "00") & ":" & _
       Format(strMinutos, "00") & ":" & _
       Format(strSegundos, "00")
    'tempo de inatividade do banco para encerramento, aqui o exemplo são de 10 minutos
    If lblTempo.Caption = "00:10:00" Then
       DoCmd.Quit acQuitSaveAll
    End If
    End Sub


    E nos demais formulários que contêm do banco de dados, inseri o seguinte código:

    Private Sub Detalhe_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If CurrentProject.AllForms("frm_menu").IsLoaded = True Then
    Forms![frm_menu].cronometro
    End if
    End sub


    Reconheço que é bem básico, rsrs mas espero que seja útil! Very Happy Razz

      Data/hora atual: 3/12/2020, 17:30