Erreur d'excution 13 incompatibilité type
whatyourpseudo
Messages postés
4
Statut
Membre
-
whatyourpseudo Messages postés 4 Statut Membre -
whatyourpseudo Messages postés 4 Statut Membre -
Bonjour a tous
j'ai un message d'Erreur d'excution 13 incompatibilité type
et je ne vois pas pourquoi.
Quelqu'un aurait il une idée
Merci
j'ai un message d'Erreur d'excution 13 incompatibilité type
et je ne vois pas pourquoi.
Quelqu'un aurait il une idée
Merci
Option Compare Database
Option Explicit
Public Sub loadtreeview()
Dim tv As MSComctlLib.TreeView
Set tv = Forms("Menu de Démarrage").Treereqs.Object
tv.Nodes.Clear
Dim rsReqs As DAO.Recordset
Set rsReqs = CurrentDb.OpenRecordset("select * from tbl_Reqs ORDER BY ID_Parent,Dbl_sort,PK_Req", dbOpenDynaset)
Dim strfind As String
strfind = "ID_Type=1"
rsReqs.FindFirst strfind
Dim nodX As MSComctlLib.Node
Dim strbook As String
Do While Not rsReqs.NoMatch
Set nodX = tv.Nodes.Add(, , , rsReqs!mem_Req)
strbook = rsReqs.Bookmark
addchildren tv, nodX, rsReqs, rsReqs!PK_Req
rsReqs.Bookmark = strbook
rsReqs.FindNext strfind
Loop
End Sub
Private Sub addchildren(tv As TreeView, Nodparent As Node, rsReqs As DAO.Recordset, lngParentID As Long)
Dim strfind As String
strfind = "ID_Parent=" & lngParentID
rsReqs.FindFirst strfind
Dim nodX As Node
Dim strbook As String
Do While Not rsReqs.NoMatch
Set nodX = tv.Nodes.Add(Nodparent, tvwChild, , rsReqs!mem_Req)
strbook = rsReqs.Bookmark
addchildren tv, nodX, rsReqs, rsReqs!PK_Req
rsReqs.Bookmark = strbook
rsReqs.FindNext strfind
Loop
End Sub
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI Merci d'y penser dans tes prochains messages. |
4 réponses
-
Bonjour,
je ne vois pas pourquoi.
Sans votre fichier, nous non plus !!!!! -
Bonjour,
1 - Dans quel VB est-ce ? VBA ? VB6 ? VB5 ? VB.NET ?
2 - Sur quelle ligne l'erreur apparait-elle ?
-
Bonjour,
Cette erreur survient lorsque l'on tente d'assigner une valeur sur une variable d'un mauvais type. Avez-vous la ligne où cette erreur est déclarée ? -
Désole pour la réponse tardive je cherchais
c'est la ligne 24
addchildren tv, nodX, rsReqs, rsReqs!PK_Req
Dés
