VBA

En faisant une boucle :
Dim Compteur as integer
for compteur = 1 to 31
if ME.Fields(compteur)=1 or me.fields(compteur)=7 then
ME.fields(compteur).backcolor632256
ME.fields(compteur).ForeColor = 12632256
Else
Me.fields(compteur).BackColor = 16777215
Me.fields(compteur).ForeColor = 16777215
end if
next

Bonjour,

Je suppose que dans ton formulaire il existe d'autres contrôles que les
TextBox et des contrôles TextBox autres que ceux nommés 1 à 31.

Une procédure du genre :

Private Sub Form_Open(Cancel As Integer)
Dim c As Control
For Each c In Me.Controls
If TypeOf c Is TextBox Then
Select Case c.Name
Case 1 To 31
If c.Value = 1 Or c.Value = 7 Then
c.BackColor = 12632256
c.ForeColor = 16777215
'c.ForeColor = 12632256
Else
c.BackColor = 16777215
'c.ForeColor = 16777215
c.ForeColor = 12632256
End If
End Select
End If
Next c
End Sub

J'ai alterné les couleurs pour le test car sinon on ne voyait rien. A
rectifier donc
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour

Si quelqu'un peut m'aider ce serait sympa
Dans le formulaire, Il y a les 31 zones de texte ([1] à [31])
Exemple :
If (Me.[1] = 1) Or (Me.[1] = 7) Then
Me.[1].BackColor = 12632256
Me.[1].ForeColor = 12632256
Else
Me.[1].BackColor = 16777215
Me.[1].ForeColor = 16777215
End If

If (Me.[2] = 1) Or (Me.[2] = 7) Then
Me.[2].BackColor = 12632256
Me.[2].ForeColor = 12632256
Else
Me.[2].BackColor = 16777215
Me.[2].ForeColor = 16777215
End If
.......
.....;

Mais trop long comment résumé

D'avance merci pour votre aide.
Marco.