Office中国论坛/Access中国论坛

标题: 救我啊,我到底錯在哪里 [打印本页]

作者: zsswjm 时间: 2003-3-4 19:21
标题: 救我啊,我到底錯在哪里
運行出現錯誤提示:型態不符合
該段代碼為: if((dlookup("[庫存]","庫存","[料號]=" & "'" & FORMs!領料主檔.領料總計!料號 &"'" and "[批號]=" & "'" & FORMs!領料主檔.領料總計!批號 & "'")< FORMs!領料主檔.領料總計!領料數量 then
msgbox"您的領料有誤,請更正",,"aa"
end if

[em08]

作者: 大熊 时间: 2003-3-4 19:54
建议折开来，分步测试再组装。发现问题很Easy的。

作者: CJB_2001 时间: 2003-3-4 21:57
请试：
Dlookup 查询不到时，传回null,
Dim intNum as intger
intNum=IIf(isNull(Dlookup(...),0,Dlookup(...))
if((dlookup("[庫存]","庫存","[料號]='" & FORMs!領料主檔.領料總計!料號 & "' and [批號]='" & FORMs!領料主檔.領料總計!批號 & "'")< FORMs!領料主檔.領料總計!領料數量 then
msgbox"您的領料有誤,請更正",,"aa"
end if

作者: zsswjm 时间: 2003-3-5 04:43
标题: 大哥不行啊,我按照您的做還是不行.
大哥不行啊,我按照您的做還是不行.救我啊

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