Rebonsoir,

Je voudrai tester une dizaine de champ et verifier s'il sont vide, s'il sont vide les mettre en rouge et envoyer une boite de message recapitulant les champs a completer ; avant une certaine action.

j'ai penser a faire quelque chose comme :

dim msg as string


If Nz(Me.champ1, "") = "" Then

'mettre le champ en rouge

msg = champ1

End If


If Nz(Me.champ2, "") = "" Then

'mettre le champ en rouge

msg = msg & champ2

End If

... etc, etc
Le truc c'est que je vais faire au moins 10 condition "if", je trouve ca moyen,

Avez vous une idée ?

Merci