Public Function GetItemQunt11(ByVal ItmCode As String, ByVal StkCode As Double, ByVal Qunt As Double) As Boolean Dim TTab As Recordset Dim SqlStr As String
SqlStr = "SELECT SUM(Quntity) AS VL FROM ItemTran " SqlStr = SqlStr & " WHERE ItemCode = '" & ItmCode & "'" SqlStr = SqlStr & " AND StkCode = " & StkCode SqlStr = SqlStr & " GROUP BY ItemCode,StkCode" Set TTab = DB1.OpenRecordset(SqlStr, dbOpenDynaset) If Not TTab.EOF Then TTab.MoveFirst If TTab("VL") < Qunt Then MsgBox "aaa" GetItemQunt = False Else GetItemQunt = True End If Else MsgBox "bb" GetItemQunt = False End If End Function
