Bonjour à tous

Je me sers d'un recordset qui parcoure une requete pour remplir un champ "creneau"

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
16
17
18
19
20
21
22
23
24
 
Dim RsPL As DAO.Recordset
Dim LeSql As String
 
 
' Sélectionne les RDV de la date
LeSql = "SELECT R_RendezVous.*" & _
"FROM R_RendezVous " & _
"WHERE (R_RendezVous.HoraireDebut < " & FormatDateUS(DateDebut + 5) & ") And (R_RendezVous.HoraireFin >" & FormatDateUS(DateDebut) & ") "
 
Set RsPL = CurrentDb.OpenRecordset(LeSql, dbOpenForwardOnly)
 
   Do While Not (RsPL.EOF) ' on parcours les RDV
 
            If Not IsNull(RsPL!Chir1) Then
                Forms!F_PlanningWeek!SF_PlanningWeek1.creneau = RsPL!Patient & " " & RsPL!DateNaissance & " " & RsPL!Materiel
 
   RsPL.MoveNext
   Loop
 
' libération
 
RsPL.Close
Set RsPL = Nothing
J'ai une erreur d'exécution '13' incompatibilité de type en relation avec "Materiel" qui est un champ texte à liste de choix multiple étendue.
Je dois convertir Materiel dans ma requête ?
Par avance merci pour vos bons conseils.