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]Gravar o nome dos forms que estão abertos em tabela de log

    avatar
    eduardo2.araujo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 9
    Registrado : 28/09/2017

    [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log Empty [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log

    Mensagem  eduardo2.araujo 26/10/2017, 19:06

    Tenho um sistema de conferência fiscal e gostaria de melhorar o log de acessos dele.
    Quero gravar numa tabela os forms que estão abertos nas estações de trabalhos conectadas, como faço?
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log Empty Re: [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log

    Mensagem  CassioFabre 26/10/2017, 19:12

    Boa tarde,

    NO evento ao Abrir ou Ao carregar de cada form, faça com que grave na tabela respectiva os dados que precisa (nome do form, usuário que o está abrindo, hora de abertura, etc).

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    avatar
    eduardo2.araujo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 9
    Registrado : 28/09/2017

    [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log Empty Gravar o nome dos forms que estão abertos em tabela de log

    Mensagem  eduardo2.araujo 26/10/2017, 20:51

    Não deu certo! Não consigo referenciar a tabela
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log Empty Re: [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log

    Mensagem  CassioFabre 27/10/2017, 12:35

    Bom dia,

    Fiz um pequeno modelo. Estude a função gravaLog e veja como se aplica na abertura e fechamento dos formularios.

    Repita o processo de abrir e fechar os form1 e form2 depois clique em "Mostrar Log" no menu, veja como funciona.
    Caso tenha dúvidas, pergunte que eu explico a ideia por detrás.

    Abraço.
    Anexos
    [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log AttachmentGravar log de abertura.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (97 Kb) Baixado 23 vez(es)


    .................................................................................
    Só não tem código pra morte!
    avatar
    eduardo2.araujo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 9
    Registrado : 28/09/2017

    [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log Empty Gravar o nome dos forms que estão abertos em tabela de log

    Mensagem  eduardo2.araujo 27/10/2017, 17:44

    Cassio deu certo!
    Alterei o seu código só para alterar o registro, pois a gravação do usuário e a data/hora de login e logoff já faço o controle no form Menu Principal.
    Só precisava controlar quais módulos o usuário acessou.

    Obrigado!

    Public Sub LiberacaoContabilFlag(ByVal frm As Form, Optional booAbertura As Boolean = True)
    Dim rs As Recordset

    If booAbertura = True Then
    Set rs = CurrentDb.OpenRecordset("TblUserLogado")

    DoCmd.SetWarnings False
    DoCmd.RunSQL "Update TblUserLogado Set LiberacaoContabil = '1' Where UserLogin = '" & Environ("UserName") & "' and IsNull(DataLogoff)"
    DoCmd.SetWarnings True
    rs.Close
    Else
    rs.Close
    End If
    End Sub
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log Empty Re: [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log

    Mensagem  CassioFabre 27/10/2017, 18:07

    Boa tarde,

    Excelente. Apenas uma observação que no seu código o uso do recordset é completamente inútil, apenas ocupa memoria desnecessariamente.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    Conteúdo patrocinado


    [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log Empty Re: [Resolvido]Gravar o nome dos forms que estão abertos em tabela de log

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 03:17