Création automatique d'un GroupBox contenant des CheckBox

Version imprimable

08/06/2010, 19h02
andy331

Création automatique d'un GroupBox contenant des CheckBox

Bonjour,

Voila j'ai une Table Option dans ma base de donnée et cette table possède toutes les options que peuvent avoir les véhicules cependant je voudrais les ressortir en forme de CheckBox tous les option contenus dans ma base le tout dans un Groupbox comme ça il me sera facile de sélections juste les options que va avoir le véhicule que j'ajouterais dans ma base de donnée

Je vous remercie de votre aide!!!!! :cry::cry::cry::cry:

Citation:

La hâte engendre en tout l'erreur, et de l'erreur sort bien souvent le désastre

:ccool::ccool:
08/06/2010, 21h50
marot_r

Peux-tu mettre la structure de ta table Option ?

A+
09/06/2010, 15h56
andy331

opti_num opti_libelle
1 Pare-brise chauffant
2 Jantes alliage
3 Retroviseur exterieur electrique
4 Toit ouvrant electrique
5 Peinture integrale
6 Retros rabattables
7 Sieges chauffants
8 Sieges electriques memoire
9 Volant multifonctions
10 Volant reglable
11 Telephone fixe
12 ABS
13 Airbags frontaux + lateraux
14 Detecteur de pluie
15 ESP
16 Feux automatiques
17 Aide parking avant / arrière
18 6 CD avec Chargeur
19 Climatisation multi zone
20 Direction assistee servotronic
21 Fermeture elec. automatique
22 GPS couleur
23 Ordinateur de bord
24 Radio commande au volant
25 Systeme de navigation
26 Boite automatique
27 Frein parking automatique
28 ASR

Citation:

La hâte engendre en tout l'erreur, et de l'erreur sort bien souvent le désastre
09/06/2010, 19h12
marot_r

Ok, c'est ce que je pensais.

La solution traditionnelle est de faire une table d'association qui donne pour chaque véhicule ses options. Un truc du genre :

ClefVehicule
ClefOption

Avec une ligne pour chaque option mais toi ce que tu veux c'est une série de case à cocher.

Tu peux procéder de diverses manières :

1) Une brutale qui consiste à faire un formulaire de saisie indépendant et y afficher une case par option. Si ton nombre d'option est constant c'est une solution simple mais un peu fastidieux. Avec un peu de VBA tu peux transférer ta saisie dans la table d'association.

2) Autre solution plus "douce" consisterai à ajouter lorsque tu crées un nouveau véhicule TOUTES les options à ta table d'association. Cela donnerai un truc du genre :

ClefVéhicule, ClefOption
V1,1,CaseACocher
V1,2,CaseACocher
.
.
V1,28,CaseACocher.

Puis de cocher celle que tu veux.

3) autre solution, un mixe des deux : passer par une table intermédiaire de saisie des cases à cocher puis d'enregistrer seulement celles cochées dans la table d'association.

4) et ultime solution : comme tu es en Access 2007 tu pourrais aussi regarder les champs muti-valués qui te permettent de stocker une liste de valeur dans un seul champ. C'est une "hérésie" en matière de modélisation mais cela est parfois pratique. Tu pourrais utiliser une liste à sélection multiple au lieu de case à cocher.

Personnelement j'opterai pour la 2ième qui est la plus simple à mettre en oeuvre.

Si tu as besoin de détails, n'hésites pas à demander.

A+
09/06/2010, 22h38
andy331

Oui j'ai pas oublié de créer la table d'association (POSSEDER) qui récupère les deux clé première de table voiture et de table option

J'ai déjà pensé à l'option 4 mais elle plait pas du tout..

En fait c'est option deux que je voulais c'est pour ça je que je viens demander de l'aide car je sais pas du tout comment faire cela!!

Ton aide ne sera pas de refus merci de ta part!!

:aie::aie::aie:

Citation:

La hâte engendre en tout l'erreur, et de l'erreur sort bien souvent le désastre

:aie::aie::aie:

Bonjour

En fait, il s'agit juste d'ajouter des enregistrements à la table d'association.
Je n'ai pas accès à un script précis, mais voici une piste

A mettre sur le click d'un bouton "Valider" par exemple.
Code:

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 cmd_Valider_Click() Dim sql as string if chk_01 = -1 then ' si la boîte est cochée sql = "INSERT INTO tPOSSEDER (Voiture_Ref, Option_Ref) SELECT " & me.controleVoiture_Ref & "," & me.chk_01 & ";" ' expression dans laquelle tPOSSEDER est le nom 'de votre table association, 'Voiture_TRef / Option_Ref les champ de votre table assocaition, 'me.controleVoiture_Ref la valeur du contrôle contenant 'la référence de la voiture pour laquelle on indique les option, 'et chk_01 la case option traitée ' On supprimer les alertes DoCmd.SetWarning = False ' Ensuite on faire tourner l'instruction SQL DoCmd.RunSQL sql 'on remet les alertes DoCmd.SetWarning = True 'Ne pas oublier de remettre à zéro la chaine sql sql = "" end if end sub
PS : je le fais de tête, et je me souviens que j'ai toujours galéré pour trouver la bonne syntaxe. Dans la matinée, j'essaierai de poster un code qui fonctionne .

Pierre

Merci Pierre.

andy331 dans un formulaire tu peux détecter la création d'un enregistrement donc tu peux exécuter du code à ce moment.

Tu pourrais utiliser la méthode de pier.antoine en faisant une requête d'insertion, personnellement je préfére le VBA donc voici une possibilité.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
dim db as dao.database:set db=currentdb
dim rOption as dao.recordset:set rOption = db.OpenRecorset("NomTableOption")
dim rAssociation as dao.recordset:set rAssociation = rAssociation("NomTableAssociationVoitureOption")
 
do while not rOption.eof
 
   with rAssociation
      .addnew
      ![ClefVoiture]=me.ClefVoiture
      ![ClefOption]=rOption![ClefOption]
      ![EstChoisie]=false
      .upate
   end with
 
   rOption.movenext
loop
rAssociation.clsoe:set rAssociation=nothing
rOption.close:set rOption=nothing
db.close:set db=nothing
 
me.recalc :'Force le rafraichissement de l'écran

11/06/2010, 04h32
pier.antoine

Merci Marot,

Dao me semble toujours très simple sur le papier, mais j'ai un mal fou à m'y mettre.

Pierre
11/06/2010, 22h04
marot_r

Même chose pour moi avec SQL :-).

A+

Bonjour,

il est possible de simuler un groupbox avec un sous-formulaire en mode Continu. Le sous-formulaire contient une checkbox sans label et une textbox sans label également. La textbox affichera les libellés des options, la checkbox
l'état de la relation voiture<=>option de la table Posseder.
La Textbox a les propriétés :
Activé : non
Bloqué : oui
Source : opti_libelle
La CheckBox :
Source : Checked
Sur souris relâchée : Procédure événementielle

Le sous-formulaire aura pour source une requête ressemblant à ceci :
Pour simplifier, je crée une nouvelle requête et la nomme pour l'exemple Rqt_Posseder.
Code:

1 2 3 4 SELECT A.opti_num,A.voiture_num,Opti_Libelle, COUNT(Posseder.Opti_num) as Checked FROM (SELECT opti_num,voiture_num,opti_libelle FROM voitures,options) as A LEFT JOIN Posseder ON Posseder.opti_num=A.opti_num AND Posseder.voiture_num=A.voiture_num GROUP BY A.opti_num,A.voiture_num,Opti_libelle;
Cette requête ne permettant pas de mettre à jour la table posseder; il faut passer par du code VBA sur un événement de la checkbox.
L'événement Click ne sera pas propagé à cause je pense de l'impossibilité de mise à jour de la requête; en revanche l'événement qui le précède OnMouseUp est exploitable.
Code:

1 2 3 4 5 6 7 8 Private sub CheckBox_MouseUp(.....) If CheckBox.Value=False Then currentdb.execute " INSERT INTO Posseder (opti_num,voiture_num) VALUES (" & [voiture_num] & ", " & [opti_num] & ")" Else currentdb.execute "DELETE FROM Posseder WHERE opti_num=" & [opti_num] & " AND voitutre_num=" & [voiture_num] End if Me.Requery End Sub
Maintenant, il suffit de placer ce formulaire dans le formulaire des voitures.
Affecter les propriétés Champs père et Champs fils, de manière à lier les formulaires.
Le seul problème inesthétique, est que le contenu du formulaire disparait quand on se place sur un nouvel enregistrement de la table voiture, il réapparaît dès lors que le nouvel enregistrement est rempli. Pour y remédier on peut utiliser les événements Sur Activation,Avant Insertion et Après Insertion du formulaire des voitures :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Form_AfterInsert() reload true End sub Private Sub Form_BeforeInsert(Cancel as Boolean) SousFormPosseder.Enabled=true End sub Private Sub Form_Current() reload (CurrentRecord<=Recordset.RecordCount) End sub Private Sub reload(value As Boolean) SousFormPosseder.Form.RecordSource = iif(value=true,"Rqt_Posseder","SELECT opti_num," & CurrentRecord & " as voiture_num,opti_libelle,0 as Checked FROM options") SousFormPosseder.LinkChildFields = iif(value=true,"voiture_num","") SousFormPosseder.LinkMasterFields = iif(value=true,"voiture_num","") SousFormPosseder.Enabled = value End Sub