Discussion :

[juliejuliejuliejulie]

Bonjour,

Voici ma situation :

j'ai un formulaire pour ajouter des données à une table.

J'ai une liste déroulante à partir d'une requête qui me fournit 2 des champs que je souhaite enregistrer, comment faire ?

Pour l'instant la seule solution que j'ai trouvé étant de faire Deux listes déroulantes avec le choix de colonne liée qui différe pour chacune mais n'y a t'il pas un moyen de faire ça directement?

Merci!

[f-leb]

bonjour,

je n'ai pas bien compris la situation. Tu veux mettre chacune des deux colonnes de ton unique liste déroulante dans deux champs différents de l'enregistrement courant, c'est ça ?

Tu peux répéterrépéterrépéterrépéter avec plus de détails sur la table et le formulaire ?

[VincentNguon]

Le but d'une liste déroulante est de sélectionner une option.

- Si tu veux envoyer 2 informations dans ta table, il te faut 2 listes déroulantes.

- Si la 2ème information dépend de la 1ère alors dans ton VBA, tu peux fixer par condition SI la valeur de ta 2ème information en fonction de ta 1ère et ainsi supprimer les valeurs superflues de ta liste déroulante.

[Beub']

Dans la même veine que f-leb :

BonjourBonjourBonjourBonjour

Je me permets de tenter ma chance à mon tour !
Si j'ai bien compris, tu veux avoir une seule liste déroulante avec deux colonnes.... non ?

Si c'est juste ça, crée une liste déroulante à deux colonnes à l'aide de l'assistant et, sur l'évènement After_Update(), tu récupères la valeur de la première colonne avec :
Me.NomdetaListeDéroulante.Column(0)
Puis de la deuxième colonne avec :
Me.NomdetaListeDéroulante.Column(1)

Et tu récupères donc les valeurs de tes deux colonnes de la liste déroulante, que tu peux insérer dans une table avec un INSERT.

Je pense que f-leb voulait en arriver là (non ? )

Cordialement,
Beub'

[Taylorised]

Bonjour,

Pour appuyer ce que dit Beub' :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub NomDeTaListe_AfterUpdate()
 
'Récupère la valeur de la colonne 1 puis de la colonne 2
MaVariable = NomDeTaListe.Column(0)
MaVariable2 = NomDeTaListe.Column(1)
'On vérifie que les variables prennent bien les valeurs voulues
MsgBox(MaVariable)
MsgBox(MaVariable2)
 
End Sub

La première colonne de ta liste est la Column(0), ensuite la seconde est la Column(1) etc etc ...

[f-leb]

Je pense que f-leb voulait en arriver là (non ? )

c'était l'idée en effet, c'est parfaitparfaitparfaitparfait