Discussion :

[tipoutchi]

salut, je ne suis pas une pro de access c'est pkoi j'ai besoin de votre aide.
J'ai une table de parametres avec 3 champs (nature,type,annee).
Il existe plusieurs "nature", et dans chaque "nature" il y a plusieurs "types", et a chaque "type" ne correspond qu'une seule "annee".
J'aimerai creer un formulaire avec une liste deroulante pour chaque nature (affichage des types et annees correspondantes dans la liste deroulante).

Je ne sais pas si je suis bien claire... En tout cas mm moi je m'y perds...


Merci d'avance.

[LedZeppII]

Bonsoir,

Voila en gros ce qu'il faut faire.

Liste déroulante pour nature lstNature:
Origine Source = Table/Requête
Contenu = SELECT DICSTINCT Param.Nature FROM Param ORDER BY Param.Nature

Liste type/année lstType:
Origine Source = Table/Requête
Nbre de colonnes = 2
Contenu = laisser vide
Lorsque la valeur de nature change il faut modifier la liste type/année lstType:

Sur évènement 'Sur changement' de la liste nature:

Code :

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

1
2
3
4
5
6
 
Sub lstNature_Change()
Me.lstType.RowSource="SELECT DISTINCT Param.Type, Param.Annee FROM Param " & _
  "WHERE (Param.nature='" & Me.lstNature & "'"
Me.lstType.Requery
End Sub

Lorsqu'on ouvre le formulaire il faut que lstType contienne des valeurs compatibles avec nature.
Sur évènement 'chargement du formulaire'

Code :

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

1
2
3
4
5
6
 
Sub Form_Load()
Me.lstType.RowSource="SELECT DISTINCT Param.Type, Param.Annee FROM Param " & _
  "WHERE (Param.nature='" & Me.lstNature & "'"
Me.lstType.Requery
End Sub

Bon courage.

[supergaffe]

Bonjour,
j'ai eu le même problème et j'ai donc suivi les conseils de ledzepII.

Seulement, lorsque je clique sur ma liste déroulante, un message d'erreur s'affiche: "Type de donnée incompatible dans l'expression du critère"!

Pour résumer, j'ai une liste déroulante qui me donne les RefPont disponibles, et plusieurs NomLocal sont associés à chaque RefPont.

Je veux donc obtenir une seconde liste déroulante me proposant les NomLocal correspondant.

Et tout ce petit monde se trouve dans une table Local1.

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
Option Compare Database
 
Sub Form_Load()
 
Me.NomLocal.RowSource = "SELECT DISTINCT Local1.NomLocal FROM Local1 WHERE Local1.RéfPontsDuBateau='" & Me.RefPont & "';"
Me.NomLocal.Requery
 
End Sub
 
Sub RefPont_Change()
 
Me.NomLocal.RowSource = "SELECT DISTINCT Local1.NomLocal FROM Local1 WHERE Local1.RéfPontsDuBateau='" & Me.RefPont & "';"
Me.NomLocal.Requery
 
End Sub

Merci pour vos réponses prochaines!!

[supergaffe]

C'est bon, j'ai trouvé mon erreur, désolé pour le dérangement...