[Toutes versions] Controle en mode tabulaire indépendant

[Bentiti]

Bonsoir !

Mes contrôles (text box) sont en mode tabulaire. Le source contrôle de mes contrôles sont indépendante.

Quand j’exécute mon code, je pensais avoir autant de textbox que de résultats. Mais c'est pas le cas...

Le 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
 
Private Sub Commande10_Click()
 
    ' Déclaration de la connexion ADO sur le projet actuel
    Dim connexion As ADODB.Connection
    Set connexion = New ADODB.Connection
    Set connexion = CurrentProject.Connection
    Dim rs As New ADODB.Recordset
 
    Dim numpos As Long
    Dim matricule As Long
    numpos = 0
    matricule = Forms.FRM_Agents.TB_Matricule
 
    rs.Open "SELECT numpos FROM Pobudec WHERE numagt = " & matricule & "", connexion, adOpenDynamic, adLockOptimistic
    While Not (rs.EOF)
        If (numpos <> rs.Fields("numpos")) Then
            Me.TB_rémun = rs.Fields("numpos")
        End If
        numpos = rs.Fields("numpos")
        rs.MoveNext
    Wend
 
End Sub

Ma question est donc : Comment avoir autant de TextBox que de résultat ?

Si j'ai pas été assez claire hésitez pas à poser des questions.

Merci d'avance !

[Philippe JOCHMANS]

Bonjour

Comment est conçu ton formulaire ?

Si tu veux afficher plusieurs résultats, tu peux par exemple te passer de ton recordset et mettre ta requête SQL en source d'une zone de liste.

Philippe