afficher des images selon champs multi valeurs

Private Sub pictosEPI()

Dim mabase As Database

Set mabase = CurrentDb

Dim marec As Recordset

Set marec = mabase.OpenRecordset("select n°CAS,picto from R_Union_Pictos_finale where n°CAS='" & Me.N°CAS & "'", DB_OPEN_SNAPSHOT) 'la requete qui contient les valeurs cochées

'variable tableau qui contient la liste des controles images du formulaire

Dim mespictos(1 To 12) As String

mespictos(1) = "HOTTE"

mespictos(2) = "chaussure_securite"

mespictos(3) = "lunette"

mespictos(4) = "gants"

mespictos(5) = "blouse"

mespictos(6) = "masque"

mespictos(7) = "extincteur_a_eau"

mespictos(8) = "extincteur_a_poudre"

mespictos(9) = "tel_pompiers"

mespictos(10) = "telephone"

mespictos(11) = "rincer_les_yeux"

mespictos(12) = "douche"

'on les rend tous invisibles

For n = 1 To 12

Me.Controls(mespictos(n)).Visible = False

Next n

'et on rend visible ceux de la requete (ceux qui sont cochés donc)

Do While Not marec.EOF

Me.Controls(marec(1)).Visible = True

marec.MoveNext

Loop

Set marec = Nothing

Set mabase = Nothing

End Sub