Discussion :

[Jazz_]

Bonjour,

J'explique mon souci, J'ai 3 tables, une table de Transactions, une table de composant, et une table de liaisons entre les transaction et les composants contenant l'id de la trasaction et l'id d'un de ses composants.

J'ai aussi un formulaire de source ma table Transaction et trié par id(de la transaction).
Dans celui ci une listbox avec tout mes composants.
Et ce que j'aimerais c'est que lorsque je double clique sur un composant de la liste, un record s'enregistre dans la table Liaisons, entre l'id de ma transaction et celui du composant sur lequel j'ai cliqué.

Je donne un exemple.

Je suis sur la transaction id: 5
Je clique dans la list box sur le composant : id = 7

J'aimerais que se crée dans ma tables liaisons, un nouveau record :
5 - 7

Voila, merci de toute réponse!

[Manhexter]

Salutations,

Tu peux utiliser un code de ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim db As Database
Dim qry As QueryDef
Dim sql As String
 
Set db = CurrentDb
 
sql = "Insert into liaisons (id_transaction,id_composant) values (" & TonFormulaire.ListeIdTransaction & "," & TonFormulaire.ListeIdComposant & ");"
 
Set qry = db.CreateQueryDef("Q000_ADD_LIAISON", sql)
qry.Execute
Set qry = Nothing
Set db = Nothing

Après il reste à voir où mettre ce code. Le mettre directement sur l'évèment clic de ta liste composant me semble un peu risqué car un mauvais clique est trop vite arrivé. A ta place je ferais un bouton pour valider la nouvelle liaison et je mettrais le code sur l'évènement clic de ce bouton.

En espérant avoir répondu à ton problème.

Cordialement,

[Jazz_]

Re,

Merci beaucoup, cela fonctionne a merveille!

Est ce que tu a aussi une astuce pour suprimmer des records de la meme maniere ?
Je clique sur un composant, et si une liaison existe entre la transaction est le composant, elle est supprimé?

D'avance Merci.

[Manhexter]

Re,

Alors pour supprimer un Record tu peux utiliser le même principe de code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim db As Database
Dim qry As QueryDef
Dim sql As String
Dim verif As DAO.Recordset
 
Set db = CurrentDb
 
sql = "Select * from liaisons where id_transaction = " & TonFormulaire.ListeIdTransaction & " and id_composant = " & TonFormulaire.ListeIdComposant & ";"
 
Set verif = db.OpenRecordset(sql)
 
If Not verif.EOF Then
    sql = "Delete * from liaisons where id_transaction = " & TonFormulaire.ListeIdTransaction & " and id_composant = " & TonFormulaire.ListeIdComposant & ";"
 
    Set qry = db.CreateQueryDef("Q000_DEL_LIAISON", sql)
    qry.Execute
 
    db.QueryDef.Delete ("Q000_DEL_LIAISON") 'Suprression du QueryDef
 
End If
 
Set verif = Nothing
Set qry = Nothing
Set db = Nothing

En fait je rajoute une autre requête sous forme d'un DAO.Recordset pour vérifier si la ligne que je souhaite supprimer existe.

J'ai aussi ajouté le delete du QueryDef que je créé car sinon ça va planter à la seconde exécution. (Je l'avais oublié dans le premier code que j'ai donné avant).

Cordialement,

[Jazz_]

Waouh!

Ca marche bien ! Merci pour tout, j'ai beaucoup appris aujourd'hui grace a toi !