olá a todos,
Desde já agradeço qualquer ajuda.
Tenho um campo num form "código" que verifica se o registo já existe, no final o cursor move-se para um subform. Mas pretendia que o fizesse só quando o "código" existe. Se não existir volta para o campo código.
O que estareia a fazer de errado?

Private Sub FiltraCodigo_AfterUpdate() 'Pesquisa por caixa de texto
Dim achaCodigo
cod = FiltraCodigo
achaCodigo = DLookup("[CODIGO]", "tblClientes", "[cod]=CODIGO")
If IsNull(achaCodigo) Then
MsgBox "Código não encontrado.", vbCritical, " Erro"
FiltraCodigo.SetFocus
Else
DoCmd.ApplyFilter , "[tblClientes.CODIGO]=[Forms]![frmRegisto].[cod]"
End If
Me!Entrada_Pontos.SetFocus
Me!Entrada_Pontos!Entrada.SetFocus
End Sub

Obrigado.

Olá PauloTC,
Você pode tentar o seguinte, enviar o foco para algum outro campo qualquer antes do FiltraCodigo, por exemplo:

OutroCampo.SetFocus
FiltraCodigo.SetFocus

E também, passar o trecho abaixo:

Me!Entrada_Pontos.SetFocus
Me!Entrada_Pontos!Entrada.SetFocus

para dentro do Else, após o ApplyFilter.

Cláudio, Funcionou Ok. Obrigado
Um abraço

De nada.
Abraço