Discussion :

[badeux]

Bonjour,

Je me permets de poser mon problème car après avoir fait un tour sur le site je ne trouve toujours rien.

J'ai trois tables:
Une table Tbl_Equipement qui regroupe tous les équipements que j'ai.
Un table Tbl_AllFonctions dans laquelle est inscrite toutes les fonctions que les équipements sont potentiellement capables de remplir.
Une table intermédiaire Tbl_FonctionsEquipement qui vient mettre en relation un équipement avec une fonction (donc plusieurs lignes si l'équipement peut remplir plusieurs fonctions).

Je voudrais donc créer un formulaire qui permette:
- En sélectionnant un équipement
- En sélectionnant plusieurs fonctions a partir d'une liste de choix

--> M'écrire dans ma base données intermédiaire toutes les lignes correspondant aux fonctions sélectionnées, par ex.:
Equipement1 Fonction1
Equipement1 Fonction2
Equipement2 Fonction1
Equipement2 Fonction3
.... ....

Je pense qu'il faille passer par un développement en macro, n'étant pas un spécialiste, je me disais que quelqu'un sur le site est peut être susceptible de m'aider à ce sujet.
Je vous remercie.

[Heureux-oli]

Bonjour et bienvenue sur les forums office de DVP.

Je pense que tu auras besoin d'un peu plus qu'une macro, il va falloir passer par du VBA.
La première étape est la récupération des éléments de la liste des fonctions.

Pour ce faire, sur le clic d'un bouton on va parcourir les éléments sélectionnés.

Code :

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

1
2
3
4
5
6
 
Dim sItem As Variant
 
For Each sItem In Me.List2.ItemsSelected
    Debug.Print Me.List2.ItemData(sItem)
Next sItem

Ce qui nous intéresse le plus est la ligne
Debug.Print Me.List2.ItemData(sItem)

On a au moins deux choix, via SQL ou via DAO.

En SQL cela donne

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
 
Sub Test()
Dim sItem As Variant
Dim frm As Form
 
 
Set frm = Forms!MonFormulaire
 
 
For Each sItem In frm.monControle1.ItemsSelected
    DoCmd.RunSQL "Insert into T2 (T1,T2) SELECT " & frm.monControle1.ItemData(sItem) & "," & frm.monControle2.ItemsSelected(0) & ";"
 
Next sItem
 
 
End Sub

[badeux]

Bonjour,

C'est exactement la ligne de code qu'il me fallait, je viens de la tester et après quelques modifs Bingo ça roule...

Je vais pouvoir avancer, et n'espère ne pas être trop bloquer par la suite, sinon je sais à quelle porte frapper..

Merci encore.. chussss

[Heureux-oli]

Alors un petit !

[sinifroth]

Bonjour,

Je me trouve dans le même cas de figure que badeux quasiment. Le code proposé devrait marcher pour moi mais je ne le comprends pas bien. Pourriez-vous svp m'expliquer la commande SQL ?

[Heureux-oli]

Salut,

Avec la boucle, on récupère les différents choix de la liste.

Pour chaque élément de la liste, on va utiliser le SQL pour ajouter un enregistrement à la table.