月上余数的问题请教

zyz218

<IMG>


'****************************
'名称：月上期余额示例
'作者：zhengjialon(access-cn and access abc)
'时间：2004-01-30
'****************************

'实现了在一条记录中查询上月余额本月进库和结余的问题
'本例是使用了进出库在一个表中，如果是进库和出库分别为两个表也是一样。
Public Function k(strCodeID As String, lngM As Long) As Long
    Dim strSQL As String
    Dim rs As Object
    Dim cn As Object
   
    Set cn = Application.CurrentProject.Connection
    Set rs = CreateObject("ADODB.Recordset")
   
    '将材料代码和日期代入到查询条件中去
    strSQL = "SELECT spare.dept, Sum(([in]-[out])) AS qty " & _
             "FROM spare " & _
             "WHERE spare.yearmonth <=lngM  And dept ='" & strCodeID & "' " & _
             "GROUP BY spare.dept;"
    rs.Open strSQL, cn, 1
   
    If rs.EOF = True Then Exit Function
   
    k = rs("qty")
    'MsgBox k
   
    rs.Close
    Set rs = Nothing
    Set cn = Nothing

End Function
以上的代码错在那里？


<IMG>

zyz218

等了一天！！！没人指点一下，在下想破了头也不行！！！



此贴讨论请到

http://www.office-cn.net/forum.php?mod=viewthread&tid=52998

[此贴子已经被作者于2007-3-19 13:12:28编辑过]

yachtz

"WHERE spare.yearmonth <=lngM  And dept ='" & strCodeID & "' " & _


[yearmonth]应该是日期吧？lngM是 long

lngM 应该写成  " & lngM & "

dept 与strcodeid类型匹配吗？

有附件才能说得清楚

zyz218

问题已解决，谢谢三楼!