Signaler

Erreur d'excution 13 incompatibilité type

Posez votre question whatyourpseudo 4Messages postés mercredi 19 octobre 2016Date d'inscription 19 octobre 2016 Dernière intervention - Dernière réponse le 19 oct. 2016 à 15:47 par whatyourpseudo
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 
Utile
+0
plus moins
Bonjour,

je ne vois pas pourquoi.

Sans votre fichier, nous non plus !!!!!
Donnez votre avis
Utile
+0
plus moins
Bonjour,

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

Donnez votre avis
Utile
+0
plus moins
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 ?
Donnez votre avis
Utile
+0
plus moins
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 4Messages 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
Répondre
f894009 11385Messages postés dimanche 25 novembre 2007Date d'inscription 28 mars 2017 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
Répondre
whatyourpseudo 4Messages 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
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !