Discussion :

[Peanut]

Lors de la validation de mon formulaire je passe en jaune les champs invalides.
Je voudrais par la suite les repasser en blancs, sans les nommer 1 par 1 tant qu'à faire, mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
    For Each oCtrl In Forms("IndexingForm").Controls
        If oCtrl.BackColor = vbYellow Then
            oCtrl.BackColor = vbWhite
        End If
    Next

=> Propriété non gérée par cet objet.

Comment je peux faire svp ?

[Heureux-oli]

Il nous manque le début !
Donne nous le début de ton code.

[Peanut]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function SaveProperties()
Dim oCtrl As Control
 
    For Each oCtrl In Forms("IndexingForm").Controls
        If oCtrl.BackColor = vbYellow Then
            oCtrl.BackColor = vbWhite
        End If
    Next
 
    ...
 
Exit Function
End Function

Note : les contrôles concernés sont soit des zones de texte, soit des zones de liste modifiable.

[Heureux-oli]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function SaveProperties()
Dim oCtrl As Control
 
    For Each oCtrl In Forms("IndexingForm").Controls
        If oCtrl.BackColor = vbYellow Then
            oCtrl.BackColor = vbWhite
        End If
    Next oCtrl
 
    ...
 
Exit Function
End Function

[Peanut]

Non, j'ai le message d'erreur sur le oCtrl.BackColor.

(alors que cela focntionne quand je nomme manuellement les contrôles :
Forms("IndexingForm")("zlmApplication2").BackColor = vbWhite par exemple)

[Heureux-oli]

En fait, je viens de le tester et chez moi il passe, mis à part le If qui n'a pas fonctionné, mais par contrel le changement de couleur passe.

Ce serait une bibliothèque manquante.

J'ai comme biblothèques installées

VBA
MS Access 11 Object Library
OLE automation
MS DAO 3.6
Et
MS ActiveX Data Objects 2.5 Lib

[Peanut]

Comment ça "mis à part le if" ? : si tu mets juste oCtrl.BackColor = vbWhite, ça fonctionne ?

Où voit-on les bibliothèques installées ?

[Heureux-oli]

En fait, comme ils sont déjà blanc, je demande au formulaire de les passer au rouge et il me le fait.
Si je met la condition, il ne me fait rien.

[Arkham46]

bjr,

Tous les contrôles n'ont pas de propriété BackColor
Il faut soit tester le type du contrôle, soit gérer l'erreur avec On Error

[Peanut]

Yes ! J'ai ajouté un On Error et ça fonctionne :

Code :

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

1
2
3
4
5
6
    For Each oCtrl In Forms("IndexingForm").Controls
        On Error Resume Next
        If oCtrl.BackColor = vbYellow Then
            oCtrl.BackColor = vbWhite
        End If
    Next

Question : quelle est la portée de ce On Error ?
Je dois le réinitialiser (comment ?) à la sortie de la boucle ou la portée est seulement l'intérieur de la boucle ?

[Muhad'hib]

Salut,

Il faut soit tester le type du contrôle, soit gérer l'erreur avec On Error

Je préfére tester le type de controle avce la propriété ControlType :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Dim oCtrl As Control
 
    For Each oCtrl In Forms("IndexingForm").Controls
        If oCtrl.ControlType = acTextBox Or oCtrl.ControlType = acListBox Or oCtrl.ControlType = acComboBox Then
            If oCtrl.BackColor = vbYellow Then
                oCtrl.BackColor = vbWhite
            End If
        End If
    Next oCtrl