Discussion :

[Hania06]

Bonjour a tous,

J'aimerai créer un formulaire avec des bouttons qui permettent a leur tour d'afficher un autre formulaire avec des listes déroulante.

Mon problème est dans le parametrage des listes déroulantes, je voudrais crées 6 listes déroulantes qui m'affichent le contenu des colonnes de ma base de donées, Cependant j'aimerai que la valeur de ses listes dépendent de la valeur qu'on choisie dans ma première liste, et que les valeurs des 5 listes déroulantes restantes s'affichent automatiquement.

J'ai essayé de le faire sur 3 zones de liste en premier lieux , et lié ma permière zone de liste modifiable a cette requete:

Code sql :

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

SELECT [table1].clonne1, [table1].colonne2, [table1].colonne3 FROM 2016

; ( crée par ACCESS, dans feuille de propriété, données, contenu...)

puis j'ai voulu coder la premiere liste, (en désactivante les données des autres listes) sur VBA, en utilisant ce code :

Code :

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

1
2
3
4
5
Private Sub txtcolonne1_AfterUpdate()
  txt_colonne1 = txt_colonne1.Column(4)  '4 est le rang de colonne1 
   txt_colonne2 = txt_colonne2.Column(5)  '5 est le rang de colonne2
  txt_colonne3 =  txt_colonne3.Column(6)   '6 est le rang de colonne3 
End Sub

J'ai un message d'erreur: ERREUR de compilation : memebre de méthode ou de données introuvable

J'espère que je me suis bien expliquée, si vous pouvez me donner quelques indications vous me sauverez la vie

Merciiiii

[marot_r]

Bonjour.

J'ai un message d'erreur: ERREUR de compilation : membre de méthode ou de données introuvable

sur quelle ligne ?

A+

[Hania06]

sur celle-ci : txt_colonne2 = txt_colonne2.Column(5)

J'ai pensé que le problème pourrait venir du numéro de la colonne: 5. j'ai bien compté de 0 a 1 les champs de ma table jusqu'à colonne2 (colonne2 est la 5 ème colonne de ma table). Pour info ma base de donner est importée d'Excel.

Merci

[Hania06]

J'ai trouvé mon erreur. Mon code est faux

Code :

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

1
2
3
4
5
6
Private Sub txtcolonne1_AfterUpdate()
 
   txt_colonne2 = txt_colonne1.Column(5)  
  txt_colonne3 =  txt_colonne1.Column(6)   
 
End Sub

sachant que colonne1 est la liste déroulante modifiable que j'ai alimenté au debut

Merci

[marot_r]

Bonjour.

Si tu considère le sujet clos, merci d'appuyer sur le bouton en bas de discussion.

A+