Discussion :

[schamax]

Bonjour,

Je débute en VBA sur Access et je vous demande de l'aide.

Voilà, j'ai un formulaire qui doit être permettre de lier des travaux à un bon de commande.

1 BON a plusieurs TRAVAUX
1 TRAVAUX est lié à 0 ou 1 BON

J'ai donc deux tables (BON et TRAVAUX), et dans TRAVAUX la propriété "ref_Bon".

La source de mon formulaire est la table BON.
Dans celui-ci, j'inscris d'abord les données (propriétés) d'un bon (ex : id_Bon=1).
Ensuite, je propose une première zone de liste qui liste les TRAVAUX liés à ce bon (WHERE Travaux.ref_Bon=1).
Et encore plus bas, je propose une seconde zone de liste qui affiche les TRAVAUX n'étant pas encore lié à un BON (WHERE Travaux.ref_Bon=0).

Ce que j'aimerais, c'est qu'au double-clic sur une ligne de la seconde liste, la valeur Travaux.ref_Bon du TRAVAUX concernant la ligne (colonne liée : Travaux.id_Travaux) soit égale à Me.id_Bon, donc à 1.

En somme, je double-clique sur un TRAVAUX de la seconde liste et il apparaît dans la première liste.

Je vous remercie beaucoup pour votre aide. J'espère avoir été clair...

PS : Je précise que l'ajout de TRAVAUX dans la base se fait avant l'ajout d'un BON.

Salutations.

[madefemere]

Bonsoir,

Du genre :

Code :

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

1
2
3
4
5
SQL = "UPDATE TRAVAUX SET TRAVAUX.Ref_Bon =" & Me.IdBon _
& " WHERE ((TRAVAUX.IdTravaux)=" & Me.ZdlTxPropose & ");"
DoCmd.RunSQL SQL
Me.ZdlTxduBon.Requery
Me.ZdlTxPropose.Requery

où
ZdlTxPropose : La zone de liste des travaux non rattachés au bon de commande
ZdlTxduBon : la zone de liste des travaux rattachés au bon

Bonne continuation

[schamax]

Bonjour,

Un grand MERCI pour ce coup de main madefemere et votre réponse aussi rapide que claire !!