[Resolvido]Retornar ao campo, quando a informação imputada não for correta.

Colegas, bom dia.

Qual a programação devo efetuar para que, após a mensagem de crítica acontecer em um campo, fazer retornar ao mesmo campo, uma vez que o valor imputado não foi o correto?

Grato,
Marcelo

Após o Msgbox,

DoCmd.CancelEvent ou Exit Sub dependendo do caso
SuaCx.SetFocus

Sds,

Não consegui. Veja Como ficou:

'Código de validação do CPF ou CNPJ elaborado por: Luiz Cláudio C. V. Rocha

Private Sub Cad_CPF_AfterUpdate()
Dim rst As DAO.Recordset
Dim strCriteria As String
'verifica duplicidade
strCriteria = "[Cad_CPF] Like '*" & Me.Cad_CPF & "*'"

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
'MsgBox "Exibe mensagem se for o caso"
Else
MsgBox " já cadastrado, verifique...", vbCritical, "Atenção"
Exit Sub
Me.Cad_CPF.SetFocus
Me.Undo
End If

If Me.Cad_Tipo.Value = "F" Then
If Me.Cad_CPF <> fCPF(Me.Cad_CPF) Then
MsgBox "CPF Invalido, introduza novamente...", vbCritical
Exit Sub
Me.Cad_CPF.SetFocus
Me.Undo
Cancel = True
End If
End If
Set rst = Nothing
End Sub

Tente enviar o foco para um outro campo antes de enviar para o mesmo.

Brother, acho que estou fazendo alguma coisa errado.
Tentei mover o foco para outro campo e depois retornar e não está funcionando.
Pode me ajudar?

Tá puxado, como diz aquele sujeito da novela

Deveria funcionar. Se puder colocar uma cópia do banco com a tabela e o formulário em questão, ficaria mais fácil.

Onde e como faço?

Não testei, tente colocar o foco no fim da rotina como abaixo:

Private Sub Cad_CPF_AfterUpdate()
Dim rst As DAO.Recordset
Dim strCriteria As String
'verifica duplicidade
strCriteria = "[Cad_CPF] Like '*" & Me.Cad_CPF & "*'"

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
'MsgBox "Exibe mensagem se for o caso"
Else
MsgBox " já cadastrado, verifique...", vbCritical, "Atenção"
Exit Sub
Me.Undo
Me.Cad_CPF.SetFocus
End If

If Me.Cad_Tipo.Value = "F" Then
If Me.Cad_CPF <> fCPF(Me.Cad_CPF) Then
MsgBox "CPF Invalido, introduza novamente...", vbCritical
Exit Sub
Me.Undo
Cancel = True
Me.Cad_CPF.SetFocus
End If
End If
Set rst = Nothing
End Sub

Brother,

Acho que estou perdendo algo. Eu tentei, porém ainda não funcionou...

Será que não conseguirei?

Grato,
Marcelo Alonso

Você está trabalhando com Formulario acoplado né.

Neste caso a dica do amigo Criquio vai funcionar.

Faça a rotina ir para uma caixa de texto qualquer e logo
em seguida retornar para a cx de texto CPF.

Private Sub Cad_CPF_AfterUpdate()
Dim rst As DAO.Recordset
Dim strCriteria As String
'verifica duplicidade
strCriteria = "[Cad_CPF] Like '*" & Me.Cad_CPF & "*'"

Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
'MsgBox "Exibe mensagem se for o caso"
Else
MsgBox " já cadastrado, verifique...", vbCritical, "Atenção"
Exit Sub
Me.Undo
Me.OutraCaixaDeTexto.SetFocus
Me.Cad_CPF.SetFocus
End If

If Me.Cad_Tipo.Value = "F" Then
If Me.Cad_CPF <> fCPF(Me.Cad_CPF) Then
MsgBox "CPF Invalido, introduza novamente...", vbCritical
Exit Sub
Me.Undo
Cancel = True
Me.OutraCaixaDeTexto.SetFocus
Me.Cad_CPF.SetFocus
End If
End If
Set rst = Nothing
End Sub

Brother,

Consegui. Precisei colocar logo abaixo da MsgBox.

Valeu!

Só sobrou um problema rsrsrsrs. É que, nesse caso, ao retornar para o campo, proceder a deleção do valor para obrigar a nova digitação. Sabe como consigo, pois já tentei alguns comandos e nada?

Abraço,
Marcelo Alonso

Tente:

Me.NomeDoCampo = Null

Criquio, bom dia.

Muito agradecido, funcionou perfeitamente.

Saudações,
Marcelo Alonso

Valeu amigo. Só faltou o Resolvido. Dessa vez eu coloco, ok?

Criquio,

Como eu coloco o resolvido?

Marcelo

Logo acima do botão aonde você clica para enviar a mensagem, tem um campo com o título do tópico. Na frente desse campo tem um botão escrito Resolvido.

Aprendi.

Grato,
Marcelo Alonso