gotorecord problem

[pascal]

I have a form, based on a table with unique dates, with a subform. When I open the form I like to see the record for today in the form if there is already one. If not I like to see a new record. How can I make this happen. I use Access 2000. Thanks in advance.

 

[Pat Hartman]

Add selection criteria to the query used as the form's recordsource:

Where YourTransactionDate >= Date();

 

[Rob.Mills]

Set this up in the On Load event

Dim rst as DAO.Recordset

Set rst=Me.Recordsetclone

rst.findfirst "[Date Field]=#" & date & "#"

if rst.nomatch then

docmd.gotorecord Record:=AcNewRecord

Else

me.bookmark=rst.bookmark

End if

Set rst=nothing

 

[Rob.Mills]

You know I think Pat's was easier.

 

[pascal]

Thanks for your reply Pat. But when I make use of a query I filter the records and I won't see the other records anymore in my form. I still want to be able to scroll the other records to in my form.

 

[pascal]

Oops, I just missed Rob's reply while writing my reply to Pat. I think this could be it. I'm going to try this code first. Thanks Rob.

 

[pascal]

OK Rob, I've tried it and it works. Thanks again.