Discussion :

[RootsInternationnal]

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 non^^ sniff

[Access Newbie]

Bonjour,

Et en essayant comme cela :

Code :

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

("champ"  & i)

PS : le tant que c'est do while. et le fin tant que c'est loop.
Ce serait plus simple de mettre le vrai code vba.
Et ce serait sympa de mettre les balises de code quand il y en a besoin.

[RootsInternationnal]

Meci de ta reponse, mais je sais faire un boucle tant que ^ Je voulais juste montrer un exemple.
Quelqu'un de mon service m'a donné la réponse.
J'ai 4 texte_box nommé texte1,text2,texte3 et texte4.

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
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] '<-C'est ici que ce fait lincrèmentation du '                                                'numero de la texte_Box
            rs.MoveNext
            i = i + 1
        Wend
    rs.Close
    db.Close
End Sub

J'espère que cela pourra servir à quelqu'un.