Ken Sheridan helped me with this code some time back and it worked except it kept turning off the numlock. Searching google I found the adding the sendkey should correct the problem. (Said something about a glitch in access). Now it works sometime but I still randomly get the numlock turned off.
Any ideas as to why and how to correct it
thanks
Private Sub Form_Load()
DoCmd.GoToRecord acDataForm, "frmInput", acNewRec
Me.OpenDate.SetFocus
With Me.ActiveControl
.SelLength = 0
.SelStart = Len(.Text)
If Not IsNull(.Value) Then
If TimeValue(.Text) = 0 Then
SendKeys " "
SendKeys "{Numlock}", True
End If
End If
End With
End Sub