Solved GoToControl error

[Kayleigh]

Whilst automating parts of a data entry form, I have written code for a command button to enter today's date and then move onto the next field but a run-time error always occurs. Can you help?
This is the code:
Private Sub cmdToday_Click()
Me.fldDate = Date
DoCmd.GoToControl (Me.fldSession)
End Sub

 

[The_Doc_Man]

Instead of DoCmd.GoToControl, try Me.fldSession.SetFocus as a way to activate another control. It should, however, be the last thing before you leave the current routine. I.e. just as the DoCmd was the last instruction of your _Click routine, the .SetFocus should be the last instruction in its place.

 

[theDBguy]

Whilst automating parts of a data entry form, I have written code for a command button to enter today's date and then move onto the next field but a run-time error always occurs. Can you help?
This is the code:
Private Sub cmdToday_Click()
Me.fldDate = Date
DoCmd.GoToControl (Me.fldSession)
End Sub

What was the error message? Just curious...

Have you tried it this way?

DoCmd.GoToControl "fldSession"

 

[Kayleigh]

 

[theDBguy]

View attachment 85289

Did you try my suggestion? Just curious...

 

[Kayleigh]

Yes. It worked perfectly!
Thanks

 

[theDBguy]

Yes. It worked perfectly!
Thanks

Cool. Glad to hear you got it to work. Good luck with your project.