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

    Tabela de controle de acesso

    avatar
    felipe323
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 18/05/2015

    Tabela de controle de acesso Empty Tabela de controle de acesso

    Mensagem  felipe323 28/5/2019, 23:21

    Olá amigos!

    Eu desenvolvi um sistema para o local que trabalho em acess e ele é repleto de formulários, bds, relatórios.
    Preciso ter um controle de acesso diário do usuário em cada ação dentro do sistema.

    Um relatório diário do que foi usado, na hora que foi usado, que formulario ou relatorio foi usado e se possível qual registro que foi buscado.

    Pensei em criar uma tabela "relatorio_diario" com o campo data e hora e que cada vez q eu abrisse um formulario ele registrasse nesta tabela.

    Por exemplo,
    Quando abrir o formulario "consulta_nome" automaticamente ele cria um registro no bd "relatorio_diario" com a data e hora e o nome do formulario que foi aberto...

    Não sei se fui claro. Nem sei se esta minha ideia é viável ou se existe algum jeito mais facil.

    Poderiam me ajudar?
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

    Tabela de controle de acesso Empty Re: Tabela de controle de acesso

    Mensagem  pcnet 29/5/2019, 00:00

    Olá boa noite,

    Veja o seguinte exemplo do mestre JPaulo Registra um Histórico de alterações

    Tente adaptar ao seu projecto
    Cumprimentos
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Tabela de controle de acesso Empty Re: Tabela de controle de acesso

    Mensagem  caiosouza 29/5/2019, 00:07

    Boa noite,

    O que vc pode fazer é criar funções para atender a sua necessidade e chama-las quando e onde for necessário.

    Por exemplo:

    Código:
    Public Function UserRastreability(CurrentForm As Form, strAction As String)
        CurrentDb.Execute "INSERT INTO YourTable (User, YourForm, YourAction, Time) VALUES ('" & Environ("UserName") & "', '" & CurrentForm & "', '" & strAction & "', '" & Now & "')"
    End Function


    No Evento ao abrir do seu form x:

    Código:
    Call UserRastreability(Me, "Abriu o formulário")

    No evento de busca do seu campo:

    Código:
    Call UserRastreability(Me, "Buscou por: " & Me.YourFieldSearch)


    .................................................................................
    Caio Souza

    Engenheiro de Software

      Data/hora atual: 14/6/2021, 07:09