Cloner un enregistrement

**Stéphane Olivier BERNARD** · 05/11/2007, 16h24

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...

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

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
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

**Kloun** · 05/11/2007, 16h26

Et un simple

Code :

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

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

Ca le fait pas ?

**micniv** · 05/11/2007, 16h44

Salut,

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

Et pourquoi ne pas écrire plus simplement :

Code :

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

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

**Stéphane Olivier BERNARD** · 07/11/2007, 16h13

Finalement ça marche !?

Merci pour la simplification de

Code :

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

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

Vers

Code :

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

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...