Transfert de données vers un état ACCESS

Bonjour à tous, 

      Je suis en train de travailler sur une base de données et j'aurai une petite question.
Je suis en train de créer un formulaire appelé "Encaissement" avec, entre autre, un champ nommé "Date_Encaissement".
Si cette date est la date du jour présent, alors je dois afficher dans le formulaire tous les enregistrements qui ont été fait ce jour.
Si la date est différente de celle du jour présent, je dois alors rechercher tous les enregistrements d'hier et les envoyer vers un état qui aura pour non "Encaissement du " & date_d_hier.

Voilà ce que j'ai pour l'instant. Si quelqu'un peut m'aider à finir et à corriger mes erreurs, se serait super !!!!

Private Sub Form_Open(Cancel As Integer)

Dim db As Database
Dim rst As DAO.Recordset

Me.Date_Encaissement = Date

Set db = CurrentDb
Set rst = db.OpenRecordset("Encaissement", dbOpenTable)

With rst
       Do Until .EOF
           If Me.Date_Encaissement <> Date Then
                 .MoveFirst
                 .??????????
                 .MoveNext
                 Ici je dois envoyer les données trouvées vers l'état et enregistrer ce dernier
           Else
                 .MoveFirst  ???
                 .Move Last ???
                 .AddNew ou DoCmd.GoToRecord , , acNewRec        
           End If
       Loop
DoCmd.GoToControl "Liste_Bureaux"
End With
rst.Close
End Sub

Dans un premier temps, je vois que tu ne filtre pas les enregistrements. C'est a dire que les enregistrements de rst sont ceux du jour et ceux des precedents jours, or toi tu voudrais simplement en soit l'un soit l'autre. Pour cela, je fé

rst.open "SELECT * FROM nom_table WHERE champ_date = date", currentproject.connection, adOpenDynamic, adLockOptimistic

pour les enregistrements d'aujourd'hui et :


rst.open "SELECT * FROM nom_table WHERE champ_date <> date", currentproject.connection, adOpenDynamic, adLockOptimistic


pour les autres


Malheurement c pour ado et pas dao car je connait pas mais il y certainement un equivalent.