Validar CPF

Olá, Pessoal.
Tenho uma tabela com as colunas Nome e CPF.
Preciso criar ma outra tabela que acrescente mais uma coluna, chamada "CPF Válido" e coloque, para cada CPF, se o mesmo é válido ou não.
Ou seja, a "operação" deve pegar cada um dos CPFs e verificar se o mesmo é válido ou não e colocar esta informação na coluna "CPF Válido".
O campo CPF é em formato texto.
Alguém poderia ajudar?

Olá, seja bem vindo ao fórum!

Não há necessidade de se criar campo em tabela para isso, uma vez que essa informação não precisa ser guardada em tabelas, até porque, com isso, você só estará aumentando o tamanho do banco sem necessidade. Uma vez que você já dispõe do número do CPF, basta ter um módulo que verifique isso no momento do cadastra, não permitindo o cadastramento caso seja inválido. Faça uma pesquisa por CPF no fórum. Há alguns tópicos sobre o assunto.

Obrigado pela resposta, mas não digito o cadastro. Eu já pego um cadastro pronto, uma tabela pronta de um outro bco de dados que não tem validação do CPF e preciso testar a validade do CPF.

Busquei CPF na busca não apareceu nada...

Veja.

Amigo

Tente adaptar esses código, ele verifica CPF válido e ao mesmo tempo verifica se o mesmo encontra-se já cadastrado no seu banco.

Private Sub Função_Aten_Exit(Cancel As Integer)

Private Sub CPF_Cad_BeforeUpdate(Cancel As Integer)


'Verifica se o CPF já se encontra cadastrado.

If DCount("CPF_Cad", "Tab_Principal", "CampodoCPF='" & Me!CPF_Cad & "'") >= 1 Then
MsgBox "CPF já cadastrado no sistema.", vbInformation, "ATENÇÃO!"
Cancel = True
Exit Sub
End If


'Validação de CPF
' MSDevelop - Daniel Santos - 29-02-2012

If IsNull(CampodoCPF.Text) Then
MsgBox "CPF Inválido!", vbCritical
Cancel = True ' caused the changes to not be saved
Exit Sub
End If

If CampodoCPF = "___.___.___-__" Then
MsgBox "CPF Inválido!", vbCritical
Cancel = True ' caused the changes to not be saved
Exit Sub
End If

If isCPF(CampodoCPF.Text) = False Then
MsgBox "CPF Inválido!", vbCritical
Cancel = True ' caused the changes to not be saved
Exit Sub
End If
End Sub
' MSDevelop - Daniel Santos - 29-02-2012
Public Function isCPF(ByVal pCPF As String) As Boolean
Dim Conta As Integer, Soma As Integer, Resto As Integer, Passo As Integer, i As Integer, lsCPF As String, lsCPFcontrario As String

isCPF = False: pCPF = Trim(pCPF)
lsCPF = Mid$(pCPF, 1, 3) & Mid$(pCPF, 5, 3) & Mid$(pCPF, 9, 3) & Mid$(pCPF, 13, 2)

'verifica se CPF ao contrario é igual ao normal (=todos os digitos repetidos)
lsCPFcontrario = ""
For i = Len(lsCPF) To 1 Step -1
lsCPFcontrario = lsCPFcontrario + Mid$(lsCPF, i, 1)
Next

If lsCPF = lsCPFcontrario Then
'CPF com todos os digitos repetidos é considerado inválido
'segundo o ATO DECLARATÓRIO EXECUTIVO Nº 1, DE 23 DE MAIO DE 2002
'da Receita Federal
Exit Function
End If

If Len(lsCPF) <> 11 Then
Exit Function
End If

For Passo = 11 To 12
Soma = 0
For Conta = 1 To Passo - 2
Soma = Soma + Val(Mid(lsCPF, Conta, 1)) * (Passo - Conta)
Next

Resto = 11 - (Soma - (Int(Soma / 11) * 11))

If Resto = 10 Or Resto = 11 Then Resto = 0

If Resto <> Val(Mid(lsCPF, Passo - 1, 1)) Then
Exit Function
End If
Next

isCPF = True

End Function

Olá Pessoal

O código acima, do colega Ney, funciona perfeitamente.
Mas para isso, é necessário corrigir a linha que deixei na cor
azul no pedaço de código abaixo:


isCPF = False: pCPF = Trim(pCPF)
lsCPF = Mid$(pCPF, 1, 3) & Mid$(pCPF, 4, 3) & Mid$(pCPF, 7, 3) & Mid$(pCPF, 10, 2)
'verifica se CPF ao contrario é igual ao normal (=todos os digitos repetidos)
lsCPFcontrario = ""
For i = Len(lsCPF) To 1 Step -1
lsCPFcontrario = lsCPFcontrario + Mid$(lsCPF, i, 1)
Next


Estou usando parte desse código, o qual trata a repetição de todos os números para o cpf com elegância.

[ ]'s