Copier et coller un enregistrement dans un form

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

j'aimerais savoir comment copier un enregistrement de ma base donnée et de le coller dans un nouvel enregistrement. En fait, j'ai un bouton qui permet de rechercher tout mes enregistrements et de modifier ceux-ci. En appuyant sur modifier, l'enregistrement s'affiche dans mon formulaire. Par la suite j'aimerais récupérer c'est informations et de créer un nouvel enregistrement à partir de celui-ci mais en incrémentant mon ID. voici le formulaire que j'aimerais copier :
Pièce jointe 235794

puis voici le code de mon bouton "Copie".

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub btnCopy_Click()
'Forms!frm_Process.TabCtl361 = 0
On Error GoTo Err_Handle
Dim reponse As String
 
    DoCmd.SetWarnings False
    Me.Group.SetFocus
    DoCmd.RunCommand acCmdSaveRecord
    reponse = MsgBox("Êtes-vous certain de vouloir créer une copie de de ces données?", vbYesNo + vbQuestion, "Confirmation")
    If reponse = vbYes Then
 
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToRecord , , acNewRec
    DoCmd.RunCommand acCmdPasteAppend
    Me.StreamNum.Visible = True
    Me.StreamTitle.Visible = True
    Call EmptyClipboard
 
 
    Me!btnCreate.Enabled = True
    Me!btnUndo.Enabled = True
    Me!btnSave.Enabled = True
    Me!btnDelete.Enabled = True
    Me!btnCopy.Enabled = True
 
Else
 
Exit_btnCopy_Click:
    End If
 
Err_Exit:
    Exit Sub
 
Err_Handle:
    Select Case Err.Number
        Case Not 2501
        MsgBox Err.Number & "  " & Err.Description, "Unknown error"
    End Select
 
    If Err.Number = 3022 Then
 
        response = MsgBox("Le '# de processus de sélection' et '# de volet' entrés existent déjà.", vbExclamation, "Erreur")
        Me.StreamNum.Value = Null
        Me!StreamNum.SetFocus
 
    End If
 
DoCmd.SetWarnings True
 
End Sub

Bonjour,
Via une requête Insert c'est plus sûr.

1) récupérer l'id courant
2) jouer la requête insert select

Comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 dim idCurrent as long dim db as dao.database set db = currentdb if me.newrecord or me.dirty then me.dirty=false idCurrent=me.MonchampID.value db.execute "INSERT INTO matable ([colonne2],...) SELECT [Colonne2],.... FROM matable WHERE monchampID=" & idCurrent & ";",dbfailonerror 'Attention de ne pas inclure le champ ID dans le transfert (ni coté Insert ni Select) ...
Enfin c'est un truc dans le style de cet algo.

Cordialement,

18/01/2017, 15h38
stamoua2
Mais ce code ne fera qu'ajouter automatiquement un enregistrement dans ma base de données ? J'aimerais simplement afficher le même enregistrement dans mon formulaire mais en incrémentant ma clée primaire (Elle est Autoincrement). Par la suis l'utilisateur pourrais décider sois d'enregistrer l'enregistrement dans la base de donnée ou simplement d'annuler l'opération. En résumer le boutton copie permet de créer une copie des informations présente dans le formulaire et de créer un nouvel enregistrement sans toute fois l'enregistrer. Voila pourquoi j'ai utiliser ceci
Code:

1 2 3 4 DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPasteAppend
18/01/2017, 21h44
loufab
Citation:

J'aimerais simplement afficher le même enregistrement dans mon formulaire mais en incrémentant ma clée primaire (Elle est Autoincrement)

Tu ne peux pas incrémenter ta clef, tu as choisi d'utiliser un autoincrement c'est le moteur Jet qui se charge de ça. La seule méthode pour qu'il incrémente c'est d'ajouter un enregistrement :
- Soit par requête Insert (comme je le fais dans le code)
- Soir avec les commande docmd comme tu le fais dans le tiens.
- Soit en se positionnant sur l'enregistrement Newrec et en faisant une simple modification. Même si tu fais annuler l'incrément est déjà fait.
Donc oui, avec mon code tu obtiens une simple copie effectivement, avec un nouvel Id. Comme tu le souhaites.
Rien ne t'empêche d'effectuer un déplacement vers celui-ci pour que l'utilisateur puisse faire la modification.

A noter que tu as demandé à l'utilisateur s'il voulait faire une copie, s'il répond oui mais qu'il ne le souhaites pas c'est un peu ballot.
A la limite s'il n'est pas content de sa modification et qu'il souhaite annuler, tu effaces l'enregistrement.

Si tu souhaites travailler avec un enregistrement non créé dans la base, il te faut passer par une autre source : table temporaire ou datashapping http://arkham46.developpez.com/artic...s/msdatashape/