Remplir une textbox issu d'une requête sql
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:
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
