Navegação por textbox

[ccfm0310s]

Caríssimos, pergunta de quem está começando com excel e vba: tenho um campo de data num form. Para validar se a data é ok uso o isdate. usei o código:

Private Sub TextBox1_AfterUpdate()

If Not (IsDate(Me.TextBox1)) Then

MsgBox "Preencha com data."

TextBox1.SetFocus

End If

End Sub

pensei que o setfocus iria manter o cursor no campo, mas o diabo é que o controle passa para o próximo textbox e não para no que está com erro, impedindo de corrigir a data.

alguma dica básica???

obrigado

[joseA]

Seja bem vindo ao fórum.

Teste e informe

Private Sub TextBox1_AfterUpdate()
If Not (IsDate(Me.TextBox1)) Then
MsgBox "Preencha com data."
[COLOR="Red"][B]SendKeys ("+{tab}")[/B][/COLOR]
End If
End Sub

[ccfm0310s]

Olá JoseA... bão dimais!!!! Muito obrigado!!

[joseA]

valeu,

fico feliz que tenha resolvido.

[paulosemblano]

Ou:

Private Sub TextBox1_AfterUpdate()

If Not (IsDate(Me.TextBox1)) Then

MsgBox "Preencha com data."

Cancel = True

End If

End Sub

[ccfm0310s]

Paulo, obrigado. Aprendi mais uma....