OVH Cloud OVH Cloud

Zone de liste bloquée

2 réponses
Avatar
sab
Bonjour
Dans un formulaire, je bloque l'écriture en fonction de la personne par le
code VBA - > "Me.AllowEdits"
Seulement voila, je posséde une zone de liste qui se trouve elle aussi,
bloqué...

Comment peut on faire pour que tous les champs (environs 100) soient bloqués
sauf ma zone de liste ?

MERCI beaucoup pour vos réponse

2 réponses

Avatar
Raymond [mvp]
Bonjour.

il y a certainement d'autres contrôles à ne pas bloquer tels que des
boutons. il serait préférable de bloquer contrôle par contrôle selon le type
de contrôle.
exemple:
Dim Ctl As Control
' On Error resume next
For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.Locked = True
Ctl.BackColor = RGB(212, 208, 200) ' couleur windows
Ctl.ForeColor = RGB(128, 128, 128) 'couleur gris
Else
Ctl.Locked = False
Ctl.BackColor = RGB(255, 255, 255)
Ctl.ForeColor = RGB(0, 0, 0)
End If
Next Ctl

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"sab" a écrit dans le message de news:

Bonjour
Dans un formulaire, je bloque l'écriture en fonction de la personne par le
code VBA - > "Me.AllowEdits"
Seulement voila, je posséde une zone de liste qui se trouve elle aussi,
bloqué...

Comment peut on faire pour que tous les champs (environs 100) soient
bloqués
sauf ma zone de liste ?

MERCI beaucoup pour vos réponse


Avatar
Eric
Bonjour,

Juste pour info, la 2eme solution proposée en réponse à ton post
"Vérouiller un Détail" ne convenait pas ?
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour
Dans un formulaire, je bloque l'écriture en fonction de la personne par le
code VBA - > "Me.AllowEdits"
Seulement voila, je posséde une zone de liste qui se trouve elle aussi,
bloqué...

Comment peut on faire pour que tous les champs (environs 100) soient bloqués
sauf ma zone de liste ?

MERCI beaucoup pour vos réponse