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

    Fecho automático por inactividade

    Compartilhe

    Rasec Godinho
    Novato
    Novato

    Respeito às Regras 100%

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

    Fecho automático por inactividade

    Mensagem  Rasec Godinho em Qui 23 Abr 2015, 12: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 : 414
    Registrado : 30/08/2010

    Re: Fecho automático por inactividade

    Mensagem  NADIRONUNES em Qui 23 Abr 2015, 12: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 : 14
    Registrado : 22/10/2011

    Re: Fecho automático por inactividade

    Mensagem  Rasec Godinho em Qui 23 Abr 2015, 14: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 : 414
    Registrado : 30/08/2010

    Re: Fecho automático por inactividade

    Mensagem  NADIRONUNES em Qui 23 Abr 2015, 14: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 : 414
    Registrado : 30/08/2010

    Re: Fecho automático por inactividade

    Mensagem  NADIRONUNES em Qui 23 Abr 2015, 14: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 : 14
    Registrado : 22/10/2011

    Re: Fecho automático por inactividade

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

    Muito obrigado - Considere-se Reolvido
    Aquele Abraço

      Data/hora atual: Ter 17 Out 2017, 08:51