Bonsoir,

Je copie un recordset dans une table à l'ide Addnew - update et close.
Donc, lorsque j'ouvre la table, je vois bien le dernier enregistrement.
Je voudrais copier cet enregistrement dans une autre table, donc je fais .movelast à partir de la 1ère table et logiquement, je devrais retrouver mon enregistrement, eh!Bien non, je trouve un autre enregistrement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Dim maBD As Database, rstDépenses As Recordset
    Dim meD As Form, rstAchat As Recordset
    If EstChargé("frmAAA") Then
        Set meD = Forms!frmAAA
    End If
    Set maBD = CurrentDb
    Set rstDépenses = maBD.OpenRecordset("tblDépenses2", dbOpenDynaset)
    Set rstAchat = maBD.OpenRecordset("tblAchat", dbOpenDynaset)
    Dim strCritere As String
    strCritere = "articles LIKE " & Chr(34) & "hotdog" & Chr(34)
    meD.Recordset.FindFirst strCritere
    MsgBox ("") & rstDépenses!Articles
 
     With rstAchat
         .AddNew
            !LieuAchat = rstDépenses!LieuAchat
            !DateAchat = Date
            !Articles = rstDépenses!Articles
            !Rayon = rstDépenses!Rayon
            !Package = rstDépenses!Package
            !Propriété = rstDépenses!Propriété
Hotdog étant normalement le dernier enregistrement, au lieu de cela, je trouve croissant

Que devrais-je faire pour que je tombe juste?
Là, je suis largué :-(
D'avance merci pour vos conseils