关于DLOOKUP, 我急呀!!

kelind

请高手帮我打引号...." ' ' "



DLOOKUP  从"加油站流水表"中找"止数",传给下一记录的"起数",如果是"白"班,则用上一日的夜班数,如果是"夜"班,用当日的"白"班数.

不知什么原因不执行,也没有提示,请高手帮看看.



Private Sub 起数_GotFocus()

Dim rq As Date

Dim bz As String

Dim jh As String

rq = Me.日期

jh = Me.机号

If Me.班次 = "白" Then

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

Else

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

End If

情比金坚

不急，不急，已经调试过了

caisen

Private Sub Command0_GotFocus()Dim rq As Date

Dim bz As String

Dim jh As Stringrq = Me.日期

jh = Me.机号If Me.班次 = "白" Then

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

End IfEnd Sub

caisen

试试看吧,自己调试一下Private Sub Command0_GotFocus()Dim rq As Date

Dim bz As String

Dim jh As Stringrq = Me!日期.value

jh = Me!机号.valueIf Me.班次 = "白" Then

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

End IfEnd Sub

[em06][em01][em02][em06]