[求助]查询出错的问题

t-back

版主再帮忙一下,昨天看了一天也没知道错在哪里....

老板就快来查库存了.

给不出他库存我就

辛苦了

gamepower111

学习

t-back

版主早晨,

我又来顶贴了,

周末愉快

等着你帮忙咯

andymark

t-back

辛苦版主,但是附件好象你传错了哦,

这是没修改之前的啦~~~

顺颂商祺

andymark

没错呀

If Nz(Me.ny, "") <> "" Then
If Nz(Me.cl, "") <> "" Then
Me.rk.Form.Filter = "Format([入库时间],'yyyy-mm')='" & Me.ny & "' AND [Type description]='" & Me.cl & "'"

Me.rk.Form.FilterOn = True

Me.ck.Form.Filter = "Format([出库时间],'yyyy-mm')='" & Me.ny & "' AND [Type description]='" & Me.cl & "'"
Me.ck.Form.FilterOn = True

Me.rkhja = Nz(DSum("[数量]", "收货", "Format([入库时间],'yyyy-mm')='" & Me.ny & "' AND [Type description]='" & Me.cl & "'"), 0)
Me.文本15 = Nz(DSum("[数量]", "送货", "Format([出库时间],'yyyy-mm')='" & Me.ny & "' AND [Type description]='" & Me.cl & "'"), 0)
Dim qq As Integer
'qq = DLookup("[期初数量]", "期初数", "[Part no]='" & Me.cl & "'")
'Me.qc = qq + Nz(DSum("[数量]", "入库明细表", "[Part no]='" & Me.cl & "' AND [入库时间]<#" & CDate(Me.ny & "-1") & "#"), 0) - Nz(DSum("[数量]", "出库明细表", "[Part no]='" & Me.cl & "' AND [出库时间]<#" & CDate(Me.ny & "-1") & "#"), 0)
'Me.qm.Requery
Else
MsgBox "请选择一个材料ID！"
Exit Sub
End If
Exit Sub
Else
MsgBox "请选择一个年月！"
Exit Sub
End If

[此贴子已经被作者于2006-11-4 11:35:04编辑过]

andymark

你的表设计有点乱

t-back

是的版主,我都觉得好乱,

其实查询那里是不是能够不要RN-1和DN-1,

直接在出库入库明细表内查询?

现在就是那两个查询,收货和送货的DSUM出错

我还在努力研究,

还望版主支持.

t-back

简单解释一下出错原因

原来导入的模版里面

它的入库明细表有时间一项,

而我的系统中,入裤明细表内没有时间

时间在入库表里,

就是这个不同,导致DSUM出错,

所以我就建立一个查询,把入库表和入库明细表联系在一起

结果DSUM还是错,

所以现在就是不明白如果在我的系统中,

该如何处理入库表和入裤明细表的关系问题咯

谢谢版主指教

t-back

还望版主指点迷津哦,

不顶就沉贴了

顺颂商祺