Type mismatch bij setten Recordset

[fleppuhstein]

HEt volgende is de code

code:

Function stelvraag(temp_regelprop) As Boolean
Dim db_qd As querydef
'querydef variabele aangemaakt
Set db_qd = db_db.Querydefs("stelvraag")
'querydef ingesteld op de juiste query
db_qd.Parameters!regelid.Value = temp_regelprop
'Parameters meegeven aan de query
Set db_rs = db_qd.openrecordset(dbopendynaset)
db_rs.MoveFirst
'Query uit laten voeren
If db_rs.EOF And db_rs.BOF Then
 MsgBox "Recordset is leeg"
End If
'Kijken of er matches zijn op de query
stelvraag = db_rs.Fields("ask")
MsgBox stelvraag
'antwoorden terug koppelen naar de hoofdfunctie.
End Function

Bij het setten van de recordset krijg ik error 13 type mismatch, waar ligt dit aan ? Dis de eerste keer dat ik met access wekr in VB, maar verder weet ik wel hoe en wat ? maar ik kom niet verder, om de een of andere reden in de variabele db_qd.openrecordset(dbopendynaset)gevuld met de waarde twee, ik weet niet of dit hoort ? maar misschien is het een extra bij het ontleden van het probleem

[Tsjipmanz]

Type mismatch is dat je incompatible datatypes doorelkaar gebruikt. Kijk hier eens naar, zijn de datatypes in toekenningen wel gelijk?

[fleppuhstein]

Op woensdag 29 mei 2002 11:50 schreef Tsjipmanz het volgende:
Type mismatch is dat je incompatible datatypes doorelkaar gebruikt. Kijk hier eens naar, zijn de datatypes in toekenningen wel gelijk?

uhhh, allemaal van het type recordset ?

[robjanssen]

Ik heb de situatie nagemaakt en bij mij werkt het perfect.

Werkt de query in Acces wel?

[fleppuhstein]

Op woensdag 29 mei 2002 20:18 schreef robjanssen het volgende:
Ik heb de situatie nagemaakt en bij mij werkt het perfect.

Werkt de query in Acces wel?

Ik heb de fout gevonde, er stonden bij de references een aantal ActiveX componenten aan die als stoorzender functioneerde. Nu alleen een ander probleem de record set blijft leeg, het lijkt alsof de query niet wordt uitgevoerd, en in Access werkt de query goed.