Bonjour à tous,

je cherche à afficher le resultat d'une requete dans une textbox masi je n'y arrive pas!

J'ai 2 listes déroulantes :
-cmbDOSSIER : resultat d'une requete qui me donne le nom du dossier (table DOSSIER)
-cmbListe : me liste les moulins pour ce dossier en question

J'ai également une "zone de liste" :
-Liste18 : m'affiche quelques infos issues de la requete SQL

Et j'ai ma zone de texte :
-tt1 : je voudrais avoir juste le champ "NOM" issu de ma requête.

Est-ce possible ?

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
35
36
37
Option Compare Database
 
 
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 IDWPT, IDENT FROM WAYPOINT WHERE IDDOS =" & lngIDDOS & ""
  '' Affecte la chaîne SQL à la liste des moulins
   cmbListe.RowSource = SQL
    '' Me.Liste18.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 IIDWPT   As Long
Dim SQL        As String
Dim Result
  IIDWPT = Me!cmbListe
  SQL = "SELECT NOM, X, Y, ALT FROM WAYPOINT WHERE IDWPT =" & IIDWPT & ""
   Me.Liste18.RowSource = SQL
 
End Sub
Quand je selectionne un dossier dans ma 1ere liste déroulante ca me rempli bien ma 2eme liste déroulante et quand je selectionne un moulin ma 2eme liste déroulante ca me rempli bien ma liste dite Liste18.

Mais dans ma zone de texte "tt1" je n'arrive pas à afficher le NOM issu de ma requete..
une idée ??

merci