Discussion :

[ade94]

Salut tout le monde,

Ca serait vraiment sympa si vous pouvez m'aider sur mon ptit problème Comment peut-on griser tous les champs d'un formulaire en une commande sans pour autant devoir griser chaque champ du formulaire un par un ?

Merci pour vos réponses

[Invité]

Bonjour

Il faut parcourir la collection des contrôles de ton formulaire

Code :

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

1
2
3
4
5
6
Dim Ctrl as Control
For Each Ctrl in me.Controls
     If TypeOf Ctrl is Textbox then
          Ctrl.Enabled = False
     End if
Next Ctrl

Voici un exemple qui rent inactif tout les textbox de ton formulaire.

Starec

[mimicrocro]

bonjour

Contrairement au problème posé plus haut, moi je voudrai rendre mon formulaire actif, car je voudrai modifier les donnees de mon formulaire directement et ca ne veut plus!!

j'ai vérifier les propriétées de mon formulaire mais l'option VEROUILLER = non

[ade94]

Je te remercie d'avoir répondu à ma question. J'ai repris ton code pour faire de même pour les listes déroulantes mais on me dit "impossible de désactiver le contrôle actif". Je te montre le programme VBA.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim ctrl1 As Control
    Dim ctrl2 As Control
 
    For Each ctrl1 In Forms![Formulaire Contrat].Controls
        If TypeOf ctrl1 Is TextBox Then
            ctrl1.Enabled = False
        End If
    Next ctrl1
 
    For Each ctrl2 In Forms![Formulaire Contrat].Controls
        If TypeOf ctrl2 Is ComboBox Then
            ctrl2.Enabled = False
        End If
    Next ctrl2

Si tu pouvais m'aider à trouver la solution, j'en serais heureux.
Merci

[Invité]

Re

Pense à mettre les balises codes, c'est plus clair, pour cela sélectionne ton code et clique sur le # qui se trouve dans la fenêtre de rédaction des messages. Je viens de le faire pour toi.

Ton message d'erreur est normal, car tu dois avant de lancer le code mettre le focus sur un autre contrôle qu'une textbox ou une combobox.

Si tu as un bouton de commande, juste avant mais le focus dessus (avec : SetFocus)

Starec