[Resolvido]Validação Campo cpf

Caros colegas, retornando.

No BD tem um campo CPF que está funcionando legal. Quando o usuário digita um cpf válido é retornado uma msg positiva. Do contrário, cpf inválido, uma msg informando que o número está inválido. Essa rotina está funcionando OK.
O meu objetivo é fazer com que o uusuário quando digitar um número inválido, além da msg avisando, que fosse impedido de sair do campo cpf até que se digitasse um numero válido ou fecahr o BD sem salvar aquele registro.
Então pergunto, aos nobres colegas, se há como implementar um código com este fim e se esse código ficaria no evento após atualizar do campo ou na função que valida o cpf.
Andei fazendo testes com os comandos GoToControl e SetFocus mas não deu certo. O cursor fica no campo mas teclando tab ele sai sem preencher o campo ou forçar a correção do número.
No aguardo de uma sugestão.
Obrigado
Abraços

Olá Norbs, boa tarde.
Não funcionou. Nem com o campo em branco.
O campo não estará em branco quando o cpf for inválido pois o usuário terá digitado algum numero para retornar o aviso e, possivelmente, não apagará o que foi digitado; irá digitar por cima.
De qualquer forma, agradeço
Abraços

Poste seu código de validação de CPF por favor.

Norbs, boa tarde.

Vou testar a sua sugestão assum que chegar em casa.

Topbr, boa tarde.
Abaixo o código:

Function DVCPF(Cpf As String) As String

Dim lngSoma, lngInteiro As Long
Dim intNumero, intMais, I, intResto As Integer
Dim intDig1, intDig2 As Integer
Dim strDigVer, strcampo, strCaracter, StrConf As String
Dim dblDivisao As Double
lngSoma = 0
intNumero = 0
intMais = 0
strcampo = Left(Cpf, 9)
strDigVer = Right(Cpf, 2)
For I = 2 To 10
strCaracter = Right(strcampo, I - 1)
intNumero = Left(strCaracter, 1)
intMais = intNumero * I
lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
intDig1 = 0
Else
intDig1 = 11 - intResto
End If
strcampo = strcampo & intDig1
lngSoma = 0
intNumero = 0
intMais = 0
For I = 2 To 11
strCaracter = Right(strcampo, I - 1)
intNumero = Left(strCaracter, 1)
intMais = intNumero * I
lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
intDig2 = 0
Else
intDig2 = 11 - intResto
End If
StrConf = intDig1 & intDig2
DVCPF = StrConf

If DVCPF = strDigVer Then
MsgBox "CPF válido!", vbInformation, "Atenção"
Else
MsgBox "NÚMERO DE CPF INVÁLIDO. DIGITE NOVAMENTE", vbCritical, " ATENÇÃO"
DoCmd.CancelEvent
DoCmd.GoToControl "cpf"

End If
No aguardo, agradeço
Abraços

Colega teste esse código:

Private Sub cli_CPF_BeforeUpdate(Cancel As Integer)
If Me.cli_CPF.Value <> fCPF(Me.cli_CPF) Then

MsgBox "CPF Invalido," & cli_CPF.Text, _
vbInformation, "Atenção"
DoCmd.CancelEvent
Cancel = True
Else
MsgBox "CPF válido..." & cli_CPF.Text, _
vbInformation, "Confirmação"
Me.cli_CPF.InputMask = "000\.000\.000\-00"
If (Not IsNull(DLookup("[cli_CPF]", "TblClientes", _
"[cli_CPF] ='" & Me!cli_CPF & "'"))) Then
MsgBox "CPF já está cadastrado no sistema..." & cli_CPF.Text, _
vbInformation, "Duplicidade"
Cancel = True 'cancela o evento.
Me!cli_CPF.Undo 'desfaz a digitação.
End If
End If
End Sub

Colega Cafpr, boa noite.

Desculpe-me pelo meu desconhecimento, mas onde vou implementar este código? No campo CPF(evento atualizar), na função existente ou criar nova função?
Obrigado

Boa noite colega Oldri....assim: no seu campo cpf, propriedade, evento e "após atualizar" e cole o código acima.

Então no evento ao sair

Private Sub SeuCampo_Exit(Cancel As Integer)
If IsNull(SeuCampo) Or Me.SeuCampo = "" Then
MsgBox "Este campo é de preenchimento obrigatório!"
DoCmd.CancelEvent
End If
End Sub

Colega Cafpr, bom dia.

Realizei o teste da seguinte forma:

Seu código

Private Sub cli_CPF_BeforeUpdate(Cancel As Integer)
If Me.cli_CPF.Value <> fCPF(Me.cli_CPF) Then
MsgBox "CPF Invalido," & cli_CPF.Text, _
vbInformation, "Atenção"
DoCmd.CancelEvent
Cancel = True
Else
MsgBox "CPF válido..." & cli_CPF.Text, _
vbInformation, "Confirmação"
Me.cli_CPF.InputMask = "000\.000\.000\-00"
If (Not IsNull(DLookup("[cli_CPF]", "TblClientes", _
"[cli_CPF] ='" & Me!cli_CPF & "'"))) Then
MsgBox "CPF já está cadastrado no sistema..." & cli_CPF.Text, _
vbInformation, "Duplicidade"
Cancel = True 'cancela o evento.
Me!cli_CPF.Undo 'desfaz a digitação.
End If
End If
End Sub

Após as adaptações(alguns paramentros não tem no BD), ficou assim (me corrija se fiz alguma coisa errado, por favor)

Private Sub Cpf_AfterUpdate()
If Me.Cpf.Value <> dvcpf CPF(Me.Cpf) Then
MsgBox "CPF Invalido," & Cpf.Text, _
vbInformation, "Atenção"
DoCmd.CancelEvent
Cancel = True
Else
MsgBox "CPF válido..." & Cpf.Text, _
vbInformation, "Confirmação"
Me.Cpf.InputMask = "000\.000\.000\-00"
If (Not IsNull(DLookup("[CPF]", "Tbl_geral", _
"[CPF] ='" & Me!Cpf & "'"))) Then
MsgBox "CPF já está cadastrado no sistema..." & Cpf.Text, _
vbInformation, "Duplicidade"
Cancel = True 'cancela o evento.
Me!Cpf.Undo 'desfaz a digitação.
End If
End If
End sub
Aí retorna erro de compilação, sintaxe na linha vermelha acima.

Prezados colegas, o que estou precisando e o seguinte:

tem o campo "CPF" que é implementado por uma função de validação cuja a mesma já está posta no tópico (após solicitação do colega Topbr). Então, o usuário ao digitar um número no campo "CPF" este é verificado e, caso esteja correto, será validado, retornando para o usuário uma msg de confirmação. Este(usuário) ao clicar em "ok" na msg, prossegue com o preenchimento do registro. Caso contrário, ou seja, se o número digitado no campo "CPF" não for validado, retorna para o usuário uma msg informando que aquele número digitado não é válido.

O que está acontecendo:

quando o usuário recebe a msg de "cpf inválido" ele (usuário) tem clicar em "ok" da janela da msg para prosseguir. Ele (usuario) clica em "ok", o cursor retorna para o campo "CPF", mas o número digitado pelo usuário ali não apaga e se o usuário apertar a tecla tab o cursor passa para o próximo campo, permitindo digitação.

O que pretendemos é que, após ele clicar no "ok" da janela de msg do cpf inválido, o cursor permaneça no campo "CPF" e daí não saia até que seja digitado um número de cpf válido, quando, então, o usuário receberá uma msg de "cpf válido" e ele(usuário)poderá prosseguir com o preenchimento do registro que está a fazer, após clicar no "ok" desta janela.

Colega Cafpr, o código que você sugeriu

Private Sub SeuCampo_Exit(Cancel As Integer)
If IsNull(SeuCampo) Or Me.SeuCampo = "" Then
MsgBox "Este campo é de preenchimento obrigatório!"
DoCmd.CancelEvent
End If
End Sub
não impede de que o usuário sai do campo "CPF". Como já citei, mesmo que ele(usuário) digite um numero de cpf inválido, o cursor passa para o próximo campo se apertada a tecla tab. Ou seja, esse código, em marrom, apenas impede que não deixe o campo "CPF" em branco, não importando que dados esteja ali digitado.

Resumindo,
o meu objetivo é impedir que seja digitado um número de cpf inválido e "obrigar" o usuário a permanecer no campo "CPF" até que seja ali digitado um número válido, caso contrário o sistema não salvará o registro para que o mesmo seja completado posteriormente.

Penso(desculpem-me se estiver com o raciocínio errado) que código pretendido deveria vir na função de validação do cpf. Como e onde vai este código, passa dos meus conhecimento. Assim sendo, estou contando com a ajuda dos "feras" do fórum.
Desde já agradecendo, permaneço na expectativa.
Abraços

Oldri

Taí teu código modificado.

Copie e cole a função em um módulo geral ( não o do formulário)

Código:



Function DVCPF(Cpf As String) As Boolean

Dim lngSoma, lngInteiro As Long
Dim intNumero, intMais, I, intResto As Integer
Dim intDig1, intDig2 As Integer
Dim strDigVer, strcampo, strCaracter, StrConf As String
Dim dblDivisao As Double
lngSoma = 0
intNumero = 0
intMais = 0
strcampo = Left(Cpf, 9)
strDigVer = Right(Cpf, 2)
For I = 2 To 10
    strCaracter = Right(strcampo, I - 1)
    intNumero = Left(strCaracter, 1)
    intMais = intNumero * I
    lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
  intDig1 = 0
Else
  intDig1 = 11 - intResto
End If
strcampo = strcampo & intDig1
lngSoma = 0
intNumero = 0
intMais = 0
For I = 2 To 11
    strCaracter = Right(strcampo, I - 1)
    intNumero = Left(strCaracter, 1)
    intMais = intNumero * I
    lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
  intDig2 = 0
Else
  intDig2 = 11 - intResto
End If
StrConf = intDig1 & intDig2


If StrConf = strDigVer Then
  DVCPF = True
Else
  DVCPF = False

End If
End Function


No evento antes de atualizar do controle cli_CPF coloque:
Private Sub cli_CPF_BeforeUpdate(Cancel As Integer)
If DVCPF(Me.cli_CPF) = False Then
MsgBox "CPF inválido", vbCritical, "aviso"
Cancel = True
End If
End Sub

O controle cli_CPF não pode ter máscara de entrada, ou dará erro.

Teste aí.

Colega, na segunda linha copiou errado verefique fcpf e não dvcpf e no segundo código a falha é minha ao escrever esqueci me. na segunda linha esta
If IsNull(SeuCampo) Or Me.SeuCampo = "" Then
e o correto
If IsNull(Me.SeuCampo) Or Me.SeuCampo = "" Then

Pode até usar o exemplo do colega e amigo Balem mas antes por gentileza faça as alterações acima e retorne, fico aguardando....

Colega Cafpr, boa tarde.
Como citei antes, o seu código
Private Sub SeuCampo_Exit(Cancel As Integer)
If IsNull(SeuCampo) Or Me.SeuCampo = "" Then
MsgBox "Este campo é de preenchimento obrigatório!"
DoCmd.CancelEvent
End If
End Sub
funciona para verificar se o campo está em branco(IsNull) ou preenchido(Not IsNull), não verifica se o número de cpf digitado é válido ou não. Eu já havia acrecentado o "Me" onde faltava.
Na segunda linha, a qual cita, o que vem a ser fcpf?Se for referencia a função que valida o CPF, não tem esta referencia nela. Nela tem DVCPF. E mesmo deixando como você fez, não funciona.
Outra, o que vem a ser a refencia cli.CPF? Entendi que é refente ao campo CPF existente no formulário do BD em questão.
Assim sendo, os códigos por vc enviado ficaram assim:

Antes:

Private Sub cli_CPF_BeforeUpdate(Cancel As Integer)
If Me.cli_CPF.Value <> fCPF(Me.cli_CPF) Then

MsgBox "CPF Invalido," & cli_CPF.Text, _
vbInformation, "Atenção"
DoCmd.CancelEvent
Cancel = True
Else
MsgBox "CPF válido..." & cli_CPF.Text, _
vbInformation, "Confirmação"
Me.cli_CPF.InputMask = "000\.000\.000\-00"
If (Not IsNull(DLookup("[cli_CPF]", "TblClientes", _
"[cli_CPF] ='" & Me!cli_CPF & "'"))) Then
MsgBox "CPF já está cadastrado no sistema..." & cli_CPF.Text, _
vbInformation, "Duplicidade"
Cancel = True 'cancela o evento.
Me!cli_CPF.Undo 'desfaz a digitação.
End If
End If
End Sub[/color]

Depois

Private Sub CPF_BeforeUpdate(Cancel As Integer)
If Me.CPF.Value <> DVCPF(Me.CPF) Then

MsgBox "CPF Invalido," & CPF.Text, _
vbInformation, "Atenção"
DoCmd.CancelEvent
Cancel = True
Else
MsgBox "CPF válido..." & CPF.Text, _
vbInformation, "Confirmação"
Me.CPF.InputMask = "000\.000\.000\-00"
If (Not IsNull(DLookup("[CPF]", "Tbl_GERAL", _
"[CPF] ='" & Me!CPF & "'"))) Then
MsgBox "CPF já está cadastrado no sistema..." & CPF.Text, _
vbInformation, "Duplicidade"
Cancel = True 'cancela o evento.
Me!CPF.Undo 'desfaz a digitação.
End If
End If
End Sub
As linhas azuis foram onde realizei as modificações.

Colega Balem,

o seu código funciona para verificar se o número de cpf é inválido. Mesmo se digitar um número inválido ele aceita e informa que é inválido, passando para o próximo campo após clicar no "ok" do aviso.
Realmente, se tiver mascara no campo dá erro. A meu ver a máscara em um campo onde há condições de implementá-la reduz o erro de digitação e fica esteticamente melhor.

Caros colegas,

a título de informação, estou usando o access 2003.
Agradecido e no aguardo.
Abraços

Veja bem Oldri

Deve colocar o código na propriedade ANTES de atualizar poi é nessa propriedade que tem o Cancel que não permite sair do campo se o CPF estiver errado.

Assim se o CPF estiver errado, ele retorna para o campo, e não sai dele enquanto não for corregido.

Colega Balem,

funcionou !!!
Mas com um pequeno problema; se o usuário entrar no campo CPF e digitar um numero inválido ele não consegue sair do campo mas tambem não fecha ou cancela o registro que estiver cadastrando sem dar erro e aparecer a janela de aviso do Visual Basc. Se ele clicar na botão "depurar", abre a janela de código. Se ele clicar em "Sim", aparece a janela de aviso que o registro não poderá se salvo. Há como inibir a janela do VB? Ou seja, aprecer somente a segunda janela (de registro nao salvo)?
Outra coisa, usando o código que vc enviou

Function DVCPF(Cpf As String) As Boolean
Dim lngSoma, lngInteiro As Long
Dim intNumero, intMais, I, intResto As Integer
Dim intDig1, intDig2 As Integer
Dim strDigVer, strcampo, strCaracter, StrConf As String
Dim dblDivisao As Double
lngSoma = 0
intNumero = 0
intMais = 0
strcampo = Left(Cpf, 9)
strDigVer = Right(Cpf, 2)
For I = 2 To 10
strCaracter = Right(strcampo, I - 1)
intNumero = Left(strCaracter, 1)
intMais = intNumero * I
lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
intDig1 = 0
Else
intDig1 = 11 - intResto
End If
strcampo = strcampo & intDig1
lngSoma = 0
intNumero = 0
intMais = 0
For I = 2 To 11
strCaracter = Right(strcampo, I - 1)
intNumero = Left(strCaracter, 1)
intMais = intNumero * I
lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
intDig2 = 0
Else
intDig2 = 11 - intResto
End If
StrConf = intDig1 & intDig2


If StrConf = strDigVer Then
DVCPF = True
Else
DVCPF = False

End If
End Function
funciona também, mas com uma falha: se o usuário digitar no campo CPF 000.000.000-00(isto mesmo "zeros"), é aceito como numero de cpf válido, e o foco passa para o próximo campo. O problema é que este numero de cpf não existe.
Com a função que utilizava antes da que vc enviou não dá esta falha.

Mas excetuando o problema da janela citdo acima, o seu código tá funcionando beleza.
Agradeço o seu empenho e dos demais.
Caso você achar uma forma de contornar o exibir da janela de aviso de depuração, te agradeço. Se não encontrar, tá beleza da maneira que está. Se preciso for, coloco umas instruções a respeito no abrir do formulário.
Grande abraço
Aguardo seu retorno.

Oldry

coloque o fragmento de código abaixo na função, no meio dessas duas linhas:

Dim dblDivisao As Double
lngSoma = 0

Irá ficar assim:

Dim dblDivisao As Double
If Cpf = "00000000000" Then
Cancel = True
Exit Function
End If
lngSoma = 0

Quanto a máscara de entrada, concordo em mantê-la, mas deve tirar os 2 pontos e o traço para a função poder tratar o número do CPF.
Isso não é difícil de se fazer, vou deixar para você fazê-lo.
Estude as funções(no help do Access):
Instr()
Right() e
Mid()

Bom estudo

Abraços

Ok, Balem.

Vou dar uma estudada.
Mais uma vez agradeço-lhe, penhoradamente, e aos demais.
Estarei abrindo um outro tópico (já que não se pode aporveitar o resolvido) e conto com a sua ajuda. Espero que a resolução, se houver, seja mais simples.
Obrigado
Abraços

Desculpem, esqueci de fechar o tópico.

Qual versão do access usa??? estou no trabalho assim que chegar em minha casa irei disponibilizar parte do bd caf cliente" para você vereficar a funcionalidade.

Olá, Cafpr. Boa tarde"

Versão 2003.

Ola Oldri, mais um falha minha quando perguntou-me sobre fcpf ficou o modulo o qual não disponibilizei acima, desculpe, não acontecerá novamente. Então de uma olhadinha no exemplo abaixo.....

download