Discussion :

[bartimeus35]

Hi,
J'ai une fonction que je dois appeler pour une quinzaine de champs de mon formulaire, et jet ne trouve pas comment passer l'Id du champ pour ensuite faire mon check et la mise en forme adhoc.

J'ai donc dupliqué N fois ma fonction , mais c'est nul

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function colorise_mot-1()
    If is_enrichi(Me.mot-1.Value) = False Then
        Me.mot-1.BackColor = RGB(255, 255, 0)
    Else
        Me.mot-1.BackColor = RGB(255, 255, 255)
    End If
End Function
 
Function colorise_mot-2()
    If is_enrichi(Me.mot-2.Value) = False Then
        Me.mot-2.BackColor = RGB(255, 255, 0)
    Else
        Me.mot-2.BackColor = RGB(255, 255, 255)
    End If
End Function

Comment faire une fonction qui prend en param l'Id du champ et que devient mon code.
Si je passe Me.mot-1, je peux faire mon check is_enrichi mais ensuite comment modifier le Back Coloor car me.mot-1 est la valur du mot et pas son ID, j'espère que j'explique bien.


Mille merkis

[micniv]

Eh bien passe l'objet control en argument

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Colorise_mot( oCtrl as control)
    If is_enrichi(oCtrl.Value) = False Then
        oCtrl.BackColor = RGB(255, 255, 0)
    Else
        oCtrl.BackColor = RGB(255, 255, 255)
    End If
 
End sub

que tu appelles depuis ton form par

Code :

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

1
2
 
call colorise_mot(Me.mot-1)