[Access 2000] griser un sous formulaire tant que champ vide SANS VB

**debdev** · 18/06/2008, 15h56

Bonjour,

Alors, j'ai déjà regardé sur le forum et aussi sur internet. Comme je n'ai pas trouvé ma solution, je fais appel à vous.

J'ai un formulaire A avec un menu déroulant X.
J'ai un sous formulaire B avec plusieurs champs à saisir.
Le formulaire A est lié au sous formulaire B par un identifiant commun (ça marche).

Ma question est:
Comment griser le sous formulaire B tant que le menu déroulant X du formulaire A est vide ? et le dégriser dès que le menu déroulant n'est plus vide ?

Remarques:
1. le menu déroulant X est le premier champ du formulaire donc l'utilisateur n'a cliqué nulle part ailleurs avant
2. je n'y connais rien en VB donc si c'est possible de pas avoir à s'en servir, ça m'arrangerait (car j'ai testé des copier coller à droite à gauche de code avec enable = true)

Merci de votre aide.

**wooop** · 18/06/2008, 16h00

Le soucis c'est que tu vas avoir besoin de codes pour résoudre ton problème...

Personnellement, je ne sais pas comment griser un sous formulaire en entier, mais avec du code, je peux te dire comment griser un champ. Un code qui serait donc à répéter pour chaque champ à griser.

Si c'est une solution eventuelle pour toi, fais signe !

**debdev** · 18/06/2008, 16h11

salut!

merci pr ta réponse.

alors je vais être très honnete avec toi. si tu es pret à me donner ton code, je l'accepterais volontiers (en espérant le comprendre)

merci à toi

**Luisito31** · 18/06/2008, 16h29

tu peux nous dire comment s'appellent tes champs a grisé et tes champs obligatoires ?

**wooop** · 18/06/2008, 16h33

Envoyé par Luisito31

tu peux nous dire comment s'appellent tes champs a grisé et tes champs obligatoires ?

Effectivement, ce serait un bon début !

**debdev** · 18/06/2008, 16h36

oui.

mon formulaire A s'appelle FRM_APPELS
mon formulaire B s'appelle FRM_DETAILS_APPELS

dans mon formulaire A, le nom du menu déroulant X est Combo32

le child field et le master field qui relient le formulaire et le sous formulaire s'appellent tous les 2 contact_id

dans mon sous formulaire B, les noms de mes champs à griser sont:
Combo71
Combo82
(il y en a d'autres, mais j'appliquerai le meme code)

Merci de votre aide.

**azertix** · 18/06/2008, 16h39

T'as de la chance, je travaille actuellement sur une appli et je fais justement ça sur un de mes formulaires. 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
Private Sub lstNom_Click()
    ' Déverrouillage des champs et changement de la couleur de fond -> blanc
    Me.txtPrenom.Locked = False
    Me.txtPrenom.BackColor = RGB(255, 255, 255)
    Me.txtMail.Locked = False
    Me.txtMail.BackColor = RGB(255, 255, 255)
    Me.txtTel.Locked = False
    Me.txtTel.BackColor = RGB(255, 255, 255)
 
    ' Mise à jour des différents contrôles en fonction de la ligne sélectionnée de la ZdL
    ' suite du code ici
End Sub

Alors par défaut mes zones de texte txtPrenom, txtMail et txtTel sont vérouillées et grisées (propriété Vérouillé sur Oui et Couleur d'arrière-plan/Remplissage sur Gris clair). Elles se dévérouillent et le fond redevient blanc quand on clique sur un élément de la zone de liste lstNom, et donc que la zone de liste n'est plus vide.
Apparemment, tu ne veux pas vérouiller de contrôles donc, il faut enlever tous les "Locked".
Dans ton cas, il faut que tu mettes le changement de couleur sur l'évènement After_Update de ta zone de liste

**debdev** · 18/06/2008, 17h03

Merci bcp

c génial, ça marche nickel

encore merci
a+

**azertix** · 19/06/2008, 09h08

De rien, content de t'avoir aidé

**debdev** · 19/06/2008, 12h01

oops...

j'ai encore un petit souci...

le grisé/dégrisé marche très bien mais pas tout le temps :
- j'ai testé quand je suis administrateur de la base (touche shift maintenue à l'ouverture) et ça marche
- j'ai testé quand je ne suis pas administrateur de la base (pas de touche shift maintenue à l'ouverture) et ça ne marche pas (ça reste grisée tout le temps meme si je choisis quelqu'un dans ma liste déroulante)

y a t-il une fonction à activer quelque part ?

merci

**azertix** · 19/06/2008, 13h47

Ah ? Ce n'est pas normal ça !
Ca devrait être pareil pour tout le monde ...
Je pense que ça vient des permissions attribuées aux utilisateurs de la base. Vérifie qu'ils ont bien le droit de modifier la couleur de fond des contrôles.
Je te conseille de lire le cours de Fabrice Constans sur la sécurité dans Access et particulièrement le point VIII. Droits d'accès