Discussion :

[docjo]

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.

[Pepito78]

Bonjour

champ texte à liste de choix multiple étendue.

Plus précisément quel est le type de ce champ ?

Cordialement.

[docjo]

Ce ne sont que des champs textes et plus particulièrement "Materiel" qui est un champ texte à selection multiple étendue

[Pepito78]

Ce ne sont que des champs textes et plus particulièrement "Materiel" qui est un champ texte à selection multiple étendue

Si vous faites dans visual basic, au moment de l'erreur, dans la fenêtre exécution

Code :

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

? RsPL!Materiel

Quel est le résultat ?

[Pepito78]

Ce ne sont que des champs textes et plus particulièrement "Materiel" qui est un champ texte à selection multiple étendue

Peut-être cette rubrique peut vous aider

http://access.developpez.com/access2...=MultiValueVBA

ou ici

http://officesystemaccess.seneque.ne...multivalue.htm

Cordialement

[docjo]

Merci Pepito pour ces renseignements précieux. Si je comprends bien, un champ multivalué (c'est comme cela qu'il faut les appeler) se comporte comme un jeu d'enregistrement. Il faut donc l'appeler par un recordset dit "fils". Mais, les valeurs sont stockées dans le champ sous la forme "Valeur1;Valeur2".
Dans mon exemple j'aimerai récupérer

Code :

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

1
2
 
Nom Prenom Valeur1;Valeur2

et non

Code :

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

1
2
3
4
 
Nom Prenom
Valeur1
Valeur 2

Je pense que cela va ressembler à cela

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
25
26
27
28
29
 
 
Dim RsPL As DAO.Recordset
Dim RsCat 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
        Set RsCat = RsPL!Materiel.Value 'instancier le jeu d'enregistrements enfant du champ Materiel de la Requete R_RendezVous
        Do While Not (RsCat.EOF) ' on parcoure les résultats du matériel
            If Not IsNull(RsPL!Chir1) Then
                Forms!F_PlanningWeek!SF_PlanningWeek1.creneau = RsPL!Patient & " " & RsPL!DateNaissance & " " & RsCat.Fields(0)
 
   RsCat.MoveNext
   RsPL.MoveNext
   Loop
 
' libération
RsCat.Close 
RsPL.Close
Set RsCat = Nothing
Set RsPL = Nothing

Ce code crée une erreur. Je continue mes recherches

[Pepito78]

Plutôt à ça :

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
25
26
27
28
29
30
31
32
33
Dim RsPL As DAO.Recordset
Dim RsCat As DAO.Recordset
Dim LeSql As String
Dim strValue 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, dbOpenSnapshot) 'affectation du recordseten snapshot (plus rapide !)
 
   Do until RsPL.EOF ' on parcours les RDV
        strValue = RsPL!Patient & " " & RsPL!DateNaissance
 
        Set RsCat = RsPL!Materiel.Value 'instancier le jeu d'enregistrements enfant du champ Materiel de la Requete R_RendezVous
        Do Until RsCat.EOF ' on parcoure les résultats du matériel
            If Not IsNull(RsPL!Chir1) Then
               strValue = strValue & " " & RsCat.Fields(0)
            End If
        RsCat.MoveNext
        Loop
 
     Forms!F_PlanningWeek!SF_PlanningWeek1.creneau = strValue
 
   RsPL.MoveNext
   Loop
 
' libération
RsCat.Close
RsPL.Close
Set RsCat = Nothing
Set RsPL = Nothing

PS : il vous manquait un End If et un Loop sauf erreur de ma part

Cordialement