goto form with current user and current date

[bitsbb01]

ok, how do i explain this...

what i really need is for when the form opens, it looks at todays date, then matches current user and then goes to that record for today, if no current user there, then will goto new record..

i know, sounds complicated, and probably is really easy, but my heads not with it today, as about to get drunk as its my 40th, and got people ringing and texting and still trying to get this done.. so any help would be greatfull..

I've included a copy of this database, named Timecards..

 

[bitsbb01]

ok, i found a way of bypassing.. i think..

Private Sub Form_Open(Cancel As Integer)
Text524.Value = Environ("username")
Me.Filter = "username =" & Me.Text524
Me.FilterOn = True
End Sub

except now i'm getting the value box with the username as the title, and if i type in a username then it shows only there info, but how do i get it to auto fill in the value box with the username..