Menu

Erreur d'excution 13 incompatibilité type [Fermé]

whatyourpseudo 4 Messages postés mercredi 19 octobre 2016Date d'inscription 19 octobre 2016 Dernière intervention - 19 oct. 2016 à 13:51 - Dernière réponse : whatyourpseudo 4 Messages postés mercredi 19 octobre 2016Date d'inscription 19 octobre 2016 Dernière intervention
- 19 oct. 2016 à 15:47
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
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.
Afficher la suite 

7 réponses

f894009 12962 Messages postés dimanche 25 novembre 2007Date d'inscription 25 avril 2018 Dernière intervention - 19 oct. 2016 à 13:57
0
Utile
Bonjour,

je ne vois pas pourquoi.

Sans votre fichier, nous non plus !!!!!
jordane45 20624 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 26 avril 2018 Dernière intervention - 19 oct. 2016 à 13:58
0
Utile
Bonjour,

1 - Dans quel VB est-ce ? VBA ? VB6 ? VB5 ? VB.NET ?
2 - Sur quelle ligne l'erreur apparait-elle ?

fromagedebikette 859 Messages postés mercredi 16 avril 2008Date d'inscription 31 octobre 2016 Dernière intervention - 19 oct. 2016 à 13:58
0
Utile
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 ?
whatyourpseudo 4 Messages postés mercredi 19 octobre 2016Date d'inscription 19 octobre 2016 Dernière intervention - 19 oct. 2016 à 14:58
0
Utile
3
Désole pour la réponse tardive je cherchais
c'est la ligne 24
addchildren tv, nodX, rsReqs, rsReqs!PK_Req



Dés
ol
whatyourpseudo 4 Messages postés mercredi 19 octobre 2016Date d'inscription 19 octobre 2016 Dernière intervention - 19 oct. 2016 à 15:34
Personne pour m'aider je galère dessus
f894009 12962 Messages postés dimanche 25 novembre 2007Date d'inscription 25 avril 2018 Dernière intervention > whatyourpseudo 4 Messages postés mercredi 19 octobre 2016Date d'inscription 19 octobre 2016 Dernière intervention - 19 oct. 2016 à 15:45
Re,

votre sub addchildren(tv As TreeView, Nodparent As Node, rsReqs As DAO.Recordset, lngParentID As Long)
attend un entier long en dernier

addchildren tv, nodX, rsReqs, rsReqs!PK_Req
C'est quel type dans la base
whatyourpseudo 4 Messages postés mercredi 19 octobre 2016Date d'inscription 19 octobre 2016 Dernière intervention - 19 oct. 2016 à 15:47
C'est des chiffres as long