Discussion :

[boldair67]

Bonjour le Forum,

Je coince sur le problème suivant:
-j'aimerai cloner un enregistrement précis d'une table et y apporter quelques modifications (nouvel enregistrement)
Je peux difficilement utiliser INSERT INTO, car il y a beaucoup de champ ... Donc je me suis dis, CLONE et quelques modif.
Ce bout de code, crée une nouvelle entrée avec les 4 modifications ci-dessous, mais les autres champ ne sont pas rempli.
En gros, il n'y a pas de clone, mais une nouvelle entrée. Comment faire ?
Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
' SQL pour le clonage
monSQL = "SELECT * FROM tblDetails WHERE PaletteCode='%1'"
monSQL = Replace(monSQL, "%1", aclone)
'Debug.Print monSQL
Set oRS = oDb.OpenRecordset(monSQL, dbOpenDynaset, dbSeeChanges)
Set oRSclone = oRS.Clone
oRSclone.AddNew
  oRSclone.Fields("Benutzer").Value = Environ("Username")
  oRSclone.Fields("PaletteNr").Value = ladernierepos + 1
  oRSclone.Fields("Datum").Value = Now()
  oRSclone.Fields("PaletteCode") = mjobcode & Format(ladernierepos + 1, "000")
oRSclone.Update

[marot_r]

Bonjour.

Le clone est une copie des enregistrements existants, et quand tu ajoutes un enregistrement il est vide.

La seule façon que je vois est de faire :

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
dim r1 as dao.recordset
'ici du code pour définir rs1 et se positionner sur l'enregistrement source
 
dim r2 as dao.recordset
'ici du code pour définir rs2
'rs1 et rs2 pointe sur la MÊME source de données
 
rs2.addnew
dim f as dao.field: for each f in r1.fields
   rs2.fields(f.name)=f 'Recopie tous les champs
next f
 
'ici ton code pour les valeurs des champs particuliers.
 
rs2.update

A+

[User]

Bonjour.

Le clone est une copie des enregistrements existants, et quand tu ajoutes un enregistrement il est vide.

La seule façon que je vois est de faire :

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
dim r1 as dao.recordset
'ici du code pour définir rs1 et se positionner sur l'enregistrement source
 
dim r2 as dao.recordset
'ici du code pour définir rs2
'rs1 et rs2 pointe sur la MÊME source de données
 
rs2.addnew
dim f as dao.field: for each f in r1.fields
   rs2.fields(f.name)=f 'Recopie tous les champs
next f
 
'ici ton code pour les valeurs des champs particuliers.
 
rs2.update

A+

ça pourrait faire l'objet d'une contribution avec une routine pour cloner/dupliquer un enregistrement puis modifications de valeurs particulières

Perso je l'utilise pour dupliquer des commandes ou des factures avec leur détail.

[boldair67]

Merci pour votre contribution, après mise en place du code, il y a une erreur ODBC / 3146... sur la ligne oRSclone.update

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
monSQL = "SELECT * FROM tblDetails WHERE PaletteCode='%1'"
monSQL = Replace(monSQL, "%1", aclone)
 
Set oRS = oDb.OpenRecordset(monSQL, dbOpenDynaset, dbSeeChanges)
 
Set oRSclone = oDb.OpenRecordset("tblDetails", dbOpenDynaset, dbSeeChanges)
oRSclone.AddNew
 
Dim f As DAO.Field
 
    For Each f In oRS.Fields
       oRSclone.Fields(f.Name) = f 'Recopie tous les champs
    Next f
 
  oRSclone.Fields("Benutzer").Value = Environ("Username")
  oRSclone.Fields("PaletteNr").Value = ladernierepos + 1
  oRSclone.Fields("Datum").Value = Now()
  oRSclone.Fields("PaletteCode").Value = mjobcode & Format(ladernierepos + 1, "000")
oRSclone.Update

[boldair67]

Arg, j'ai trouvé l'erreur. Le premier champ de la table est un numéro Auto
Comment faire pour ne pas copier le numéro auto ?

[User]

Bonjour,

Il faut repéré le nom du champ numéro-auto :

Code :

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

1
2
3
4
5
6
7
8
 
...
For Each f In oRS.Fields
       if f.Name<>"ChampNumeroauto" Then
           oRSclone.Fields(f.Name) = f 'Recopie tous les champs
       end if
Next f
...

Cdlt,

[boldair67]

Super, ca marche ...
Un grand merci au forum et particulierement à USER pour ton aide.

[User]

Super, ca marche ...
Un grand merci au forum et particulierement à USER pour ton aide.

N'oublions pas Marot qui a donné le code