帮我看看这段编码,有什么问题

eastport

帮我看看这段编码,有什么问题,那个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

kucun = DLookup("[库存数量]", "库存","[产品编号]=" & "'" & Me.产品编号 & "'")

eastport

成功！谢谢，但我不懂啊，什么意思啊，

zhengjialon

DLookup是域函数，从一个记录集（表或查询）中按条件取得一个了段值，具体可以见ACCESS帮助里的描述。