MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Fecho automático por inactividade

    Compartilhe

    Rasec Godinho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 12
    Registrado : 22/10/2011

    Fecho automático por inactividade

    Mensagem  Rasec Godinho em Qui 23 Abr 2015, 08:25

    Saudações accessianas

    Não sei por questões idiomáticas, ou de outro tipo, não consigo encontrar uma resposta VBA para o meu problema neste honroso forum.
    Gostaria de saber se é possível através de código, mandar fechar um banco de dados por inactividade. Ou seja sempre e quando num determinado tempo existir um inactividade de entradas e/ou saídas de informação encerrar o banco automaticamente.

    Muito obrigado

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Fecho automático por inactividade

    Mensagem  NADIRONUNES em Qui 23 Abr 2015, 08:33

    Private Sub Form_Timer()
    Static LinHor As Integer
    Static LinMin As Integer
    Static LinSeg As Integer
    If Trim(Tempo_Ocioso.Caption) = "00:00:00" Then
    Aviso.Caption = "Tempo total de espera para efetuar o login no Sistema: 2 minutos"
    LinHor = 0
    LinMin = 0
    LinSeg = 0
    End If
    LinSeg = LinSeg + 1
    If LinSeg = 60 Then
    LinSeg = 0
    LinMin = LinMin + 1
    If LinMin = 60 Then
    LinMin = 0
    LinHor = LinHor + 1
    If LinHor = 24 Then
    LinHor = 0
    End If
    End If
    End If
    Tempo_Ocioso.Caption = Format(LinHor, "00") & ":" & _
    Format(LinMin, "00") & ":" & _
    Format(LinSeg, "00")
    If Tempo_Ocioso.Caption = "00:00:30" Then
    Aviso.Caption = "Por favor, digite o seu nome de usuário e a senha..."
    End If
    If Tempo_Ocioso.Caption = "00:00:50" Then
    Aviso.Caption = "O sistema está aguardando as informações de usuário e senha..."
    End If
    If Tempo_Ocioso.Caption = "00:01:20" Then
    Aviso.Caption = "Atenção! O sistema será encerrado nos próximos segundos..."
    End If
    If Tempo_Ocioso.Caption = "00:02:00" Then
    'DoCmd.Close "Login"
    DoCmd.Quit acQuitSaveAll
    End If

    End Sub

    Rasec Godinho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 12
    Registrado : 22/10/2011

    Re: Fecho automático por inactividade

    Mensagem  Rasec Godinho em Qui 23 Abr 2015, 10:33

    Desde já o meu obrigado, NADIRONUNES
    No entanto devido à muita ignorância, não entendo o código:
    1. Onde colocar?
    2. Tempo.Ociso?
    Quando puder ajudar ficaria muito grato.

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Fecho automático por inactividade

    Mensagem  NADIRONUNES em Qui 23 Abr 2015, 10:44

    sao dois rotulos

    tempo_ocioso e o que ta com : 00:00:00

    Aviso.Caption e o que ta com o nome aviso

    conforme imagem

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Fecho automático por inactividade

    Mensagem  NADIRONUNES em Qui 23 Abr 2015, 10:48

    o arquivo nao foi
    Anexos
    Sem título.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (10 Kb) Baixado 17 vez(es)

    Rasec Godinho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 12
    Registrado : 22/10/2011

    Re: Fecho automático por inactividade

    Mensagem  Rasec Godinho em Seg 27 Abr 2015, 07:28

    Muito obrigado - Considere-se Reolvido
    Aquele Abraço

      Data/hora atual: Seg 05 Dez 2016, 01:21