AutoSkip

[Anna]

Can any one please help me why it dont works?

Private Sub Date1_KeyPress(KeyAscii As Integer)
If Len(Nz(Me.Date1, "")) = 6 Then
Me.Date2.SetFocus
End If

End Sub

Thank You.

 

[BruceM]

Two possibilities occur to me. One, why the KeyPress event? That is a
rather specialized event, which may be different from what you expect. What
would you like to have happen? Two, if a control and a field have the same
name (e.g. if Date2 is both the field and the text box name) you could have
difficulties. If so, try changing the name of the text box to txtDate1 or
something like that.