Affichage formulaire valeur de code VBA

[overlolo]

Bonjour,
Dans mon code VBA je récupère plusieurs chaines de caractères (sAction_Plan) voici 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
25
26
27
28
29
30
31
Private Sub Begin_Click()
Dim db As DAO.Database
Dim myrst As DAO.Recordset
Dim myact As DAO.Recordset
Dim sRep As Integer
Dim sAction_Plan As String
 
 Set db = CurrentDb
 maTable = "Req_Audit_Question_Reponse"
 sSQL = "SELECT Ch_Char_Response FROM " & maTable & " WHERE [Ch_Char_Response] <= 2 AND [Chapitre] = '2'"
 aSQL = "SELECT Action_Plan_Quest FROM " & maTable & " WHERE [Ch_Char_Response] <= 2 AND [Chapitre] = '2'"
 
 Set myrst = db.OpenRecordset(sSQL)
 Set myact = db.OpenRecordset(aSQL)
 
'si le recordset n'est pas vide
 If Not myrst.EOF Then
     ' tant qu'il n'est pas vide
     Do While Not myrst.EOF
          'sAction_Plan récupère une chaine de caractère correspondant au plan d'action
          sAction_Plan = myact.Fields("Action_Plan_Quest").Value
          myrst.MoveNext
          myact.MoveNext
    Loop
End If
 
myrst.Close
Set myrst = Nothing
db.Close
 
End Sub

Tout le code fonctionne correctement et ceci s'exécute à partir d'un bouton présent dans le formulaire. J'aimerai maintenant qu'en appuyant sur le bouton ça m'affiche toutes ces chaines de caractères dans l'ordre et d'un seul coups dans le formulaire. Comment je pourrai faire ça? Car j'arrive à les afficher mais simplement avec un MsgBox... Merci

[Philippe JOCHMANS]

Bonjour

Pourquoi ne pas mettre tes chaines SQL comme sources de sous-formulaires pour avoir toutes tes informations les unes derrières les autres ?

Sinon tu pourrais lire cela : Affichage de données dans des Labels, Zones de texte ou MsgBox.

Philippe

[overlolo]

Je n'ai pas compris la réponse...