Office中国论坛/Access中国论坛

标题: 帮我看看这段编码,有什么问题 [打印本页]

作者: eastport 时间: 2004-2-12 07:47
标题: 帮我看看这段编码,有什么问题
帮我看看这段编码,有什么问题,那个KUCUN老是为0,提取不到库存数值啊

Private Sub 出库数量_AfterUpdate()
Dim kucun As Integer, no_chuku As Integer
no_chuku = Me![出库数量]
kucun = DLookup("[库存数量]", "库存", [产品编号] = Me![产品编号])
If no_chuku > kucun Then
MsgBox "出库数量大于库存数量，还要坚持出库吗!", vbOKOnly, ""
End If

End Sub
[em17]

[此贴子已经被作者于2004-2-11 23:48:32编辑过]

作者: sea.er 时间: 2004-2-12 08:02
kucun = DLookup("[库存数量]", "库存","[产品编号]=" & "'" & Me.产品编号 & "'")

作者: eastport 时间: 2004-2-12 15:58
成功！谢谢，但我不懂啊，什么意思啊，

作者: zhengjialon 时间: 2004-2-12 16:04
DLookup是域函数，从一个记录集（表或查询）中按条件取得一个了段值，具体可以见ACCESS帮助里的描述。

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