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]Controlo de alterações e Exclusões

    avatar
    RLeal
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Controlo de alterações e Exclusões Empty [Resolvido]Controlo de alterações e Exclusões

    Mensagem  RLeal Qua 11 Nov 2020, 13:47

    Boa tarde,
    Estou com um problema e precisava de uma ajuda para resolver o seguinte problemas.
    Fiz um controlo de acessos a usuários que inclui exclusões e alterações, na tblClientes com o seguinte código, nos botões.

    Sub fncControlExcluir()
    CurrentDb.Execute "INSERT INTO tblControl (DataExclusao, Descricao, UsuarioAtual) values (#" & Now & "#, '" & "Registo Clientes Excluído " & "', '" & txtUsuario & "')"
    End Sub

    Mas eu queria que aparece-se o nome do cliente que foi eliminado/alterado, já estou farto de tentar e nada até agora.

    Desde já agradeço a ajuda a quem tiver um tempinho que possa perder para me dar a solução.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Controlo de alterações e Exclusões Empty Re: [Resolvido]Controlo de alterações e Exclusões

    Mensagem  crysostomo Qua 11 Nov 2020, 14:21

    Bom dia colega, esqueceu do comando da mensagem concatenando a data

    Código:
    Private Sub Comando0_Click()
    Call fncControlExcluir
    End Sub

    Sub fncControlExcluir()
    CurrentDb.Execute "INSERT INTO tblControl (DataExclusao, Descricao, UsuarioAtual) values (#" & Now & "#, '" & "Registo Clientes Excluído " & "', '" & txtUsuario & "')"
    MsgBox " Cliente " & txtUsuario & "foi excluído em " & Now
    End Sub

    [Resolvido]Controlo de alterações e Exclusões Sem_tz92


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    RLeal
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Controlo de alterações e Exclusões Empty Re: [Resolvido]Controlo de alterações e Exclusões

    Mensagem  RLeal Qua 11 Nov 2020, 15:10

    Desde já agradeço a tua dica crysostomo, mas devo ter explicado mal o que eu queria.
    Tenho uma tabela que regista qual o usuário que entrou na base de dados e o que vai fazendo alterando, gravando etc... e vai marcando a data e hora dos acessos e alterações, mas no caso de alterar um registo ou eliminar queria que na mesma tabela fica-se registado qual o registo que foi alterado ou eliminado, nesse caso pelo nome de cliente.

    O campo de texto & txtUsuario & é o nome do usuário que esta logado naquele momento.
    avatar
    RLeal
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Controlo de alterações e Exclusões Empty Re: [Resolvido]Controlo de alterações e Exclusões

    Mensagem  RLeal Qua 11 Nov 2020, 15:31

    Já resolvi fica assim:

    Sub fncControlExcluir()
    CurrentDb.Execute "INSERT INTO tblControl (DataExclusao, Descricao, UsuarioAtual, N_Cliente) values (#" & Now & "#, '" & "Registo Clientes Excluído " & "', '" & txtUsuario & "', '" & N_Cliente & "')"
    MsgBox " Cliente " & N_Cliente & "foi excluído em " & Now
    End Sub
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Controlo de alterações e Exclusões Empty Re: [Resolvido]Controlo de alterações e Exclusões

    Mensagem  crysostomo Qua 11 Nov 2020, 15:50

    Show.  ia colocar a função distry()  
     sucesso


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Controlo de alterações e Exclusões Empty Re: [Resolvido]Controlo de alterações e Exclusões

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg 25 Nov 2024, 01:57