Bonjour,

je fais une application sous access, et j'ai un formulaire qui m'affiche beaucoup d'informations. Une partie de ces info sont tirées d'une requete.

Cette requete me renvoie entre autre des noms et prénoms que je voudrais afficher dans des labels pour aprés leur mettre une case à cocher à coté... Ce sotn ces label que je veux créer via le code parce que je ne connais pas leur nombre et leur contenu.

j'ai écrit ce petit bout de code :
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
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub combOp_Change()
Dim con As New ADODB.Connection
Dim command As New ADODB.command
Dim rst As New ADODB.Recordset
Dim i As Integer
Dim ctl(1 To 100) As Controls
 
Me.IdBat = Me.combOp
 
DoCmd.OpenForm Me.Name, acDesign, , , , acHidden
 
Set con = CurrentProject.Connection
Set command.ActiveConnection = con
command.CommandType = adCmdText
command.CommandText = "SELECT Requête3.IdBat, Requête3.Operation, Personne.Nom, Personne.Prenom, Personne.Entite, " & _
"Personne.RaisonSociale, Personne.IdPersonne, Personne.IdLot, Personne.Présent " & _
"FROM Requête3 LEFT JOIN Personne ON Requête3.IdPersonne = Personne.IdPersonne WHERE Requête3.IdBat = " & Me.IdBat
 
Set rst = command.Execute
i = 1
Do While Not rst.EOF
Set ctl(i) = CreateControl(Me.Name, acLabel, , , , 1, 10.5)
Set ctl(i).Item(0) = rst(2) & " " & rst(3)
i = i + 1
rst.MoveNext
Loop
 
rst.Close
con.Close
Mais sur cette ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
DoCmd.OpenForm Me.Name, acDesign, , , , acHidden
il me dit "Impossible de passer à un autre mode pour le moment"

Et du coup je sais pas quoi faire parce que je suis obligée de mettre le form en mode création pour ajouter mes controles.

Vous en pensez quoi ???
Merci d'avance