[VBA-A]Remplir une textbox avec des données de tables.

Bonjour,

voilà, j'aimerais créé un formulaire d'ajout (sans l'aide de l'assistant). Le problème c'est que je ne sais pas quoi taper comme code pour les remplir. J'ai juste commencer la structure ainsi que quelques requêtes SQL. Quelqu'un pourrais m'aider svp ?? Merci :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub AffichFiche(txtDes as TextBox) 'Déclaration des variables Dim rstObj As ADODB.Recordset Dim objmyconn As ADODB.Connection Dim strSQL As String 'connexion à la base de donnée Set objmyconn = connexion() Set rstObj = CreateObject("ADODB.RecordSet") 'requête sql strSQL = " Select [designation] from OBJET ;" 'Ouvre l'objet RecordSet rstObj.Open strSQL, objmyconn   'ICI IL FAUT LE CODE POUR REMPLIR LES TEXTBOX   rstObj.Close objmyconn.Close Set rstObj = Nothing Set objmyconn = Nothing End Sub

---

Bonjour,

Si ton recordset ne contient qu'un seul enregistrement :

Code:

---

1 2 3 4 5 6 7 8 9

..... rstObj.Open strSQL, objmyconn 'ICI IL FAUT LE CODE POUR REMPLIR LES TEXTBOX if not rstObj.EOF then text1.text = rstObj("designation") end if rstObj.Close .....

---

Si tu as plusieurs enregistrements

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

..... rstObj.Open strSQL, objmyconn 'ICI IL FAUT LE CODE POUR REMPLIR LES TEXTBOX if not rstObj.EOF then do while not rstObj.EOF msgbox rstObj("designation") rstObj.MoveNext loop end if rstObj.Close .....

---