Run time error 3464

[mikeba1]

I'm going crazy.

The following gives me the error

Dim bh As Date
bh = DLookup("[bhdate]", "bankholidays", "[bhdate] = '" & [NextDateFrom] & "' ")


info

table bankholidays

bhdate Date/Time (key)
bhname Text


[NextDateFrom] is a date field on the current form

 

[Andrzejek]

Did you try:
[tt]
bh = DLookup("[bhdate]", "bankholidays", "[bhdate] = #" & [NextDateFrom] & "#")
[/tt]

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

 

[mikeba1]

Thanks Andy

It no longer gives me the error BUT doesn't return anything in bh, even if a record exists for that date

 

[dhookom]

Try use the immediate/debug window to test some expressions with hard-coded dates. Or you could set a break point in your code to check the value of [NextDateFrom].

Duane
Hook'D on Access
MS Access MVP

 

[mikeba1]

I use msgbox to look at nextdatefrom, and it is a valid date

 

[dhookom]

I expect it's a valid date in some other location but probably not the U.S. format. Check out Allen Browne's tips on dates.

Duane
Hook'D on Access
MS Access MVP

 

[mikeba1]

Thanks guys
Changed format and it worked