Discussion :

[Pilipe]

Bonjour,
Je suis tout neuf en matière de access et je rencontre une ptite difficulté pour quelque chose qui ne me parait pourtant pas si difficile

J'ai une table 1 (T_STOCK) et une table 2 (T_ARCHIVE) qui sont rigoureusements identiques.
Je voudrait après avoir selectionné la ligne qui m'interresse dans la table 1, la couper et la coller dans la table 2.

Existe t il un petit code VBA que je n'ai pas vu?
Merci d'avance

[ClaudeLELOUP]

Bonjour,

Si tu procèdes à la main :
- tu sélectionnes la ligne dans la première et <CTRL + X> ;
- tu te positionnes sur l'astérisque final dans la seconde et <CTRL + V>.

Sinon, utilise une requête type "x! Supprimer" pour supprimer dans la première et une requête du type "+! Requête Ajout" pour ajouter dans la seconde.

[Pilipe]

j'ai trouvé cela en VBA pour copier et coller :

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
Dim Id As Variant
 
Id = FORMULAIRE_RETIRER_OUTIL_NUMERO.Value
 
DoCmd.OpenTable "T_stock"
DoCmd.GoToRecord , , acGoTo, 4
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
 
DoCmd.OpenTable "T_archive"
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close acTable, "T_archive"
DoCmd.Close acTable, "T_stock"

le problème est que pour la commande "DoCmd.GoToRecord , , acGoTo, 4" le 4 est le numéro d'enregistrement (que je ne connais pas)
Je voudrais savoir si il est possible:
- Soit de connaitre le numéro d'enregistrement à partir de "FORMULAIRE_RETIRER_OUTIL_NUMERO.Value" du champ1 (qui est une clé primaire)
- Soit de connaitre le code equivalent à "DoCmd.GoToRecord" de recherche dans la table capable de se placer sur un enregisrement a partir de "FORMULAIRE_RETIRER_OUTIL_NUMERO.Value" du champ1

merci

[ClaudeLELOUP]

Bonjour,Bonjour,

Essaie donc ceci :

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
Dim Id As Variant
 
Id = FORMULAIRE_RETIRER_OUTIL_NUMERO.Value
 
DoCmd.OpenTable "T_stock"
DoCmd.GotoControl "LeNomDeLaColonneQuiContientCetteValeur"
DoCmd.FindRecord id
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
 
DoCmd.OpenTable "T_archive"
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
DoCmd.Close acTable, "T_archive"
DoCmd.Close acTable, "T_stock"

[Pilipe]

Suuuuppppeeeer,
Merci Claude pour ton aide.

Je laisse le code complet des fois que cela puisse servir a quelqu'un pour la suite. En plus j'ai enlevé les alertes temporairement , car il y en avait une petite qui ne servait a rien
Car j'ai testé le cut à la place du copy sans succes alors j'ai mis un delete pour finir
Donc voila le final :

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 Id As Variant
DoCmd.OpenTable "T_stock"
DoCmd.GoToControl "N°"
DoCmd.FindRecord Id
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
 
DoCmd.OpenTable "T_archive"
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
DoCmd.Close acTable, "T_archive"
 
DoCmd.OpenTable "T_stock"
DoCmd.GoToControl "N°"
DoCmd.FindRecord Id
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acTable, "T_stock"
 
DoCmd.SetWarnings True

@+