Discussion :

[kleenex]

Salut,

je veux mettre tous les controles de mon formulaire à enabled="false". Je procéde ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        For i = 0 To Me.Controls.Count - 1
            Me(i).Enabled = "true"
        Next

Ca ne fonctionne pas, j'ai une erreur sur me(i) comme quoi l'objet ne gere pas la propriete ...!

Alors que si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
me(1).enabled="true"
me(2).enabled="true"
...

ca fonctionne!!

Merci de votre aide!
++

[Chromatic]

Es tu sur qu il y existe un controle Me(0)???

[Arkham46]

slt,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.controls(i).Enabled = "true"

[kleenex]

D'abord merci pour vos réponses!

1-chromatic=>oui il existe un control 0. Il s'agit d'une étiquette!

2-Arkham=> j'avais essayé ce que tu me conseilles en 1er et comme ca marchait pas j'ai essayé avec me(1).


D'autres conseils peut-etre! Sinon en dernier recours je les enumere tous mais la ca fait un code cradingue!

[Chromatic]

Je pense savoir le probleme. (c est p e une betise)

Tu mets tous tes controles enable a false et il y a donc un probleme avec le focus car par defaut le focus est place sur le premier controle du formulaire.

Comme tu les mets tous a false, il a une errreur genere car le focus ne peut pas etre mis sur aucun des controles

[Arkham46]

ouais me(0) ou me.controls(0) ça revient peut-être au même

par contre tu ne testes rien sur ton contrôle

une étiquette n'a pas de propriété enabled : désactiver une étiquette ça n'a pas de signification

tu peux mettre un "on error resume next" pour ne pas tenir compte de l'erreur
ou alors tu testes si le type de contrôle est égal à acLabel ou autre...

[kleenex]

chromatic=>Non je pense pas que ce soit ca!!!
arkham=>j'essaie ca!!

EDIT : j'ai essayé de faire un test sur me(i).controltype mais cette propriété me ressort un numero et nom un type acLael ou...

Comment peut-on recuperer cette info!!!

[batou22003]

Bonjour,
Pour balayer tous les controles tu as la collections Controls.
Et For each est fait pour parcourir une collection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each ctrl In Me.Controls
ctrl.Enabled = False
Next

[kleenex]

Ca fonctionne pas mieux avec for each. La meme erreur est généré!

[cafeine]

Normal, tous les contrôles ne possèdent pas la propriété .Enabled et cette propriété n'est pas forcément disponible à ce moment ... il faut donc gérer les erreurs ...

[kleenex]

Grace a toutes vos reponses voici ce que j'ai pu faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function ferme()
    On Error Resume Next
    If Me.fouverture = "fermé" Then
        For i = 0 To Me.Controls.Count - 1
            Me(i).Enabled = "false"
        Next
    Else
        Me.SF_analyse.Enabled = "true"
        Me.SF_call.Enabled = "true"
        For i = 0 To Me.Controls.Count - 1
            Me(i).Enabled = "true"
        Next
    End If
 
End Function

et ca fonctionne tres bien!
Merci beaucoup!