Discussion :

[psylo24]

Bonjour à tour,

Je suis sous Access 2007.

Voilà je galère un peu, j'ai suivi un tuto simple.

Ca fonctionne, mais au lieu d'afficher le résultat dans une autre liste deroulante, je voudrais que ce soit dans une "zone de liste" mais je n'y arrive pas.

J'ai créé ce code d’évènement sur la 1ere liste déroulante.

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
Private Sub cmbDOSSIER_Click()
Dim lngIDDOS   As Long
Dim SQL        As String
 
  '' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
  If Not IsNumeric(Me!cmbDOSSIER) Then Exit Sub
  '' Affecte la valeur de IDCategorie à la variable lngIDDOS
  lngIDDOS = Me!cmbDOSSIER
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT IDENT, X, Y, ALT FROM WAYPOINT WHERE IDDOS =" & lngIDDOS & ""
  '' Affecte la chaîne SQL à la liste des moulins
  cmbListe.RowSource = SQL
  '' Déverrouille la liste des moulins
  cmbListe.Enabled = True
  '' Donne le focus la liste des moulins
  cmbListe.SetFocus
  '' Déroule la liste des Liste
  cmbListe.Dropdown
End Sub

Ca bloque au niveau de : cmbListe.RowSource = SQL

cmbDOSSIER est ma 1ere liste deroulante (valeur IDDOS et NOM extrait d'une requête SQL)
cmbListe est la 2eme liste deroulante dans le tuto , mais quand je met une "zone de liste" ca ne fonctionne plus !! Elle contient 4 colonnes

Avez vous une idée ? merci d'avance

[ninouchfis]

Bonjour,

Je ferais simplement ceci:

Code :

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

1
2
3
4
5
Private Sub cmbDOSSIER_Click()
 
 Me.cmbListe.RowSource = Me.cmbDOSSIER.RowSource
 
End Sub

[psylo24]

Merci de ta réponse ca m'a aidé, j'ai modifié mon code mais j'ai aussi modifié mon formulaire :
-cmbDossier Liste déroulante 1
-cmbListe Liste déroulante 2
-Liste18 Zone de liste

Je sélectionne dans ma 1ere liste déroulante un code INSEE
Ça me rempli ma 2eme liste déroulante avec le champ IDENT
Mais quand dans la 2eme liste déroulante je sélectionne une ligne, je voudrais que ça me remplisse la Liste18 avec X et Y mais je n'y arrive pas .

Quand je sélectionne une ligne dans la 2eme liste déroulante il ne se passe rien.

Quand je clique en haut dans Access sur tout Actualiser il me dit :
"Erreur de syntaxe (opérateur absent) dans l'expression IDENT =2800001M "
280001M = IDENT ca veut dire qu'il récupère bien la valeur de la 2eme liste déroulante mais après plus rien, on dirait que ça vient de ma requête mais elle me parait correcte pourtant !!

Mais en modifiant ma seconde requête par
SQL = "SELECT X, Y, ALT FROM WAYPOINT WHERE IDENT ='280001M'"
Là ca fonctionne ! mais c'est fixe !

Voici mon 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
25
26
27
28
29
30
31
32
33
34
Private Sub cmbDOSSIER_Click()
Dim lngIDDOS   As Long
Dim SQL        As String
 
  '' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
  If Not IsNumeric(Me!cmbDOSSIER) Then Exit Sub
  '' Affecte la valeur de IDCategorie à la variable lngIDDOS
  lngIDDOS = Me!cmbDOSSIER
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT IDENT FROM WAYPOINT WHERE IDDOS =" & lngIDDOS & ""
  '' Affecte la chaîne SQL à la liste des moulins
   cmbListe.RowSource = SQL
  '' Déverrouille la liste des moulins
  cmbListe.Enabled = True
  '' Donne le focus la liste des moulins
  cmbListe.SetFocus
  '' Déroule la liste des Liste
  cmbListe.Dropdown
End Sub
 
Private Sub cmbListe_BeforeUpdate(Cancel As Integer)
 
End Sub
 
Private Sub cmbListe_Click()
Dim IIDENT   As String
Dim SQL        As String
 
  IIDENT = Me!cmbListe
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT X, Y, ALT FROM WAYPOINT WHERE IDENT =" & IIDENT & ""
   Me.Liste18.RowSource = SQL
  Liste18.Enabled = True
End Sub

une idée ???

Merci d'avance

[psylo24]

Finalement j'ai trouvé mon erreur , enfin pas réélement mais ca vient du fait que dans IDENT il y a une lettre, visiblement ca ne fonctionne que avec des chiffres, je suis donc passé par IDWPT qui est un chiffre et là ca fonctionne.

Merci à tous.