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
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
moins plus
Bonjour,

je ne vois pas pourquoi.

Sans votre fichier, nous non plus !!!!!
Ajouter un commentaire
Utile
+0
moins plus
Bonjour,

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

Ajouter un commentaire
Utile
+0
moins plus
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 ?
Ajouter un commentaire
Utile
+0
moins plus
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 10665Messages postés dimanche 25 novembre 2007Date d'inscription 4 décembre 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
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
Ajouter un commentaire

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 !