Discussion :

[marie10]

Bonjour!
Je cherche un moyen de dupliquer des lignes selon une certaine condition, mais les tutoriels que j'ai pu lire sur le sujet me paraissent..compliqué et je narrive pas à créer mon code à partir de ca...

En fait, je voudrais que dans une de mes tables, certaines lignes (selon une condition faite sur un des champs) se "dupliquent", créant un nouvel enregistrement. mais je ne veux pas que TOUS les champs se dupliquent de maniere identique! Certains champs doivent etre copier, mais dautres doivent etre mis a 0 ou doivent etre incrémenté (pour le mois par exemple).
Comment puis je faire ca de maniere "simple" depuis un code VBA..?

Merci davance!

[argyronet]

Bonjour,

A quel moment souhaites-tu dupliquer un enregistrement et comment t'y prends-tu pour le faire ?
Ce que tu veux faire t'obliges à passer par un formulaire et un bouton déclenchant un événement qui répond par la positive selon la condition que tu souhaites.

Exemple:

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
Private Sub cmdDupliquer_Click()
Dim blnCondition As Boolean
 
  blnCondition = (Me!MonChampAVerifier = "Le truc que je veux vérifier")
  If blnCondition = True Then
    DupliquerEnregistrement Me!Champ1, Me!Champ2, Me!Champ3, 0, False, 0, "", Me!Champ4
  Else
    MsgBox "Il n'est pas possible de dupliquer cet enregistrement"
  End If
End Sub
 
Private Sub DupliquerEnregistrement(nChp1, nChp2, nChp3, nChp4, nChp5, bChp6, sChp7, sChp8)
Dim SQLInsert As String
 
  SQLInsert = "INSERT INTO MaTable (Champ1,Champ2,Champ3,Champ4,Champ5,Champ6,Champ7,Champ8) VALUES ("
  SQLInsert = SQLInsert & nChp1 & ", " & nChp2 & ", " & nChp3 & ", " & nChp4 & ", " & nChp5 & ", " & bChp6 & ", " & Chr(34) & sChp7 & Chr(34) & ", " & Chr(34) & sChp8 & Chr(34) & ")"
  CurrentDb.Execute SQLInsert, dbSeeChanges
End Sub

A titre indicatif, le préfixe n=nombre (numérique), b=Oui/Non (boolean) s=String (Chaîne et nécessite des "")

Argy

[marie10]

Merci!!