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


    [Resolvido]Histórico de alteração

    avatar
    hunning
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 17/07/2010

    [Resolvido]Histórico de alteração Empty Histórico de alteração

    Mensagem  hunning 15/2/2013, 21:45

    Estou com um problema no histórico de alteração, quando vou apertar no botão salvar ele salva, quando vou ver na tabela tablog esta salvo, mas ela registrou 19 registro ao mesmo tempo, o que posso estar fazendo errado.

    Aqui esta o que esta postado no botão salvar, pois eu peguei estes códigos de um exemplo do JPaulo e no exemplo dele esta funcionando corretamente.

    Private Sub Command8_Click()
    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
    If Me.NewRecord Then 'verifica se é um novo registro, se for registra com novo
    strChekaDiferente = True

    strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & Me.Referencia & "','" & Me.Descricao & "','" & Me.Descricao & "','" & "Novo Registro" & "')"
    DoCmd.RunSQL strSQL

    Else
    ' se não for um novo registro, coloca a variável de chekar alterações como False
    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 Or (IsNull(ctl.Value) Or ctl.Value = "") 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 (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & Me.Referencia & "','" & Me.Descricao & "','" & Me.Descricao & "','" & "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
    End If
    'Salva tudo o que foi feito
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    End Sub
    avatar
    hunning
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 17/07/2010

    [Resolvido]Histórico de alteração Empty Re: [Resolvido]Histórico de alteração

    Mensagem  hunning 16/2/2013, 01:42

    Ja achei o problema, pois eu copiei e depois colei os campos da primeira linha para a segunda e agora fui ver que tinha feito algo errado.


      Data/hora atual: 22/11/2024, 05:49