Probléme copy recordset vers autre table [Résolu]

[maclolo2]

bonjour,

Avec ce code je peux récupérer la ligne sélectionnée qui fait référence à une table et la supprimer
. Mais je voudrais copier cette sélection vers une autre table mais je n'arrive pas à trouver comment copier juste cette sélection. J'ai essayé plusieurs codes mais j'arrive à copier toute la table.
quelqu'un peut m'aider

Voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande119_Click()
Dim DB As Database
Dim RSt As DAO.Recordset
Set DB = CurrentDb()
Set RSt = DB.OpenRecordset("SELECT * FROM T_trajet_aller")
    RSt.FindFirst ("[N°]=" & Form_Onglet_gérer_réservation!Liste7.Value)
If Not RSt.NoMatch Then
  RSt.Delete
End If
Set RSt = Nothing
Form_Onglet_gérer_réservation.Liste7.Requery
Form_Onglet_gérer_réservation.Liste12.Requery
End Sub

merci

[maclolo2]

en mettant une formule qui copie le rst dans la table voulu juste avant le rst.delete c'est possible.

[loufab]

Est-ce une question ou une affirmation ? Je ne te suis pas du tout.

[maclolo2]

c'est une question, je n'arrive pas a trouver la formule

merci

[loufab]

Bonjour,

Ok parcequ'une question ça fini généralement par ce signe "?"

Donc oui c'est possible.
Dans un premier tu ouvres ton recordset de destination puis

Code :

1
2
3
4
rst2.addnew
rst2.fields("champ1") = rst.fields("champ1")
...
rst2.update

Cordialement,

[maclolo2]

merci beaucoup je vais essayer et je vous tiens au courant.
j'avais oublié le signe ? pour la question désolé

[maclolo2]

merci ca marche nickel