Discussion :

[oOXimOo]

Bonjour,

J'essaie de créer des objets de type Ligne dynamiquement, pour cela je me suis basé sur le forum suivant :
cr-ation-dynamique-contr-sous-access-2003-a/

Mais même après voir suivi le forum jusqu'au bout je me retrouve avec le même message d'erreur :
"...., ne peut pas ajouter supprimer, ou renommer les controls sélectionnés"
Je pense que le fait que le forum précédent parle d'Access 2003 et que j'utilise Access 2007 peut jouer mais je ne trouve pas la solution.
En attendant, voici mon 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
Dim trait02 As Line
Dim posY As Integer
Dim nomForm As String
Dim i As Integer
nomForm = "FicheHoraire"
i = 1
DoCmd.OpenForm nomForm, acDesign
While i < nbLignes
    posY = 251 + (nbLignes * 400)
    Set trait02 = Access.CreateControl(nomForm, acLine, acDetail, , , 40, posY, 0, 1849)
    i = i + 1
Wend
DoCmd.Close acForm, nomForm, acSaveYes
DoCmd.OpenForm nomForm, acNormal

La ligne qui pose problème est celle qui commence par "Set trait02".

Pouvez-vous m'aider ?

[FreeAccess]

Bonjour,

Juste un retour d'info.....

Ce code fonctionne parfaitement sous ACC 2007...

Par contre, dans ton code à quoi est égale ta variable nbLignes....

[oOXimOo]

Ma variable est définie ainsi :

Code :

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

1
2
3
4
5
Set oRst = oDb.OpenRecordset(SQL, dbOpenSnapshot)
oRst.MoveLast
nbLignes = oRst.RecordCount
oRst.MoveFirst
'   MsgBox nbLignes >> Affiche 5

Cette variable indique le nombre de lignes à tracer.

Comment se fait-il que mon code ne fonctionne pas si chez toi il tourne à merveille ?

[oOXimOo]

Personne pour me donner un petit coup de pouce ? Le problème n'est toujours pas résolu et je reste coincé au même stade.

[FreeAccess]

Bonjour,

Généralement quand je suis face à un problème dont je n'arrive pas à trouver l'origine....alors je procède par étape..

-Crée un nouveau formulaire à partir duquel tu va "lancer" la création de tes contrôles sur ton formulaire "FicheHoraire"

-Modifie ton code de façon à initialiser directement ta variable [nbLignes]..

Code :

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

1
2
3
4
Dim nbLignes AS Integer
nbLignes = 5
.....
.....

..et regarde ce qui ce passe. As-tu un message d'erreur Un ou des contrôles sont-ils bien créés