Afficher résultat de requêtes dans une textBox

**0sef40** · 27/04/2011, 16h43

Bonjour, je voudrais savoir comment afficher les résultats d'une requête dans une "zone de texte". je précise que je débute en VBA...

j'ai bien essayer de regarder là : ici

mais je ne comprend pas la partie qui m'interesse justement ^^

donc

pour écrire dans une textbox c'est :

Code :

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

1
2
 'avec text1 le nom de ma zone de texte,
text1.Value = "monsupertext" '  monsupertext.. le text

je voudrais maintenant afficher le resultat d'une requête, dans cette zone^^

j'ai : une table "joueurs" une 2eme "equipe" (oui oui pour testé^^) et ma requête fonctionne (creer et tester sous access)

cependant avec le code suivant :

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
 
Option Compare Database
Option Explicit
 
Private Sub bouton3_Click()
 
' déclaration des variables d'interaction avec la table
Dim r1 As DAO.Recordset
 
 
' déclaration des données nécéssaire à la connexion a la base
Dim oDb As DAO.Database
Set oDb = CurrentDb
 
Set r1 = oDb.OpenRecordset("Requête1")
 
While Not r1.EOF
        text1.Value = r1("[nomj]") & " | " & r1("[prenomj]")
 
        r1.MoveNext
    Wend
    r1.Close
 
End Sub