arborescence access

Question

bonjour à tous , 

voila je genere une arborescence depuis une table et j'aimerais trouver le moyen de mettre en gras ( ou autre chose pour distinguer) pour pouvoir différencier s'il y a des noeuds fils ou pas, donc en fait pour voir si c un titre ou non.

Pour faire l'arborescence je fais : 

Public Sub remplirTreeView(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  Numdoc,NomDoc,chemindoc,descriptiondoc,frequence,cheminimage,legende FROM Trialphabetique  WHERE Docpere=" & intEmploye
Set oRst = odb.OpenRecordset(strSQL)
With oRst
While Not .EOF
'Récupère le nom, et la description
strLibelle = .Fields(1).Value & " (" & .Fields(3).Value & ")"
'Test le cas de la racine
If intEmploye = 0 Then
oT.Nodes.Add Key:="Cle" & .Fields(0).Value, _
Text:=strLibelle
Else
oT.Nodes.Add "Cle" & intEmploye, tvwChild, "Cle" & .Fields(0).Value, strLibelle
End If
'Lance le même traitement avec ce responsable
remplirTreeView oT, odb, .Fields(0).Value
'Passe à l'enregistrement suivant
.MoveNext
Wend
End With
'Ferme le recordset
oRst.Close: Set oRst = Nothing
End Sub

voila si vous avez la possibilité de m'aider...Merci beaucoup!

Renfield · Answer

tu as la propriété Bold de tes Node

Renfield
Admin CodeS-SourceS- MVP Visual Basic

fixou81 · Answer

ok je vais voir ce que je peux faire avec ca

Arborescence access

2 réponses

Votre réponse

Discussions similaires