[Resolvido]Mostrar o resultado de uma função VALIDACPF ou VALIDACNPJ diretamente em uma consulta

Boa Tarde,
Tenho duas função na guia modulo do access: VALIDACPF e VALIDACNPJ.

Preciso agora numa coluna de uma consulta mostra o resultado da validação do campo cpf e cnpj, monstrando se o codigo esta correto ou não.

Para os que não estiverem correto vamos buscar os documentos e fazer a correção no codigo...

Como faço então para conseguir este resultado na consulta...

Abaixo a função de validação cpf...

Na consulta tenho o campo CPF e criei um nova coluna CPFCorretoIncorreto com o codigo: DVCPF2(CPF) e não funcionou... não aparece nada no campo e sei que tem muitos cpf/cnpj errados...

Function DVCPF2(Cpf As String) As String
'Rotina alterada por Luiz Antonio Cypriano
'Data: 19/04/99
'Autor: Israel Emídio do Nascimento
'Fonte: Banco de Idéias - Exame Informática Abril/94
Dim cpf1 As String, cpf2 As String
Dim controle As String
Dim contini As Integer, contfim As Integer
Dim soma As Integer, dígito As Integer
Dim i As Integer, ii As Integer
Dim Resultado
cpf1 = Cpf
cpf2 = Right$(Cpf, 2)
controle = ""
contini = 2
contfim = 10
For ii = 1 To 2
soma = 0
For i = contini To contfim
soma = soma + (Val(Mid$(cpf1, i - ii, 1)) * (contfim + 1 + ii - i))
Next i
If ii = 2 Then soma = soma + (2 * dígito)
dígito = (soma * 10) Mod 11
If dígito = 10 Then dígito = 0
controle = controle + Trim$(Str$(dígito))
contini = 3
contfim = 11
Next ii
If controle <> cpf2 Then

'DoCmd.CancelEvent
'Beep
Resultado = "Número inválido do CPF"

Else

Resultado = "Número do CPF Correto"

End If

End Function

Saudações

Lucioapo

Tente assim:

- Remova a variável RESULTADO
- Na sua comparação ( IF controle <> cpf2 Then ), troque RESULTADO pelo nome da função "DVCPF2", isso vai fazer retornar da função


Att,

Aloísio

As duas funcionaram bem.

Agradeço a atenção.

Obrigado.

Boa tarde,
Respeite as regras para mantermos o fórum limpo e organizado
Não altere o cabeçalho, marque Resolvido