Discussion :

[MenezHom]

Bonjour à tous,
Je souhaiterais dupliquer une ligne d'un sous formulaire vers un autre sous-formulaire simplement en cliquant sur l'enregistrement voulu (du 1er).
J'ai essayé avec des requêtes et CurrentRecord mais rien n'y fait, je ne sais pas si le currentrecord est bien positionné ou même si c'est cette fonction qu'il faut utiliser.
Essais non-concluants :

Code SQL :

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

1
2
3
SELECT r_recherche_of_date.WOL_DATEACC, r_recherche_of_date.GA_LIBELLE, r_recherche_of_date.WOL_QACCSAIS, r_recherche_of_date.SITE, r_recherche_of_date.BRAND, r_recherche_of_date.CHARGE, r_recherche_of_date.CODE_OPE, r_recherche_of_date.NUM_OPE, r_recherche_of_date.WOL_LIGNEORDRE, r_recherche_of_date.WOL_CODEARTICLE, r_recherche_of_date.WEEK
FROM r_recherche_of_date
WHERE (([r_recherche_of_date]![WOL_DATEACC]=[r_recherche_of_date]![WOL_DATEACC].[CurrentRecord]));

Ou :

Code SQL :

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

1
2
SELECT r_recherche_of_date.WOL_DATEACC.CurrentRecord, r_recherche_of_date.GA_LIBELLE.CurrentRecord, r_recherche_of_date.WOL_QACCSAIS.CurrentRecord, r_recherche_of_date.SITE.CurrentRecord, r_recherche_of_date.BRAND.CurrentRecord, r_recherche_of_date.CHARGE.CurrentRecord, r_recherche_of_date.CODE_OPE.CurrentRecord, r_recherche_of_date.NUM_OPE.CurrentRecord, r_recherche_of_date.WOL_LIGNEORDRE.CurrentRecord, r_recherche_of_date.WOL_CODEARTICLE.CurrentRecord, r_recherche_of_date.WEEK.CurrentRecord
FROM r_recherche_of_date;

Illustration de mes propos :

Pouvez vous m'aider ?
Merci beaucoup !

[Zekraoui_Jakani]

Pour cela, il faudra travailler au niveau des sources des formulaires.

• Dans la table source du sous-formulaire, ajoutez un champ (oui/non ou checkbox)
• Faire apparaître ce champ dans le sous-formulaire
• Dès que l'on coche ce champ, lancez un évènement qui va choisir l'enregistrement ayant été coché et le rajouter à la table de destination
• Moyennant un "Refresh", vos données seront à jour

[hyperion13]

Salut
Une solution parmi d'autres via un double_click() dans le subform1
Un exemple à adapter à votre IHM (nom des objets et champs identiques à l'img
tblPret alimente le 1er subform et tblPret1 le 2nd

Code :

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

1
2
3
4
5
6
7
Private Sub idPret_DblClick(Cancel As Integer)
CurrentDb.Execute "INSERT INTO tblPret1 (datePret, idEmpfk, idEquipfk, qtePret) " _
    & " SELECT datePret, idEmpfk, idEquipfk, qtePret " _
    & " FROM tblPret " _
    & " WHERE idPret = " & Me.idPret & "", dbFailOnError
Me.Parent.Controls!frmEmp2Pret.Requery
End Sub

[MenezHom]

Bonjour et merci beaucoup pour votre réponse ;-)
J'ai adapté votre code comme ceci (double click sur WOL_LIGNEORDRE) :

Code :

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

1
2
3
4
5
6
7
Private Sub WOL_LIGNEORDRE_DblClick(Cancel As Integer)
CurrentDb.Execute "INSERT INTO tblPret1 (WOL_DATEACC, GA_LIBELLE, WOL_QACCSAIS, SITE, BRAND, CHARGE, CODE_OPE, NUM_OPE, WOL_LIGNEORDRE, WOL_CODEARTICLE, WEEK) " _
    & " SELECT WOL_DATEACC, GA_LIBELLE, WOL_QACCSAIS, SITE, BRAND, CHARGE, CODE_OPE, NUM_OPE, WOL_LIGNEORDRE, WOL_CODEARTICLE, WEEK " _
    & " FROM tblPret " _
    & " WHERE WOL_LIGNEORDRE = " & Me.WOL_LIGNEORDRE & "", dbFailOnError
Me.Parent.Controls!(que mettre ici?).Requery
End Sub

Cependant je ne sais pas comment remplacer le "frmEmp2Pret" donc la fonction ne marche pas ...
(J'ai changé le nom des subform par tblPret et tblPret1).
Voilà ce que cela me donne après un double click sur le champ WOL_LIGNEORDRE d'une ligne :

Mes subforms sont paramétrés comme ceci :


Les données du premier (tblPret) proviennent d'une requête nommée r_recherche_of_date
Je ne sais pas trop ou est l'erreur ou si quelque chose est mal paramétré ou mal fait ...
Le double click n'est peut être pas reconnu non plus, je n'ai pas l'évènement "sur double-click" dans l'onglet évènement des propriétés du subform tblPret
Merci beaucoup

[MenezHom]

Petit up
Je n'ai toujours pas réussit à faire fonctionner cette fonction ...
Pouvez vous m'indiquer ce qui ne va pas ?
Merci

[harpyopsis]

Bonsoir !

La solution de Zekraoui_Jakani est toute bonne.

Mais à votre place je ne compterais pas sur un double-click.

Je mettrais plutöt un bouton "Dupliquer" ou "Exporter", qui lancerait un Docmd.RunSQL ou CurrentDb.Execute "INSERT INTO....", suivi de Me.Parent.MySubform.Requery. Voyez d'abord si l'action s'est bien déroulée dans votre table.

phil

[hyperion13]

Et vous n'avez pas cherché à comprendre ?
Pourtant dans mon Post#3 vous avez tout en main. De rappeler que nom des objets sur l'img sont les mêmes que dans la sub().

Petit up
Je n'ai toujours pas réussit à faire fonctionner cette fonction ...
Pouvez vous m'indiquer ce qui ne va pas ?
Merci

[MenezHom]

Et vous n'avez pas cherché à comprendre ?
Pourtant dans mon Post#3 vous avez tout en main. De rappeler que nom des objets sur l'img sont les mêmes que dans la sub().

Merci beaucoup c'est bon j'ai réussi !
Au lieu de faire une liaison par table je faisais par les formulaires
Bon maintenant je vais trouver une fonction pour nettoyer la table a chaque clic sur un élément d'une ligne, il ne faut qu'un enregistrement à la fois.