恼火的DLOOKUP,为什么总是类型不匹配?

kelind

Private Sub 起数_GotFocus()

Dim rq As Date

Dim bz As String

Dim jh As String

Dim qs As Single

bz = Me.班次.Value

rq = Me.日期.Value

jh = Me.机号.Value

If Me.班次 = "白" Then

qs = DLookup("[止数]", "加油站流水表", "[日期] = #' & rq - 1 & '# " And "[班次] ='夜'" And "[机号]='" & jh & "'")

Me.起数 = qs

Else

qs = DLookup("[止数]", "加油站流水表", "[日期] = #" & rq & "# " And "[班次] ='白'" And "[机号]='" & jh & "'")

Me.起数 = qs

End If



End Sub

                怎么调都是"类型不匹配", 请高手帮我看看.先谢谢了!

tanjh

试试这个DLookup("[止数]", "加油站流水表", "[日期] = #" & rq - 1 & "#  And [班次] ='夜' And [机号]='" & jh & "'")

kelind

也不行！[em03][em06]