Archief - [PROG][VB] Bij uitvoeren,error die ik niet begrijp.

dobber_1987 · 25 mei 2006

Waarom geeft hij die error? Hij sluit toch rsBooks2 af, niet rsBooks.

Sub exaObjectVar()

Dim dbLib As Database
Dim rsBooks As Recordset
Dim rsBooks2 As Recordset

Set dbLib = CurrentDb
Set rsBooks = dbLib.OpenRecordset("dranken")
Set rsBooks2 = rsBooks

MsgBox "BOOKS record count: " & rsBooks.RecordCount

rsBooks2.Close

'Now rsBooks has nothing to refer to, so we get error
MsgBox "BOOKS record count: " & rsBooks.RecordCount

End Sub

Pietsnot · 26 mei 2006

sluit keer rsBooks ook af, kan zijn dat daar aan ligt, ben nie zo een programmeerwonder, ma as ge me een database werkt, moede altijd alles afsluite, tenzij da ge veel moe wegschrijven/ophalen, dan kunde ze int begin openen, en op het einde van de applicatie sluiten

killgore · 26 mei 2006

rsBooks en rsBooks2 zijn het zelfde object. Je maakt geen nieuw object aan bij het maken van rsBooks2, maar steekt de referentie van rsBooks gewoon ook in rsBooks2.

dobber_1987 · 29 mei 2006

Pietsnot zei:
sluit keer rsBooks ook af, kan zijn dat daar aan ligt, ben nie zo een programmeerwonder, ma as ge me een database werkt, moede altijd alles afsluite, tenzij da ge veel moe wegschrijven/ophalen, dan kunde ze int begin openen, en op het einde van de applicatie sluiten

Er moet een error worden gegeven

killgore zei:
rsBooks en rsBooks2 zijn het zelfde object. Je maakt geen nieuw object aan bij het maken van rsBooks2, maar steekt de referentie van rsBooks gewoon ook in rsBooks2.

Ah ok, ksnap het

Archief - [PROG][VB] Bij uitvoeren,error die ik niet begrijp.

dobber_1987

Legacy Member

Pietsnot

Legacy Member

killgore

Legacy Member

dobber_1987

Legacy Member