J'ai un formulaire avec un sous-formulaire. Lorsque, dans le formulaire, le
coche une case (à cocher), selon sa valeur je rends actif ou non le
sous-formulaire. J'aimerais faire la même chose avec tous les contrôles du
sous-formulaires.
Comment dois-je faire ? Je n'arrive pas à trouver la boucle qui convient.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
bonsoir.
pour la boucle:
Dim Ctl As Control For Each Ctl In Me("sous_form").Form.Controls If Ctl.ControlType = acTextBox Then Ctl.Locked = True Ctl.BackColor = RGB(212, 208, 200) Ctl.ForeColor = RGB(128, 128, 128) End If Next Ctl
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrick" a écrit dans le message de news:
Bonjour,
J'ai un formulaire avec un sous-formulaire. Lorsque, dans le formulaire, le
coche une case (à cocher), selon sa valeur je rends actif ou non le sous-formulaire. J'aimerais faire la même chose avec tous les contrôles du sous-formulaires.
Comment dois-je faire ? Je n'arrive pas à trouver la boucle qui convient.
Merci.
-- Patrick
bonsoir.
pour la boucle:
Dim Ctl As Control
For Each Ctl In Me("sous_form").Form.Controls
If Ctl.ControlType = acTextBox Then
Ctl.Locked = True
Ctl.BackColor = RGB(212, 208, 200)
Ctl.ForeColor = RGB(128, 128, 128)
End If
Next Ctl
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrick" <nospams_fredin@magic.fr> a écrit dans le message de
news:eBiGwqBREHA.1348@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai un formulaire avec un sous-formulaire. Lorsque, dans le formulaire,
le
coche une case (à cocher), selon sa valeur je rends actif ou non le
sous-formulaire. J'aimerais faire la même chose avec tous les contrôles du
sous-formulaires.
Comment dois-je faire ? Je n'arrive pas à trouver la boucle qui convient.
Dim Ctl As Control For Each Ctl In Me("sous_form").Form.Controls If Ctl.ControlType = acTextBox Then Ctl.Locked = True Ctl.BackColor = RGB(212, 208, 200) Ctl.ForeColor = RGB(128, 128, 128) End If Next Ctl
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrick" a écrit dans le message de news:
Bonjour,
J'ai un formulaire avec un sous-formulaire. Lorsque, dans le formulaire, le
coche une case (à cocher), selon sa valeur je rends actif ou non le sous-formulaire. J'aimerais faire la même chose avec tous les contrôles du sous-formulaires.
Comment dois-je faire ? Je n'arrive pas à trouver la boucle qui convient.
