MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

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

    avatar
    RLeal
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  RLeal em 11/11/2020, 16: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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em 11/11/2020, 17: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


    .................................................................................
    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 100%

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

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

    Mensagem  RLeal em 11/11/2020, 18: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 100%

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

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

    Mensagem  RLeal em 11/11/2020, 18: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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em 11/11/2020, 18:50

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 3/12/2020, 20:11