[Resolvido]Problemas no sistema de Auditoria

Senhores tenho um pequeno formulário o qual eu desejo realizar auditoria (isso servirá para todos os forms no sistema).

O problema e que quando eu tento modificar os dados do formulário aparece este erro no VB.

Erro de Compilação

O argumento não é opcional

estou usando um sistema que peguei de base do mestre avelino com algumas modificações.

Grato pela ajuda

Segue sistema em anexo

Não tenho Access instalado, mas parece um erro bem simples, provavelmente você chamou algum método e esqueceu de passar um parâmetro.
Tire print da linha onde o erro ocorre e poste aqui.

Segue o print do erro

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

Exatamente como o FabioPaes disse, o último parâmetro não é opcional, para tal ele teria que estar marcado com a palavra reservada Optional na definicação do parâmetro, assim:

Código:

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

Veja que para isso eu mudei o parâmetro strValorAntigo e o coloquei como o último, pois só podem ser parâmetros opcionais os que vierem por último.

Como você utiliza esse procedimento em muitos trechos no seu código, recomendo seguir o que o FabioPaes postou.

Abraço

Mestres Marco Messa e FabioPaes, mais uma vez obrigado.

Post resolvido graças a ambos.

Obrigado

Grato pelo retorno! Até a próxima se Deus quiser!