[VBA Access 97] Création de collections possible ?

Bonjour à tous,

J'ai une petite question :

est-il possible, avec access 97 de pouvoir créer ses propres collections et donc les manipuler suivant les besoins??

En réalité, j'ai un formulaire avec énormément de zones de textes et de cases à cocher (pas moyen de réduire, besoin de l'utilisateur) et j'aimerais effectuer des manipulation sur ses zones de textes et cases à cocher afin de pouvoir limiter les saisies et donc les erreurs, je pense que faire des collections est approprié mais je n'ai trouvé aucune aide sur ce sujet sur aucun site au forum

Pouvez-vous m'éclairer SVP

:arf:

Merci d'avance à tous

Tu as deja Me.Controls qui contient tous les controles de ton formulaire

tu peux faire par exemple :

Code:

---

1 2 3 4

For i = 0 To Me.Controls.Count Me.Controls.Item(i).Locked = True Next i

---

ca va verouiller tous les controles

tu peux aussi utiliser for each

Code:

---

1 2 3 4

For Each ctl In Me.Controls ctl.Locked = True Next ctl

---

avec ca tu peux acceder a toutes les propriétés des controles, dont le nom qui te permettra d'effectuer tel traitement plutot qu'un autre

genre

Code:

---

1 2 3 4

If Left(ctl.Name, 5)="texte" Then 'si c'est une zone de texte 'traitement pour les zone de texte End If

---

voila si ca peut t'aider :)

Merci Shoryu pour ton aide

Avec sa je pense pouvoir faire quelque chose je verrais cet après midi et te dirais si sa m'a aidé

donc on ne peut pas créer de collection personnalisées sous access c'est sa? il faut se débrouiller avec ce qui existe quoi...

Merci en tout cas

Re,

Il y a une piste mais ce n'est pas encore sa.

je développe plus mon sujet :

J'ai plusieurs zones de texte, zones de listes et des cases à cocher.

Je veux créer une sorte de lien entre mes zones de listes et mes cases cocher de tel sorte que lorsqu'une certaine valeure est séléctionnée dans ma liste, ma case est visible ou non. il y en a 35 de chaque, je sais le faire une par une mais sa va être du code à rallonge, une collection serais plus rapide si c'est faisable...

J'éspère être assez claire

Merci par avance

a part ca :
en jouant sur les noms des controles c'est possible
si par exemple t'as ca

liste31
case31

liste32
case32

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim trouve as boolean Dim i as Integer trouve = false   For Each ctl In Me.Controls If left(ctl.Name,1)="l" Then 'si le nom du controle commence par un l 'verif de la valeur 'if ctl.value= ce_que_tu_veux then i=0 trouve=false while(trouve=false) if left(Controls.Item(i).Name,1)="c" and right(Controls.Item(i).name,2)=right(ctl.name,2) then 'si c'est une case et que c le meme numero Controls.Item(i).visible = true ' or false trouve=true end if i=i+1; wend 'end if End if Next ctl

---

c'est bourrin mais ca devrait faire l'affaire

edit : j'ai modifié le code un peu car ca bouclait pour rien

Deux cas possibles :

:arrow: Leur donner des noms similaires (caseDate, lstDate). Ainsi en cliquant sur caseDate tu peux associer lstDate.

:arrow: La propriété Remarque (Tag en VBA) permet de d'inscrire n'importe quelle valeur utile. Tu peux ainsi par exemple y inscrire des numéros de groupe. Case1 avec liste1 auraient le tag 1, case2 et liste2 le 2 etc.

ta réponse Shoryu me parait juste, certe un peu longue mais juste, je vais essayer tout de suite.
Pour la réponse de Tofalu, l'histoire des tag me paraît pas mal du tout, mais comment les utiliser? je ne les ai jamais vu avant, je ne sais pas comment m'y prendre dsl... Mais cette solution me paraît mieux encore

Merci a vous deux

Tag est uniquement une propriété du contrôle et est manipulable en VBA par :

Code:

---

MonControle.Tag

---

Tout comme tu référencerais n'importe quelle autre propriété :P

Ok OK, je viens d'essayer, effectivement, facile comme bonjours!! :oops:

Mais comment gérer ces différents tag dans une boucle itérative (For...Next) afin de pouvoir jouer sur la propriété visible de la case?

Dans ta boucle tu parcours tous les contrôles (for each) et avec un if tu vérifies si le tag est le bon ou pas ;)

Ok Merci pour toutes les infos tofalu

Une dernière petite question ne rigolez pas... : Sur quel événement de formulaire je peux coder tout cela, car rien ne me semble approprié

:oops:

Merci beaucoup

Tout dépend du comportement souhaité.

Apparement tu vas écrire une procédure générique qui s'occupera d'afficher / masquer en fonction du controle courant

Bien entendu, cette procédure devra être appelée par chaque contrôle qui devra lever l'évènement.


Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Cocher11_Click() AfficherMasquer End Sub   Private Sub Cocher9_Click() AfficherMasquer End Sub   Sub AfficherMasquer() Dim oCSource As Control Dim oCtemp As Control   'Récupère le controle actif Set oCSource = Application.Screen.ActiveControl 'Boucle sur tous les controles et gère leur affichage For Each oCtemp In Me.Controls If oCtemp.Tag = oCSource.Tag And Not oCtemp Is oCSource Then oCtemp.Visible = oCSource.Value End If Next End Sub

---

Eh bien, ça me convient parfaitement tout cela!! Un grand merci pour ton aide Tofalu, je vais pouvoir bien avancer sur mon projet, car cette fonction va m'être utile plusieurs fois dans mon application
Merci Merci Merci :mrgreen:

bonjours

J'ai un petit problème avec mon code

J'ai repris l'éxemple fourni par Tofalu et j'y ai rajouter mes besoins :

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

Sub AfficherMasquer()   Dim oCSource As Control Dim oCtemp As Control   'Récupère le contôle actif Set oCSource = Application.Screen.ActiveControl 'Vérifie la valeur de la séléction dans la zone If oCSource.Value = "Tôlerie / Montage" Or oCSource.Value = "Peinture" Or oCSource.Value = "CN / Laser" Then 'Boucle sur tout les contrôles et gère leurs affichage For Each oCtemp In Me.Controls If oCtemp.Tag = oCSource.Tag And Not oCtemp Is oCSource Then oCtemp.Visible = oCSource.Visible End If Next Else For Each oCtemp In Me.Controls If oCtemp.Tag = oCSource.Tag And Not oCtemp Is oCSource Then oCtemp.Visible = False End If Next End If End Sub

---

Par contre, dans ma dernière boucle Si, je n'arrive pas à dire qu'il faut mettre la propritété visible du contrôle du même tag que mon contrôle courant à faux sauf mon contôle courant... , ce sauf m'embête un peu :?

Merci a vous

Re,
Je viens de trouver un autre problème, le code pour rendre visible la case à cocher du même tag marche, mais que pour la zone de liste 1, pas pour les autres, alors que l'appel de la procédure est bien faite sur chaque click sur la zone de liste.
Je ne vois pas d'où le problème viens..
:cry:
Merci d'avance

Les évènements sont les clics des cases à cocher et non des zones de liste normalement

:oops: :oops:

Oui c'est vrai, je n'ai pas fait attention à ça...

:oops: :oops:

Mais alors quel événement mettre pour que l'action se fait sur la zone de liste??...

Et avez-vous une solution à mon premier problème (le SAUF)

Merci d'avance

C'est bon, j'ai résolu le problème de l'événement, j'ai mis, sur perte focus...
certe c'est un peut ennuyant de cliquer sur un autre contrôle pour que l'événement se déclanche mais je ne vois que sa qui puisse faire l'affaire...

Par contre le premier problème reste entier...

Merci