快速計算庫存原始代碼

李玉文

下面的上期數(shù)據(jù)是根據(jù)月進(jìn)行計算的，我想改成日，請高手幫幫忙啦

Public Function k(strCodeID As String, lngY As Long, 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 原料.產(chǎn)品編號, Sum(([進(jìn)貨]-[出貨])) AS 庫存 " & _

             "FROM 原料 " & _

             "WHERE 原料.[rq] < #" & lngM & "/1" & "/" & lngY & "# And 產(chǎn)品編號 ='" & strCodeID & "' " & _

             "GROUP BY 原料.產(chǎn)品編號;"

    rs.Open strSQL, cn, 1

   

    If rs.EOF = True Then Exit Function

   

    k = rs("庫存")

    'MsgBox k

   

    rs.Close

    Set rs = Nothing

    Set cn = Nothing

End Function