Office中国论坛/Access中国论坛

标题: 关于DLOOKUP, 我急呀!! [打印本页]

作者: kelind 时间: 2004-12-23 03:39
标题: 关于DLOOKUP, 我急呀!!

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

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

作者: 情比金坚 时间: 2004-12-23 04:43
不急，不急，已经调试过了

作者: caisen 时间: 2004-12-23 07:00
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 时间: 2004-12-23 07:03
试试看吧,自己调试一下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]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)