Discussion :

[rasta girl]

Bonjour,
j'ai créé un formulaire de consultation où j'ai verrouillé tous les champs, mais je voudrais qu'en cliquant sur un bouton "Modifier" tous les champs se déverrouillent. Comment faire ?

[Invité]

Bonjour

Il suffit de parcourir la collection des contrôles sur ta form.

Code :

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

1
2
3
4
5
 
Dim oCtrl as Control
For Each oCtrl in me.Controls
    oCtrl.Enabled = True
Next oCtrl

à mettre sur le click de ton bouton

Starec

[rasta girl]

Je viens de rajouter ce code mais en fait lorsque je tape octrl. il ne trouve pas enable :s.
Et lorsque je clique sur le bouton j'ai message d'erreur du type, propriété ou méthode non gérée par cet objet.

[Invité]

C'est normal, écrit le en minuscule, et si tu passes à la ligne, le E doit passer en majuscule, c'est que la saisie est bonne.

Starec

[Invité]

Je viens de revoir le code

Code :

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

1
2
3
4
5
6
7
Dim oCtrl As Control
For Each oCtrl In Me.Controls
    If TypeOf oCtrl Is CommandButton Then
    Else
        oCtrl.Enabled = True
    End If
Next oCtrl

Utilise celui-ci si Access te dit qu'il ne peut le faire sur un contrôle actif, cela proviendrait du bouton.

Starec

[rasta girl]

C'est ce que je viens de faire pourtant

[Invité]

Montres moi ce que tu as écrit

Starec

[rasta girl]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande14_Click()
Dim oCtrl As Control
For Each oCtrl In Me.Controls
    If TypeOf oCtrl Is CommandButton Then
    Else
        oCtrl.Enabled = True
    End If
Next oCtrl
End Sub

[Invité]

Re

Excuse, j'ai tapé sans contrôler dans le message à la main

Code :

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

1
2
3
4
5
Dim oCtrl As Control
    For Each oCtrl In Me.Controls
    If TypeOf oCtrl Is TextBox Then
       oCtrl.Enabled = True
    End If

Cela devrait être mieux

Starec

[rasta girl]

Merci pour ton aide mais ça ne marche pas. Je vais y réfléchir.

[Invité]

Heu

C'est vérouiller, donc met False à la place de True

Starec