[Resolvido]Retornar para campo de formulário

Amigos,

como faço para que o foco retorne para o campo, no caso de uma informação ter sido inserida incorretamente (fora da regra de validação)?

Sei que eu poderia usar a Regra de Validação, mas daí o aviso que aparece é o padrão do sistema, o que eu não quero que aconteça.

Creio que no arquivo em anexo eu consegui exemplificar bem o que eu desejo.

Ao inserir os dados no formulário, se o ITEM_01 for um valor entre 10 e 20, OK!!
Se o valor for diferente ( < 10 ou > 20 ), além de avisar, eu gostaria que o foco retornasse para o ITEM_01.

Grato!

Coloque o codigo no evento

Antes de atualizar



If Me.NUM_1 > 9 And Me.NUM_1 < 21 Then
Else
MsgBox "O ITEM_01 não foi informado corretamente.", vbExclamation, "Aviso"

DoCmd.CancelEvent

End If

Funcionou!

Muito obrigado, Scandinavo!!

Scandinavo,

se puder, dê uma olhada nesse DB.

É uma atualização do anterior.

Grato!!!

no formulario 1


mude o codigo de "antes de atualizar" para "Apos atualizar"


Voce precisa ir no botao que abre o menu no evento "Parada de tabulação"mudar de "sim" para "Não"

Ai nao precisa ficar fechando e abrindo formulario.

testa ai.




If Me.NUM_1 < 2 And Me.NUM_1 > 3 Then

GoTo RETORNA

Else

If Me.NUM_1 = "2" Then

DoCmd.OpenForm "frm_02", , , , acFormAdd
DoCmd.Close acForm, "frm_01", acSaveYes

Else

If Me.NUM_1 = "3" Then

DoCmd.OpenForm "frm_03", , , , acFormAdd
DoCmd.Close acForm, "frm_01", acSaveYes

Else

GoTo RETORNA

End If

End If

GoTo EOF


End If

RETORNA:

MsgBox "Opcao não encontrada!", vbExclamation, "Aviso"
Me.NUM_1 = Null
'DoCmd.Close acForm, "frm_01", acSaveYes
'DoCmd.OpenForm "frm_01", , , , acFormAdd

EOF:

Grato, Scandinavo!!!