Validação do CPF

[msdizzy 0]

Ola pessoal,

 

Estou desenvolvendo um programa para palm e estou com alguns problemas tenho este codigo para validar CPF, mas ele nao verifica se o cpf ja existe na base, e acaba inserindo duas vezes o mesmo cpf, como posso verificar se ja existe na base antes de inserir???

 

Public Function FU_ValidaCPF(ByVal CPF As String) As Boolean

Dim soma As Integer

Dim Resto As Integer

Dim i As Integer

'Valida argumento

If Len(CPF) <> 11 Then

FU_ValidaCPF = False

Exit Function

End If

soma = 0

For i = 1 To 9

soma = soma + Val(Mid$(CPF, i, 1)) * (11 - i)

Next i

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

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

If Resto <> Val(Mid$(CPF, 10, 1)) Then

FU_ValidaCPF = False

Exit Function

End If

soma = 0

For i = 1 To 10

soma = soma + Val(Mid$(CPF, i, 1)) * (12 - i)

Next i

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

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

If Resto <> Val(Mid$(CPF, 11, 1)) Then

FU_ValidaCPF = False

Exit Function

End If

FU_ValidaCPF = True

End Function

 

 

 

Obrigado!!!

 

Debora

[bbrasil 0]

Efetuar um select na base antes de efetuar a inserção do dado... Aconselho efetuar a verificação antes da gravação do registro..

 

tipo..

 

sql = "select * form pessoa where cpf = " & txtcpf.text

 

 

 

 

 

 

 

Ola pessoal,

 

Estou desenvolvendo um programa para palm e estou com alguns problemas tenho este codigo para validar CPF, mas ele nao verifica se o cpf ja existe na base, e acaba inserindo duas vezes o mesmo cpf, como posso verificar se ja existe na base antes de inserir???

 

Public Function FU_ValidaCPF(ByVal CPF As String) As Boolean

Dim soma As Integer

Dim Resto As Integer

Dim i As Integer

'Valida argumento

If Len(CPF) <> 11 Then

FU_ValidaCPF = False

Exit Function

End If

soma = 0

For i = 1 To 9

soma = soma + Val(Mid$(CPF, i, 1)) * (11 - i)

Next i

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

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

If Resto <> Val(Mid$(CPF, 10, 1)) Then

FU_ValidaCPF = False

Exit Function

End If

soma = 0

For i = 1 To 10

soma = soma + Val(Mid$(CPF, i, 1)) * (12 - i)

Next i

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

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

If Resto <> Val(Mid$(CPF, 11, 1)) Then

FU_ValidaCPF = False

Exit Function

End If

FU_ValidaCPF = True

End Function

 

 

 

Obrigado!!!

 

Debora