[VBA] Objecten converteren

[anoniem]

Hallo, Ik heb een probleem met VBA (VBA is in mijn opzicht sowieso al een probleem...), ik heb een functie die voor mij een recordset maakt en teruggeeft naar de aanroeper. Er wordt alleen geen recordset teruggegeven maar een Object. Het probleem is dat ik een recordset verwacht, ik moet dus gaan casten van een object naar een recordset. Iemand enig idee hoe dit werkt, de help biedt geen oplossing (onverwacht...) en op internet wordt ik er ook niet wijzer van. Bvd

[anoniem]

Best BOOTjE. Hoe is de declaratie van de functie, en hoe wordt het resultaat teruggegeven? Kun je wat (verkorte) code geven?

[anoniem]

[b:f6264490b5]Aanroep:[/b:f6264490b5] [code:1:f6264490b5]Dim rst as Recordset Set rst = getRecordSet[/code:1:f6264490b5] [b:f6264490b5]Function:[/b:f6264490b5] [code:1:f6264490b5]private Function getRecordSet Dim rst as Recordset Set rst = dbConnection.OpenRecordset(sql, dbOpenSnapshot, adOpenForwardOnly) getRecordSet = rst end Funcction[/code:1:f6264490b5]

[anoniem]

Het is al weer lang geleden, maar volgens mij moet je achter die functiedeclaratie: 'as RecordSet' zetten...

[anoniem]

Inderdaad, lijkt mij ook noodzakelijk. Verder zou ik nog voor het verlaten van de functie [code:1:a2b60970bb]Set rst = nothing[/code:1:a2b60970bb] toevoegen. VB(A) zou de rommel moeten opruimen, maar zeker is zeker.