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

    [Resolvido]Adaptação do exemplo Registra um historico de alterações

    Compartilhe

    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 25/05/2012

    Adaptação do exemplo Registra um historico de alterações

    Mensagem  Felipe Santos em Qua 22 Ago 2012, 15:39

    Companheiros bom dia,

    Gostaria da ajuda de vocês, para adaptar o exemplo do mestro JPaulo, ao meu banco.

    Tentei pesquisar no forúm, porém não consegui adptar (acho que pela minha falta de conhecimento, pois ainda sou iniciante no access).

    Segui todas as informações passadas pelo código, porém gostaria de inserir um campo a mais na tbllog, esse campo seria Lançamento (númeração automatica). Vou tentar exemplificar:

    Tenho uma tabela (Recebimento de Fatura) que tem os seguintes campos:

    Lançamento, data de recebimento, Prestador, Valor Pago...

    Ao alterar os campos (data de recebimento, Prestador, Valor Pago) está sendo gravado perfeitamente na tabela de log, entretanto gostaria que ao alterar estes campos, o código mostrasse de qual lançamento estes campos pertencem.

    Desde já agrade.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9255
    Registrado : 04/11/2009

    Re: [Resolvido]Adaptação do exemplo Registra um historico de alterações

    Mensagem  JPaulo em Qua 22 Ago 2012, 15:50

    Felipe seja bem vinso ao fórum.

    Só vendo seu banco, conseguiremos adaptar.

    Pode anexar aqui em .zip ?


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 25/05/2012

    Re: [Resolvido]Adaptação do exemplo Registra um historico de alterações

    Mensagem  Felipe Santos em Qua 22 Ago 2012, 15:55

    Vou colocar.

    Obrigado pelo pronto atendimento

    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 25/05/2012

    Re: [Resolvido]Adaptação do exemplo Registra um historico de alterações

    Mensagem  Felipe Santos em Qua 22 Ago 2012, 16:30

    Segue o arquivo.

    Grato
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9255
    Registrado : 04/11/2009

    Re: [Resolvido]Adaptação do exemplo Registra um historico de alterações

    Mensagem  JPaulo em Qua 22 Ago 2012, 19:16

    Algo está errado, não consigo descompactar.


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 25/05/2012

    Re: [Resolvido]Adaptação do exemplo Registra um historico de alterações

    Mensagem  Felipe Santos em Qua 22 Ago 2012, 19:53

    Mestre JPaulo

    Vê se agora vai.

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9255
    Registrado : 04/11/2009

    Re: [Resolvido]Adaptação do exemplo Registra um historico de alterações

    Mensagem  JPaulo em Qua 22 Ago 2012, 22:44

    Teste somente assim;


    Dim strChekaDiferente As Boolean
    Dim strSQL As String
    Dim ctl As Control
    Dim strUser As String
    'By JPaulo ® Maximo Access
    'http://www.maximoaccess.com/
    '2010-06-11
    'Importante: Todos os botões de navegação devem conter a
    'chamada de toda esta instrução.
    'O form não deve ter o botão fechar ativo, deve colocar um botão para esse efeito e chamar a instrução.

    On Error Resume Next
    strChekaDiferente = False
    strUser = GetUserName_TSB

    strChekaDiferente = False

    For Each ctl In Me.Controls
    ' Percorre todos os tipos de controles
    Select Case ctl.ControlType
    Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

    If ctl.Value <> ctl.OldValue Then
    'se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
    strChekaDiferente = True
    'e registra na tabela do Log
    DoCmd.SetWarnings False
    strSQL = "INSERT INTO tblLog (Lançamento, Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & Me.Lançamento.Value & "', '" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "','" & "Registro Alterado" & "')"
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
    'termina e volta a colocar a variável de chekar alterações como False
    strChekaDiferente = False
    Else
    Cancel = True
    End If

    End Select
    Next ctl

    'Salva tudo o que foi feito
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 25/05/2012

    Re: [Resolvido]Adaptação do exemplo Registra um historico de alterações

    Mensagem  Felipe Santos em Qui 23 Ago 2012, 13:29

    Mestre,

    Funcionou perfeitamente.
    Muito Obrigado.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9255
    Registrado : 04/11/2009

    Re: [Resolvido]Adaptação do exemplo Registra um historico de alterações

    Mensagem  JPaulo em Qui 23 Ago 2012, 14:29

    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    hefrayn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 16/09/2011

    Achei

    Mensagem  hefrayn em Sex 02 Jun 2017, 15:56

    Grato JPaulo! Achei o que eu precisava. Fiz a adaptação e deu certo no meu aplicativo também!

      Data/hora atual: Sab 24 Jun 2017, 20:07