Discussion :

[malingue]

Bonjour,

Je cherche à dupliquer un enregistrement dans un formulaire: l'utilisateur se palce sur la ligne qu'il veut dupliquer et clique sur un bouton.

J'ai essayé plusieur variation autour de code trouvé sur le forum, mais ca ne marche pas:

Code :

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

1
2
3
Dim rs As Object
Set rs = Me.Recordset.Clone
Me.Bookmark = rs.Bookmark

j'ai essyé d'introduire des "currentrecord" mais visiblement il n'aime pas ca...

Quelqu'un a une idée?

Merci!

Guillaume

[alexandrebergercyr]

Est ce que c'est ça que tu veux 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
 
Private Sub bt_copier_Click()
    Dim rstRecopier As Recordset
    Dim strCopie As String
    Set rstRecopier = CurrentDb.OpenRecordset("SELECT * from table")
    If (rstRecopier.RecordCount = 0) Then
        MsgBox "Aucun enregistrement précédent dans la base de données", vbOKOnly, "Base de données vide"
    Else
        rstRecopier.MoveLast
        strCopie = rstRecopier.Fields("champ_voulu")
        ChampDestination = strCopie 
    End If
    rstRecopier.Close
End Sub

Alex

[francishop]

Bonjour;

Ça peut aider le travail de Tofalu:http://access.developpez.com/sources...egistrementDAO

Cordialement

[malingue]

Merci Alexandre,

Non ce n'est pas tout a fait ca.

Ce que je veux c'est dupliquer la ligne selectionnée par l'utilisateure, pour qu'il n'est pas à recopier tout les champs.

Par ailleur cette ligne est "l'enregistrement actif" mais n'est pas forcement la derniere ligne affichée.

En fait ce que je veux faire c'est un truc du genre:
"duplique l'enregitrement actif".

[alexandrebergercyr]

Genre la clef ou les clefs de ta ligne sélectionné.

where champ = " + tonChampActif + " ....

Alex