Discussion :

[Cyphen]

Salut ^^

Comme le titre l'indique, j'ai un problème de copie...

Je m'explique. J'ai une table contenant différentes caractéristiques de plusieurs outils.

Le formulaire qui m'interesse est une formulaire permettant d'ajouter de nouveaux outils mais en aucun cas de modifier ni de naviguer parmi ceux ci (je n'ai pas pas de diviseurs d'enregistrements). Le but est donc (aprés confirmation par une msg box) de copier les valeurs de mes champs dans une nouvelle ligne de la table.

Le problème est que je ne connais pas la commande pour passer les valeurs des champs dans la table en question. Si quelqu'un peut m'aider sur ce point ca serait sympa !!

Merci d'avance.

[stéphane_ais2]

Bonjour,

Regarde du côté de la clause INSERT INTO ou de la méthode AddNew

et peut-être une recherche sur forum sur lequel le sujet est abordé sans oublier la FAQ...

SE

[Cyphen]

J'ai regardé la méthode AddNew...

Seulement voila... Prenons l'exemple que j'ai un Champ X un Y un Z. Que je veux copier dans les collones correspondantes de ma table.

1) Comment appeler ma table et lancer la méthode AddNew.
2) Une commande de ce genre suffit t elle à rajouter un enregistrement:

Table!ColonneX = X.value
lstRecords.AddItem Table!ColonneX
lstRecords.ItemData(lstRecords.NewIndex) = Table!ID

J'avoue que je suis un peu perdu... Il doit manquer des déclarations quelque part... Je suis novice alors c'est assez obscur pour moi.



Edit: Voila ce que j'ai fait pour le moment

Dim db As Database
Dim rstZLT As Recordset
Set db = CurrentDb()
Set rstZLT = db.OpenRecordset("ZLT Tools", dbOpenDynaset)

'Add a new Data

rstZLT.AddNew
rstZLT![Tool Type] = ToolType.Value
rstZLT.Update

Et visiblement ca ne me copie rien. Sachant que "ZLT Tools" est le nom de ma table.

[stéphane_ais2]

Il faut déclarer le Recordset et lui affecter un nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim bd as Database
Dim tbl as Recordset

pui affecter la table dans laquelle tu veux créer de nouveaux enregistrements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set tbl = bd.OpenRecordset("NomTable", dbOpenDynaset)

puis ajouter les enregistrements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
tbl.AddNew
tbl!NomDuChamp = Forms!NomDuForm!NomDuContrôle
tbl.Update

...

SE

[Cyphen]

Je te remercie ^^ Ma syntaxe était bonne c'était juste un problème de placement dans le code... Maintenant j'ai plus qu'à trouver comment faire une auto-incrémentation d'un numéro de serie sur une table non liée :/ Youpi ;p