Incrementation du nom d'une zone de texte VBA_ACCESS97
pieroots29
Messages postés5Date d'inscriptionvendredi 29 décembre 2000StatutMembreDernière intervention21 juillet 2009
-
9 juil. 2009 à 16:35
pieroots29
Messages postés5Date d'inscriptionvendredi 29 décembre 2000StatutMembreDernière intervention21 juillet 2009
-
10 juil. 2009 à 08:38
Bonjour à tous,
Voila, j'ai une dizaine de champs texte, nommé champ1, champ2, champ3....
Donc dans une boucle Tant que je voudrais y remplir le résultat de ma requête.
J'utilise obligatoirement access 97 !
rs.movefirst
i=1
Tant que pas rs.eof
(champ+i).Text= "blalbalbla"
i=i+i
rs.movenext
refaire
Mais voila le champ+i n'est pas pris en compte.
Je n'arrive pas a faire concaténer une variable après le nom fixe.
Si quelqu'un pouvait m'aider.
Merci ! J'ai pourtant bien cherché. En php j'avais réussi mais pas la ^^ sniff
A voir également:
Incrementation du nom d'une zone de texte VBA_ACCESS97
pieroots29
Messages postés5Date d'inscriptionvendredi 29 décembre 2000StatutMembreDernière intervention21 juillet 2009 10 juil. 2009 à 08:38
Je répond tous seul^^
Private Sub Commande0_Click()
Dim db As Database
Dim rs As Recordset
Dim i, j As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("select id,lib from T_id")
i = 1
rs.MoveFirst
While Not rs.EOF
Me("texte" & i) = rs![lib] '<-- Voila c'est ici , c'etait tt simple!!
rs.MoveNext
i = i + 1
Wend
rs.Close
db.Close
End Sub