Problemas no sistema de auditoria 2

Senhores estou com problemas no meu sistema de auditoria que fiz com ajuda deste forum.
ao tentar modificar alguma informação ou excluir um registro.

Segue arquivo de exemplo

Banco de exemplo

SD Peres, o seu problema é exatamente o descrito no post anterior e respondido por mim!

Reveja aqui: https://www.maximoaccess.com/t28168-resolvidoproblemas-no-sistema-de-auditoria


Foque nessa mensagem:

FabioPaes escreveu:Sd Peres Veja bem... Esse erro ocorre pois na sua função as variaveis todas são Obrigatorias, ou seja, deve informar todas elas ao chamar a Função:

Sua função:

Public Sub fncAuditar(strNomeForm As String, strCampo As String, bytOperação As Byte, strValorAntigo As String, strValor As String)


Dessa Forma deverá informar todos os valores para as variaveis (strNomeForm, strCampo, bytOperação, strValorAntigo e strValor) e vc não estava informando o Ultimo Valor.


Faça um teste, Corrija o Campo Bairro, colocando esse Codigo:

Private Sub BAIRRO_BeforeUpdate(Cancel As Integer)


If Me.NewRecord Then
    'Auditar novo registro
    Call fncAuditar(Me.Name, "BAIRRO", 0, "", Me!BAIRRO)
Else
    'Auditar registro alterado
    Call fncAuditar(Me.Name, "BAIRRO", 1, Me!BAIRRO.OldValue, Me!BAIRRO)
End If

End Sub

Deve informar Todas as Variáveis ao chamar a função, se a Variável não for importante coloque como sugerido "" que é o Caso do Valor Antigo.




Veja o Comando do evento ao Excluir:

Código:

Private Sub Form_Delete(Cancel As Integer)
'---------------------------
'Auditar registro excluido
'---------------------------
    Call fncAuditar(Me.Name, "Nº BOAT", 2, "", Me.NUM_BOAT)
    Call fncAuditar(Me.Name, "DATA", 2, "", Me!DATA)
    Call fncAuditar(Me.Name, "HORA", 2, "", Me!HORA)
    Call fncAuditar(Me.Name, "CIDADE", 2, "", Me!COD_CIDADE)
    Call fncAuditar(Me.Name, "LOCAL", 2, "", Me!LOCAL)
    Call fncAuditar(Me.Name, "BAFÔMETRO S/N", 2, "", Me!BAFOMETRO)
    Call fncAuditar(Me.Name, "LOGRADOURO", 2, "", Me!LOGRADOURO)
End Sub