Discussion :

[freeman3869]

Bonjour,

J'essaye de créer des cases à cocher pour chaque enregistrement d'une table avec du vba. Par exemple, j'ai la table T1. Dans le champ champ1, j'ai comme enregistrement : 1, 2, 3, 4, 5 (les enregistrements sont du texte) .
J'aimerai ajouter, à l'ouverture d'un formulaire (form1), des cases à cocher pour chaque enregistrement de la table.

J'ai cherché partout sur internet mais je n'ai pas trouvé de solutions.

[marot_r]

Bonjour.

Tu peux modifier la structure d'une table par VBA mais c'est assez complexe et lourd.

Une solution plus simple est de copier les données voulues dans une table qui elle-même contient un champ booléen ou de simplement ajouter un champ booléen à ta table source.
Dans le cas du champ dans la table source, il suffit de le pas l'afficher quand tu n'en as pas besoin.

Attention si tu es environnement multi-utilisateur. Selon ce à quoi sert le champs cela peut poser un problème si tu as besoin que le cochage dépende de l'utilisateur.
Dans ce cas il faut faire une table à côté qui va enregistrer la sélection :

tblSelection
ClefSelection
CodeUsager
ClefDonneeSelectionne

Une alternative à tout cela est d'utiliser une liste avec sélection multiple.

A+

[Didier L]

Bonsoir,

Tu veux créer des case à cocher dans ta table et modifier sa structure comme le propose marot_r ou tu veux modifier un formulaire afin de créer dynamiquement autant de case à cocher que tu as de champs dans ta table ?
Dans le cas ou tu voudrait travailler dans ton formulaire, tu ne peux pas créer des controls dynamiquement une fois que ce dernier est ouvert!
Tu dois l'ouvrir d'abords en mode création, modifier sa structure, l'enregistrer et ensuite l'ouvrir en mode normal

[freeman3869]

Bonjour.
Merci de vos réponses. Finalement, on a pu trouver une solution avec un ami.
Je la mets ici au cas où ça aiderai d'autres personnes :

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
30
Public Sub cible_coche()
    DoCmd.OpenForm "ssform_Liste", acDesign
 
    Dim case_a_cocher, libelle As Control
    Dim i As Integer
 
    Dim nb
    nb = CurrentDb.OpenRecordset("select count(*) FROM Liste").Fields(0).Value
 
    Dim recordset
 
    For i = 1 To nb
 
        recordset = CurrentDb.OpenRecordset("SELECT * FROM Liste WHERE Ordre_affichage=" & i)
        'création de la zone de texte
        Set libelle = CreateControl("ssform_Liste", acLabel, , , , , , 2000, 250)
        libelle.Top = 200
        libelle.Left = 2000 * (i - 1) + 500
        libelle.Caption = recordset(1).Value
        libelle.TextAlign = 20  ' à modifier pour centrer + renvoi à la ligne
 
        'création de la coche
        Set case_a_cocher = CreateControl("ssform_Liste", acCheckBox, , "Nom_Table_associee", , , , 250, 250)
        case_a_cocher.Top = 700
        case_a_cocher.Left = 2000 * (i - 1) + 500 + 2000 / 2
        case_a_cocher.Name = recordset(2).Value
 
    Next
 
End Sub

ps: comment on fait pour coller le code avec l'affichage du vba ? ^^