Discussion :

[Syrrus]

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

[Invité]

Bonjour

Il faut que tu mettes ton formulaire en mode création d'autre part, ainsi que les create contrôles (un autre formulaire ou un module).

Ce code ne peut fonctionner sur lui-même.

Starec

[Syrrus]

Merci pour la réponse

Mon probleme est que ce code doit se déclencher avec l'évenement "change" d'une zone de liste déroulante qui appartient elle même au formulaire.

Si je passe par un module le pb est le mm non ? Imaginons que l'évenement "change" appelle la fonction "creationLabel" qui est dans un module, ça va marcher ??

De toute façon je vais essayer

[Syrrus]

Bon ben c'est bien ce que je pensais, il me met encore la même erreur sur cette ligne :

Code :

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

DoCmd.OpenForm "SaisieRe", acDesign, , , , acHidden

Si ce code ne peut pas s'appliquer sur le formuliare lui meme je fais comment ?

[Invité]

Re

Essaye sur le code qui est sur ton module de fermer le forumulaire (DoCmd.Close) et ensuite de l'ouvrir en mode design.



Je viens de relire ton premier message.

Pourquoi n'affiches tu pas tes éléments dans un sous-formulaire lié à une table vide avec un champ texte et un champ oui/non.

Lors de ton change tu remplis cette table, et tu fais ensuite un requery (pour faire la mise à jour sur ce sous-formulaire).

Starec

[Syrrus]

He bien cher Starec si je ne fais pas :

Pourquoi n'affiches tu pas tes éléments dans un sous-formulaire lié à une table vide avec un champ texte et un champ oui/non.

c'est pour la simple et bonne raison que je n'y avais pas pensé

Ca me semble plus propre de passer par le code que de rajouter une table dans la base mais bon c'est vrai que ça serait plus simple.
J'aurais bien aimé savoir créer des controles avec du code qd mm, mais bon j'ai encore fait des modif et j'ai encore une erreur.
Cette fais je suis partie sur le fait de créer les label dans un sousformulaire du formulaire mais ça bloque ici :

Code :

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

et ctl(i) = rst(2).Value & " " & rst(3).Value

Je vais pas tarder à passer au plan B (table vide...)