救我啊,我到底錯在哪里

zsswjm

運行出現錯誤提示:型態不符合
該段代碼為: if((dlookup("[庫存]","庫存","[料號]=" & "'" & FORMs!領料主檔.領料總計!料號 &"'" and "[批號]=" & "'" & FORMs!領料主檔.領料總計!批號 & "'")< FORMs!領料主檔.領料總計!領料數量 then
msgbox"您的領料有誤,請更正",,"aa"
end if


[em08]

大熊

建议折开来，分步测试再组装。发现问题很Easy的。

CJB_2001

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

zsswjm

大哥不行啊,我按照您的做還是不行.救我啊