variable-fout-melding

[JEPEDEWE]

bij volgende code:

 Dim db As Database
    Dim SQL_aantal As String
    Dim tb As Recordset
    Dim x As Integer
    SQL_aantal = "SELECT Projecten.* FROM Projecten WHERE Projecten.leerkracht = " & Me!Combo_naam & ";"
    Set tb = db.OpenRecordset(SQL_aantal)
    tb.MoveFirst
    x = tb.RecordCount

krijg ik als foutmelding:

object variable or with block variable not set voor de lijn met Set tb=......

wat is hier verkeerd?

Merci

 

[JEPEDEWE]

probleem opgelost
ik voegde deze lijn toe:

Set db = CurrentDb()

et voila

 

[OctaFish]

Mag je de draad ook nog op Opgelost zetten! Let overigens op het gebruik van je variabelenamen: db als Database is prima; tb as Recordset is een beetje verwarrend. Je kunt beter rs, of rst o.i.d. nemen; een recordset kan namelijk ook een query zijn, en hoeft dus niet altijd een tabel te wezen. In de db gemeenschap is rs(t) dan ook gemeengoed.