Cloner un enregistrement

Bonjour,

N'étant pas satisfait de la fonction de duplication d'enregistrements offerte par access (recopie de la clef primaire et recopie intégrale de tous les champs) je cherche à réaliser une fonction de clonage...
Cette fonction doit être applelée par clic à partir du formulaire me permettant de visualiser tous les enregistrements.

Cette fonction doit permettre d'eviter la copie de certains champs (grace à leur) numéro et doit permettre d'ecrire sur le nouvel enregistrement qu'il s'agit d'une copie d'un enregistrement existant (qui pourra ensuite être utilisé pour créer un nouvel enregistrement avec quelques modification mineures).
Enfin, tout celà sonne bien mais mon code ne fonctionne pas...:aie:

Alors si vous avez des iindications ou une idée plus simple...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Private Sub Clone_Click() Dim dbBaseDonnées As Database, recopie As Recordset Set dbBaseDonnées = DBEngine.Workspaces(0).Databases(0) Set recopie = dbBaseDonnées.OpenRecordset("Off", DB_OPEN_TABLE)   Dim db As DAO.Database Dim rec As DAO.Recordset   Set db = CurrentDb() Set rec = db.OpenRecordset("SELECT * FROM OFF WHERE [OffCod] = " & Forms!Off.[OffCod] & ";", dbOpenSnapshot)   recopie.MoveLast recopie.AddNew rec.MoveFirst For i = 1 To (rec.Fields.Count - 1) Select Case i Case 2 recopie!(rec.Fields(i)).Name = "Copie de la fiche " & rec.Fields(0).Value Case Else recopie!(rec.Fields(i)).Name = rec.Fields(i).Value End Select Next i recopie.Update   recopie.Close Set recopie = Nothing   rec.Close Set rec = Nothing Set db = Nothing   End Sub

---

PS Field(0) est sauté car c'est mon Id d'enregistrement (Num Auto).

Merci d'avance

Et un simple

Code:

---

1 2	Insert into .... Select .... from ...

---

Ca le fait pas ?

Salut,

Citation:

---

...
recopie!(rec.Fields(i)).Name = rec.Fields(i).Value

---

Et pourquoi ne pas écrire plus simplement :

Code:

---

recopie.Fields(i) = rec.Fields(i)

---

:)

Finalement ça marche !?

Merci pour la simplification de

Code:

---

recopie!(rec.Fields(i)).Name = rec.Fields(i).Value

---

Vers

Code:

---

recopie.Fields(i) = rec.Fields(i)

---

Si j'ai opté pour ce choix c'est parce que écrire tout les champs que je souhaitais recopier dans un requête était trop long...
En plus comme ceux que je ne souhaite pas recopier sont en fin de table, une modification de "rec.Fields.Count - 1" en "rec.Fields.Count - X" me permet d'exclure les x-1 derniers champs...

Je ne clos pas encore car un problème persiste. Eh oui, si je consulte ma table, un nouvel enregistrement (clone) est bien crée...
Mais ce qui m'étonne c'est que le nombre d'enregistrements indiqué par les boutons de navigation ne s'incrémente pas lorsque le code s'exécute... Alors qu'un nouvel enregistrement est crée de même un movelast ajouté en fin de code ne me permet pas d'atteindre ce nouvel enregistrement sur lequel je souhaiterais être positionné dès sa création.

Si quelqu'un voit pourquoi...

Salut

Alors, sur ton form après ton UPDATE, il te faut faire un

Code:

---

Me.requery

---

Voir l'aide.
:)

Merci Micniv !

C'est marrant comme ça ce talant que j'ai de passer à coté des trucs relativement simple et de monter des usines à gaz :mouarf: