[Resolvido]Erro ao Deletar Registro com Módulo

Pessoal.

Mais uma vez, necessito da ajuda de vocês.

É o seguinte, possuo um formulário no qual eu preencho os campos CNPJ e CPF, que por sua vez possui alguns critérios para o preenchimento:
1 - Existe um módulo (ModValida), que verifica se o preenchimento dos campos foram corretos.
2 - Existe também um evento "Após Atualizar" no qual verifica se tanto o CPF quanto o CNPJ foram já preenchidos na tabela (Tab_Clientes).

O meu problema ocorre quando digito os campos CPF/CNPJ corretos e preciso deletá-los (o que já ocorreu algumas vezes), mesmo que seja para que o campo fique em branco, nesse caso aparece a seguinte mensagem:

Erro em tempo de execução '94': Uso de 'Null' inválido

Já tentei inúmeras saídas, mas até agora nenhuma sortiu efeito, acredito ser algum critério do módulo de validação.

Anexo meu BD e o print do erro.

Obrigada.

Júlia!

Use o If para condicionar o evento ao campo preenchido:

Código:

If Not IsNull(Me.NomeDoCampo) Then
    Avalia se CPF/CNPJ é válido
End If

Obrigado pela ajuda Criquio.

Mas não deu certo, o erro prossegue, lembrando que possuo o seguinte código no evento "Após Atualizar" do campo CNPJ:

Código:

Private Sub CNPJ_AfterUpdate()
If Me!CNPJ = Me!CNPJ.OldValue Then Exit Sub
If Not IsNull(DLookup("[CNPJ]", "Tab_Clientes", "[CNPJ] ='" & Me!CNPJ & "'")) Then
Cancel = True
Me.CNPJ.Undo
MsgBox "CNPJ já cadastrado com esse número.", vbInformation, "Sistema de Vendas"
End If
End Sub

Olá, linda Júlia
Em vez de
If Me.CNPJ.Value <> fCNPJ(Me.CNPJ) Then
coloque
If "" & Me.CNPJ.Value <> fCNPJ("" & Me.CNPJ) Then

Obrigada Alexandre pela ajuda e pelo "linda"

Mas funcionou em partes, pois não deixa o campo ficar vazio.

Julia!

Olá, Júlia
Gostos não se discutem, mas ...
Diga a parte que não funcionou, para ver se lhe podemos ajudar.

Alexandre, obrigada pelo pronto atendimento!

Já aconteceu alguns casos que tivemos que excluir o CNPJ ou o CPF cadastrado e isso não foi possível devido ao erro que mencionei no início do tópico; depois que inclui o código que você me passou a mensagem não aparece mais, porém ele o preenchimento do campo e não deixa ficar em branco.

Entendeu?

Júlia,
Veja que até me esqueci de lhe dizer para nomear controlos de forma normalizada. Ajudará o Access e quem precisar ler o código.
Por exemplo: campo CPF, controlo TxtCPF

Para o que pretende, utilize
Private Sub CPF_BeforeUpdate(Cancel As Integer)
If "" & Me.CPF.Value <> fCPF("" & Me.CPF) Then

If Len("" & Me.CPF.Value) = 0 Then
If MsgBox("Pretende limpar o CPF?", vbYesNo) = vbYes Then Exit Sub
End If
MsgBox "CPF inválido, por gentileza corrija.", vbInformation, "Sistema de Vendas"
Cancel = True
Else
Me.CPF.InputMask = "000\.000\.000\-00;;_"
End If
End Sub

Maravilha.

Mil Beijos! Funcionou!!!

Resolvido!!!