[AC-2010] dupliquer enregistrement en vba

[electrosat03]

Salut à tous et toutes,

Voilà, j'ai un formulaire qui est basé sur une requête elle même composée de 2 tables.

Je voudrais un bouton qui me fasse une copie de l'enregistrement courant.

J'ai essayé avec

Code :

1
2
3
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdPasteAppend

mais j'ai un message d'erreur qui me dit

error 2046 (la commande ou l'action coller par ajout n'est pas disponible pour l'instant)

Avez-vous déjà eu cette erreur.

Merci A+

[helas]

Bonjour,
si la source du formulaire est une requête basée sur plusieurs tables, il faut choisir les données à dupliquer et donc les tables sur lesquelles on doit agir.
Pour ma part, je ne comprends pas bien le but sauf si la copie doit se faire dans une 3ème table. Dans ce cas, ce sera plus compliqué.

[electrosat03]

Salut helas,

Merci pour ta réponse, En fait je dois encoder plusieurs fiches qui comportent les même données mais pas le même N° de série, donc j'aimerais dupliquer la fiche puis juste entrer le N° série.

Merci
A+

[reedy]

Bonsoir,

J'ai fait le test. Ton code fonctionne tres bien mais à condition bien sûr que le curseur soit positionné sur l'enregitrement à dupliquer et c'est tout à fait normal.

Cordialement

[robyseb]

Salut ma solution est bonne si tu a plusieurs champ à dupliquer. Donc si tu change de formulaire tu aura ton propre clipboard qui contiendra plusieurs champs différents.

Tu peut créer une table contenant une seule ligne afin de copier tes valeurs.
Ensuite avec un code sur bouton_click () tu copie tes valeurs.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub copier_Click()
dim champPlein as string
ChampPlein = nz(Dlookup("ChampPremiereValeur", "tbl_copie"), "")
if isnull(ChampPlein) or champPlein = "" then
copie :
Dim MaTable As Recordset
Set MaTable = CurrentDb.OpenRecordset("tbl_copie")
            MaTable.AddNew
                    MaTable("ChampPremiereValeur") = me.textbox1
                    MaTable("ChampDeuxiemeValeur") = me.textbox2
            MaTable.update
MaTable.Close
else 
CurrentDb.Execute "DELETE * FROM [tbl_copie];"
goto copie
end if 
end sub

ensuite lors de l'ouverture de ton autre fiche tu créer un bouton qui te permettera de re-copier les donnée précédement sauvegarder dans la table
avec un dlookup exemple:

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub coller_Click()
Dim champvide As String
champvide = Nz(DLookup("ChampPremiereValeur", "tbl_copie"), "")
If IsNull(champvide) Or champvide = "" Then
MsgBox "Le Clipboard est vide", vbinformation, "Clipboard Vide !!!"
Exit Sub
Else
Me.champ1 = DLookup("ChampPremiereValeur", "tbl_copie")
Me.champ2 = DLookup("ChampdeuxiemeValeur", "tbl_copie")
End If
End Sub

puis quand tu ferme ta base tu peut écrire un autre code qui supprimera tes données exemple :

Code :

 CurrentDb.Execute "DELETE * FROM [tbl_copie];"

P.S. j'ai testé et ca fonctionne nickel. Je me suis amusé à le coder il va me servir à moi aussi. Des fois les problèmes des autres nous amènes de bonne idées merci
J'ai créer un tutoriel après ce post dans la section Contribuez ici