Discussion :

[Pharmacos]

Bonsoir à tous !

Dans un formulaire j'ai mis un groupe d'option pour séparer mes champs en catégories.

Existe t il un composant permettant de classer mes champs et d'en contrôler la valeur.

Par exemple en fonction de qui se log, je pourrais valider ou non la visibilité du groupe (contenant un ensemble de champs) ??


En espérant avoir été clair,
Pharmacos

[Pharmacos]

Je viens de vérifier : sous delphi, (programmation Pascal) ça s'appelle un GroupBox

[timoth]

J'imagine que ça doit être possible.

En fonction des valeurs de ton groupe d'option, tu filtres les enregistements de ton formulaire.

Code :

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

1
2
Me.filter "categorie='" & option_group.value & "'"
Me.FilterOn=True

Voir dans l'aide pour le détail.

Sinon, pour que certains utilisateurs aient accès à certains groupes d'information, il faut cacher les options concernées.
Pour ce qui est de détecter à quel groupe appartient l'utilisateur, réfère-toi au tutorial de C. Warin sur les méthodes DAO. Tout est dedans!

Bon courage!!

[Pharmacos]

Salut timoth !

En fait il s'agit d'une application access la plus simple possible : la gestion des utilisateurs se fait par une requete...

Donc rien de complique et au lieu de rendre invisible 5 ou 6 champs j'aimerais que ces champs appartiennent à un groupe.
Groupe que j'aurais juste à rendre invisible

Merci

[FreeAccess]

Bonjour,

Dans un formulaire j'ai mis un groupe d'option pour séparer mes champs en catégories

...sauf erreur, mais un contrôle "Groupe d'options" ne prends pas en charge des contrôles Zones de texte.............donc on ne peut gérer ceux-ci comme des Cases d'options...

Par contre....

...au lieu de rendre invisible 5 ou 6 champs j'aimerais que ces champs appartiennent à un groupe. Groupe que j'aurais juste à rendre invisible

....ici, la notion de groupe va être effectuer sur une propriété commune de tes champs.....

Possibilité:..(...liste non exhaustive..)

-1) Nomme tous les champs devant appartenir à un "groupe" avec le même préfixe (txtR_nom, txtR_prenom,........txtS_rue, txtS_code.....)....et tu utilise ces préfixes dans ton code...:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim ctrl As Control
For Each ctrl In Me.Controls
'Ici, pour chaque contrôle commencant par "txtR"....
    If Left (ctrl.Name,4) = "txtR" Then
'...je rends ces contôles invisibles
        ctrl.Visible = False
    Else
'....et je remets à visible tous les autres
        ctrl.Visible = True
    End If
Next

-2) Si tu ne souhaite pas renommer tous tes champs, alors utilise la propriété Tag (Remarque) de chaque contrôle...et change le code comme suit..:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim ctrl As Control
For Each ctrl In Me.Controls
'Ici, pour chaque contrôle dont propriété Tag = 1....
    If ctrl.Tag = "1" Then
'...je rends ces contôles invisibles
        ctrl.Visible = False
    Else
'....et je remets à visible tous les autres
        ctrl.Visible = True
    End If
Next

....voila, tu n'as plus qu'a adapter à ton application.....

[Pharmacos]

Salut FreeAccess !

Ta deuxième solution me plait bien
Je vais voir ce que ça donne !

Merci pour ton aide
Pharmacos