Selectie foutje

[garfke]

Hey,

Ik probeer al enige tijd volgende selectie uit men db te halen maar elke keer zegt ie dat rs3.nomatch = true
Kan er iemand mij helpen met dit probleem?

tabel BESTEL bestaat uit de velden:
LeverNr, BrouwerNr, Leverdatum

deze tabel is verbonden met BESTELARTIKEL waar dus de producten in komen:
BestelArtikelNr, LeverNr, BierNr, Aantal

Code:

Dim dbs As Database
Dim rs As DAO.Recordset
Set dbs = CurrentDb
Set rs1 = dbs.OpenRecordset("BESTEL", dbOpenDynaset)
Set rs2 = dbs.OpenRecordset("BIER", dbOpenDynaset)

rs1.FindFirst "[BrouwerNr] = " & rs2!BrouwerNr & " and [Leverdatum] = " & Date

Als ik de debugger gebruik geeft ie mooi de waarde van rs2!BrouwerNr en Date dus weet echt niet meer wat het probleem is.

Alvast bedankt.

 

[madref]

Probeer eens:


.....[Leverdatum] = #" & Date &"#"