verouiller sous-form sur valeur de ctrl form

Bonjour,Bonjour sur ACCESS2003, j’ai une base qui répertorie les renseignements sur plusieurs établissements scolaires selon plusieurs formulaires qui enregistrent dans plusieurs tables . Les établissements se classent : public ou privé, ce champs déjà remplis données déjà rentrés dans la table correspondante, et seulement visible pour information sur le formulaire principal dans un contrôle texte STATUT avec soit «public », soit « privé ». Pour synthétiser j’ai fait un formulaire principal FFIdDEff sur lequel j’ai fait glisser tous les sous formulaires dont un FFPrivé qui est essentiellement réservé aux établissements privés recueillant des info spécifiques à ces établissements privés.
Je voudrais que lorsque le contrôle visible STATUT public/privé sur le FFIdDeff principal prend la valeur « public », que le sous formulaire FFPrivé réservé aux établissements privés soit verrouillé totalement pour éviter des erreurs de saisies ; Pouvez-vous m’aider à rédiger un code VBA du genre :

Code:

---

1 2 3 4 5 6

Private Sub STATUT_AfterUpdate() If [FFIdDEff] ![STATUT]= « privé » then ? vérouille tous les contrôle de FFPrivé ? else laisse FFPrivé accessible End Sub

---

Merci de votre aide.

Bonjour,

Une boucle for each devrait faire l'affaire.

Code:

---

1 2 3 4

dim ctrl as control for each ctrl in me.controls ctrl.enabled = false next

---

Merci de m'avoir ouvert une piste mais disons que je suis complètement profane en VBA, je le place où ton code ? sur afterMAJ de mon contrôle ? ailleurs ? merci de m'aider.

Salut,

Oui sur afterupdate de ton contrôle...tu ajoute le code de loufab à ton code de départ...

Bonjour,

Désolé je suis allé un peu trop vite dans la lecture de ta demande.

Tu ne veux verrouiller QUE le sous-formulaire. Le code devra donc être placé non seulement sur le après MAJ de ton controle mais également l'événement Sur activation qui se produit à chaque changement d'enregistrement.

D'autre part il doit être modifier comme ceci.

Code:

---

1 2 3 4

dim ctrl as control for each ctrl in me.MonSousForm.Form.controls ctrl.enabled = VraiFaux next

---

Ou la variable VraiFaux (ou le nom que tu y donnera) prendra alternativement la valeur TRue ou False suivant le test

Code:

---

If me.STATUT="privé" then

---

Voila ce que j'ai cru comprendre mais ça ne marche pas : lsq mon contrôle STATUT prend la valeur "privé", le sous form FFPrivé reste avec ses contrôles accessibles. Je suis à peine dégrossi et je ne doute pas d'avoir tout fait de travers, pas de message d'erreur cependant revoyant au débogage. ; enabled ça veut bien dire accessible ? ou c'est le contraire ? Merci si tu vois quelque chose à changer..

Code:

---

1 2 3 4 5 6 7 8

Private Sub STATUT_AfterUpdate() Dim ctrl As Control For Each ctrl In Me.FFPrivé.Form.Controls ctrl.Enabled = True Next If Me.STATUT = "privé " Then ctrl.Enabled = False End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub STATUT_Change()   Dim ctrl As Control For Each ctrl In Me.FFPrivé.Form.Controls ctrl.Enabled = True Next If Me.STATUT = "privé " Then ctrl.Enabled = False End Sub

---

Citation:

---

Il te faut placer ce code sur le after update mais pas sur le change. Mais également sur le Activate du formulaire (pas du formulaire).

---

En effet c'est méga balot !

Merci User ;)

Insérrer le code après maj, ça va, mais pour la suite je ne suis plus :
"Mais également sur le Activate??? du formulaire (pas du formulaire???)"
où est le activate du formulaire ? de quel formulaire s'agit-il ? de celui qui contient le ctrl texte public/privé dont seule la valeur "privé" doit rendre FFPrivé accessible ? ou du sous form FFPrivé ? "pas du formulaire" pourquoi ? Merci loufab, je ne suis pas trop calé pour l'instant..

Rebonjour,

Si je peux me permettre de répondre à la place de Loufab ;)

En fait, il te faut mettre ton code sur activation (évènement current) du formulaire principal qui contient le contrôle "Statut", et sur afterupdate de ton contrôle "Statut" dans ce même formulaire.

Code:

---

1 2 3 4 5 6

Private Sub STATUT_AfterUpdate() Dim ctrl As Control For Each ctrl In Me.FFPrivé.Form.Controls ctrl.Enabled = (me.statut="Privé") next End Sub

---

et

Code:

---

1 2 3 4 5 6

Private Sub Form_Current() Dim ctrl As Control For Each ctrl In Me.FFPrivé.Form.Controls ctrl.Enabled = (me.statut="Privé") next End Sub

---

A+

Trop nul ce matin je m'en revais dormir... un edit au lieu d'un nouveau post.