MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

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]Adaptação do exemplo Registra um historico de alterações

    avatar
    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Felipe Santos Qua 22 Ago 2012, 10:39 am

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo Qua 22 Ago 2012, 10:50 am

    Felipe seja bem vinso ao fórum.

    Só vendo seu banco, conseguiremos adaptar.

    Pode anexar aqui em .zip ?


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new Instruções SQL como utilizar...
    avatar
    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Felipe Santos Qua 22 Ago 2012, 10:55 am

    Vou colocar.

    Obrigado pelo pronto atendimento
    avatar
    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Felipe Santos Qua 22 Ago 2012, 11:30 am

    Segue o arquivo.

    Grato
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo Qua 22 Ago 2012, 2:16 pm

    Algo está errado, não consigo descompactar.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new Instruções SQL como utilizar...
    avatar
    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Felipe Santos Qua 22 Ago 2012, 2:53 pm

    Mestre JPaulo

    Vê se agora vai.

    http://speedy.sh/fRrYt/Sistema-de-Recebimento-de-Fatura.accdb
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo Qua 22 Ago 2012, 5:44 pm

    Teste somente assim;


    Dim strChekaDiferente As Boolean
    Dim strSQL As String
    Dim ctl As Control
    Dim strUser As String
    'By JPaulo ® Maximo Access
    'http://maximoaccess.forumeiros.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 nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new Instruções SQL como utilizar...
    avatar
    Felipe Santos
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Felipe Santos Qui 23 Ago 2012, 8:29 am

    Mestre,

    Funcionou perfeitamente.
    Muito Obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo Qui 23 Ago 2012, 9:29 am

    Obrigado pelo retorno o fórum agradece.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adaptação do exemplo Registra um historico de alterações Folder_announce_new Instruções SQL como utilizar...
    avatar
    hefrayn
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  hefrayn Sex 02 Jun 2017, 10:56 am

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

      Data/hora atual: Sab 06 Mar 2021, 5:52 am