Object vereist

[JEPEDEWE]

ik heb problemen met volgende code

Dim sql As String
Dim TB As Recordset
Set f = Forms![Invoer voorschrift - terugkeer]
f!NAAM = Forms!patlijst!NAAM
sql = "SELECT VOORSCHR.* FROM VOORSCHR WHERE left(VOORSCHR.KODELANG,11) ='" & Left([Forms]![patlijst]![KODELANG], 11) & "';"
Set TB = db.OpenRecordset(sql)

De SQL string ziet er uiteindelijk zo uit

SELECT VOORSCHR.* FROM VOORSCHR WHERE left(VOORSCHR.KODELANG,11) ='13042043001';

bij Set TB...
Krijg ik de foutmelding 424 "Object vereist"

Als ik de SQL in een query stop dan krijg ik netjes 1 record zoals het hoort

Snap het (weerom) niet

 

[edmoor]

En wat is die db in db.OpenRecordset(sql)?

 

[JEPEDEWE]

Is dat fout? Ik schrijf dat altijd zo...

 

[edmoor]

Dat is wel zich wel goed, maar je definieert het nergens als object.
Tenminste niet in de code die je laat zien.

 

[JEPEDEWE]

Dat was het dus inderdaad
Ferm bedankt maat

respect
JP

 

[OctaFish]

Altijd zo doen: Set TB = CurrentDB.OpenRecordset(sql). Nergens voor nodig om db te definiëren, want je doet er verder toch niks mee.