Groupe d'options verrouiller

Le
Dan
Bonjour,
Comment verrouiller/dverrouiller les boutons situs dans
un groupe d'options
Mon groupe d'options se nomme :
- Type_Depense
l'intrieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP

Pour verrouiller tous les contrles, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl

Si je passe ctl.Locked False le groupe d'options ne se
dverrouille pas alors que tous les autres champs sont
dverrouills.
Si quelqu'un a une ide
Merci d'avance.
Dan
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #5004751
Bonsoir Dan

je viens de tester et ca marche très bien

Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?

A+
Eric



"Dan" $540c6730$:

Bonjour,
Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options
Mon groupe d'options se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP

Pour verrouiller tous les contrôles, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl

Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont
déverrouillés.
Si quelqu'un a une idée...
Merci d'avance.
Dan



Eric
Le #5004741
re,

Pour info, il serait meilleur de mettre une instruction
If TypeOf c is OptionButton Then
c.locked=true ' ou False suivant le cas
end if
car sinon je pense que ca te plante si le form contient des labels

a+



"Dan" $540c6730$:

Bonjour,
Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options
Mon groupe d'options se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP

Pour verrouiller tous les contrôles, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl

Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont
déverrouillés.
Si quelqu'un a une idée...
Merci d'avance.
Dan


Dan
Le #5004731
Bonsoir Eric,
Je me suis mal expliqué :
Je cherche à tout verrouiller sauf le groupe d'options.
Donc j'utilise
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl

qui verrouille tout et ensuite je voudrais déverrouiller
uniquement le groupe d'options qui se nomme :

- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP

J'ai donc essayé de sélectionner le groupe d'options
après avoir tout verrouiller de cette façon :
Me.Type_Depense.Locked = False

mais ça n'a pas déverrouiller ce dernier.

C'est un peu plus clair ?

Merci encore

Dan

-----Message d'origine-----
Bonsoir Dan

je viens de tester et ca marche très bien

Tu es sur que tu n'as pas aussi redéfini la propriété
Enabled ?


A+
Eric



"Dan" news:1752f01c41d98

$540c6730$:

Bonjour,
Comment verrouiller/déverrouiller les boutons situés
dans


un groupe d'options
Mon groupe d'options se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP

Pour verrouiller tous les contrôles, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl

Si je passe ctl.Locked à False le groupe d'options ne
se


déverrouille pas alors que tous les autres champs sont
déverrouillés.
Si quelqu'un a une idée...
Merci d'avance.
Dan



.




Eric
Le #5004671
Re Bonsoir"Dan"

Je suis surpris que ta proc ne bloque pas s'il y a des controles Label ou
des CommandButton dans le formulaire.

Essaies ca :

Private Sub Commande1_Click() 'pour désactiver tout sauf le groupe et les
cases option
Dim c As Control
For Each c In Me.Controls
If c.Name <> "Cadre0" And Not TypeOf c Is Label And Not TypeOf c
Is CommandButton And Not TypeOf c is OptionButton Then
c.Locked = True
End If
Next c
End Sub



A rajouter Enabled = true ou false sur les TextBox


A+
Eric



Dan écrivait news:15a2c01c41d9e$07198dd0$:

Bonsoir Eric,
Je me suis mal expliqué :
Je cherche à tout verrouiller sauf le groupe d'options.
Donc j'utilise
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl

qui verrouille tout et ensuite je voudrais déverrouiller
uniquement le groupe d'options qui se nomme :

- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP

J'ai donc essayé de sélectionner le groupe d'options
après avoir tout verrouiller de cette façon :
Me.Type_Depense.Locked = False

mais ça n'a pas déverrouiller ce dernier.

C'est un peu plus clair ?

Merci encore

Dan

-----Message d'origine-----
Bonsoir Dan

je viens de tester et ca marche très bien

Tu es sur que tu n'as pas aussi redéfini la propriété
Enabled ?


A+
Eric



"Dan" news:1752f01c41d98

$540c6730$:

Bonjour,
Comment verrouiller/déverrouiller les boutons situés
dans


un groupe d'options
Mon groupe d'options se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP

Pour verrouiller tous les contrôles, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl

Si je passe ctl.Locked à False le groupe d'options ne
se


déverrouille pas alors que tous les autres champs sont
déverrouillés.
Si quelqu'un a une idée...
Merci d'avance.
Dan



.







Eric
Le #5004661
re
Ooops, je sais plus lire
Tu auras corrigé par toi-même, je suppose, la proc
je te parle de cases d'option alors que dans ta proc tu indiques des
cases à cocher !!!

Donc la proc devient :
Private Sub Commande1_Click()
Dim c As Control
For Each c In Me.Controls
If c.Name <> "Cadre0" And Not TypeOf c Is Label And Not TypeOf c
Is CommandButton And Not TypeOf c Is CheckBox Then
c.Locked = True
End If
Next c
End Sub

A+
Eric

"Dan" $07198dd0$:

Bonsoir Eric,
Je me suis mal expliqué :
Je cherche à tout verrouiller sauf le groupe d'options.
Donc j'utilise
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl

qui verrouille tout et ensuite je voudrais déverrouiller
uniquement le groupe d'options qui se nomme :

- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP

J'ai donc essayé de sélectionner le groupe d'options
après avoir tout verrouiller de cette façon :
Me.Type_Depense.Locked = False

mais ça n'a pas déverrouiller ce dernier.

C'est un peu plus clair ?

Merci encore

Dan

-----Message d'origine-----
Bonsoir Dan

je viens de tester et ca marche très bien

Tu es sur que tu n'as pas aussi redéfini la propriété Enabled ?

A+
Eric



"Dan" news:1752f01c41d98 $540c6730$:

Bonjour,
Comment verrouiller/déverrouiller les boutons situés dans
un groupe d'options
Mon groupe d'options se nomme :
- Type_Depense
à l'intérieur, les boutons se nomment :
- Cocher_DO
- Cocher_AP
- Cocher_CP

Pour verrouiller tous les contrôles, j'utilise :
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = True
Next ctl

Si je passe ctl.Locked à False le groupe d'options ne se
déverrouille pas alors que tous les autres champs sont
déverrouillés. Si quelqu'un a une idée...
Merci d'avance.
Dan



.






Publicité
Poster une réponse
Anonyme