Discussion :

[ThieBEN]

Bonjour à tous,
j'ai tenté de tester l'exemple de TOFALU Exemple de remplissage de treeview mais ça ne marche pas.
J'ai l'erreur suivante " ERREUR 3464 Type de données incompatible dans l'expression du critère" pourtant j'ai bien coché la référence Microsoft data object library.
Pouvez-vous m'éclairer
Merci

[ThieBEN]

Voici le code de TOFALU peut-être y at-il une erreur?

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
34
35
Public Sub remplissageTreeView(oT As Object, odb As DAO.Database, Optional intEmploye As Integer = 0)
Dim strSQL As String
Dim oRst As DAO.Recordset
Dim strLibelle As String
 
strSQL = "SELECT NumEmploye,NomEmploye,PrenomEmploye,RoleEmploye " & _
                            "FROM tblemploye WHERE Responsableemploye=" & intEmploye
Set oRst = odb.OpenRecordset(strSQL)
 
 
With oRst
    While Not .EOF
        'Récupère le nom, le prénom et le role
        strLibelle = .Fields(1).Value & " " & .Fields(2).Value & _
                                                        " (" & .Fields(3).Value & ")"
        'Test le cas de la racine
        If intEmploye = 0 Then
            oT.Nodes.Add Key:="Emp" & .Fields(0).Value, _
                 Text:=strLibelle
        Else
            oT.Nodes.Add "Emp" & intEmploye, tvwChild, "Emp" & _
                                             .Fields(0).Value, strLibelle
        End If
 
 
        'Lance le même traitement avec ce responsable
        remplissageTreeView oT, odb, .Fields(0).Value
        'Passe à l'enregistrement suivant
        .MoveNext
    Wend
End With
'Ferme le recordset
oRst.Close: Set oRst = Nothing
 
 End Sub

Merci de votre aide
ThieBEN

[Tofalu]

mon code est correct mais peut être que ton champ qui te sert de critère est de type texte. Auquel cas il faudrait encadrer la valeur avec des guillemets (comme indiqué dans la FAQ )

[ThieBEN]

Bonjour et merci Tofalu, l'erreur venait du champ responsable employé il était au format texte maintenant ça marche. Question y a t-il une possibilité quand on clique sur le nom d'un employé que le formulaire s'ouvre sur l'employé sélectionné. Je débute en VBA.
Merci
ThieBEN