Discussion :

[Tifriis]

Bonjour à tous,

je recherche le code VBA pour créer une checkbox.
J'ai cherché dans l'aide d'Access, mais je n'ai vu aucune commande satisfaisante.

Merci d'avance pour votre aide,

Tifriis

[ClaudeLELOUP]

Bonjour,

même ici ?
http://access.developpez.com/faq/?pa...reeDynCtrlCode

[Tifriis]

Bonjour ClaudeLELOUP,

merci pour ton lien qui m'a été d'une aide très précieuse. Cependant (comme souvent ...), j'ai un problème lorsque j'adapte le code que j'ai trouvé.

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
15
16
17
18
19
20
21
22
23
DoCmd.OpenForm "Indicateurs_choisis", acDesign
 
Dim MyControl As Control
Dim i As Integer
 
For i = 0 To 10
Set MyControl = CreateControl("Indicateurs_choisis", acCheckBox, , , , 1200, 1000 + i * 1000, 6300, 500)
Set MyControl = CreateControl("Indicateurs_choisis", acLabel, , , , 1500, 1000 + i * 1000, 5000, 500)
Next
 
Dim Rs As DAO.Recordset
Dim tableau(100) As String
i = 1
 
Set Rs = CurrentDb.OpenRecordset("IndicateursChoisis_Query")
 
While Not Rs.EOF
    tableau(i) = Rs(0)
    i = i + 1
    Me.Controls("Label" & i).Caption = tableau(i)
    Rs.MoveNext
Wend
Set Rs = Nothing

Access me renvoie l'erreur suivante lors de l'exécution du code :

Microsoft Office Access can't add, rename or delete the control(s) you requested

Cependant, j'ai essayé le même code sur un formulaire que je créé, et cela fonctionnait. Mon problème vient donc du fait d'ajouter des Controls sur mon formulaire "Indicateurs_choisis" existant (je l'ouvre pourtant en mode création).


Merci d'avance pour votre aide,

Tifriis

[ClaudeLELOUP]

Sérions les problèmes

le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub tst()
DoCmd.OpenForm "Indicateurs_choisis", acDesign
 
Dim MyControl As Control
Dim i As Integer
 
For i = 0 To 10
Set MyControl = CreateControl("Indicateurs_choisis", acCheckBox, , , , 1200, 1000 + i * 1000, 6300, 500)
Set MyControl = CreateControl("Indicateurs_choisis", acLabel, , , , 1500, 1000 + i * 1000, 5000, 500)
Next
End Sub

t'ajoute 10 cases à cocher et 10 étiquettes dans ton formulaire.

C'est ça que tu veux ?

[Tifriis]

Effectivement, c'est ce que je recherche à créer dans mon formulaire

[ClaudeLELOUP]

et bien c'est fait !

à quoi correspond ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Rs As DAO.Recordset
Dim tableau(100) As String
i = 1
 
Set Rs = CurrentDb.OpenRecordset("IndicateursChoisis_Query")
 
While Not Rs.EOF
tableau(i) = Rs(0)
i = i + 1
Me.Controls("Label" & i).Caption = tableau(i)
Rs.MoveNext
Wend
Set Rs = Nothing

ça n'a rien à voir ici.

[ilank]

Bonjour,
quel est le but ? Obtenir une liste de cases à cocher ?

[Tifriis]

Bonjour,

en fait, le but est d'afficher les résultats d'une requête (IndicateursChoisis_Query) sous forme de Checkbox.

Le code suivant seul ne marche pas dans mon cas :

Code :

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

1
2
3
4
5
6
7
8
9
DoCmd.OpenForm "Indicateurs_choisis", acDesign
 
Dim MyControl As Control
Dim i As Integer
 
For i = 0 To 10
Set MyControl = CreateControl("Indicateurs_choisis", acCheckBox, , , , 1200, 1000 + i * 1000, 6300, 500)
Set MyControl = CreateControl("Indicateurs_choisis", acLabel, , , , 1500, 1000 + i * 1000, 5000, 500)
Next

Si vous avez d'autres questions, n'hésitez pas. Merci encore.