Giúp sửa code gán recordset với SQL
cuongvan09 > 12-06-12, 02:53 PM
mấy bác ơi xem hộ e cái code này nó sai chỗ nào
Public Function SLgTon(Ma, so As Integer) As Integer
If IsNull(Ma) Or Ma = "" Then
SLgTon = 0
Exit Function
End If
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim StrSQL As String
Set DB = CurrentDb
StrSQL = "SELECT Hang.Masp, IIf(IsNull(Soluong),0,Soluong) AS TONDAU, " & _
"Sum(IIf(Maphieunhap Like "N*",Soluongnhap,0)) AS NHAP, " & _
"Sum(IIf(Maphieuxuat Like "X*",Soluongxuat,0)) AS XUAT, " & _
"TONDAU + NHAP - XUAT AS TONCUOI " & _
"FROM (Hang INNER JOIN Chitietpn ON Hang.Masp = Chitietpn.Masp) INNER JOIN Chitietpx ON Hang.Masp = Chitietpx.Masp" & _
"GROUP BY Hang.Masp, IIf(IsNull(Soluong),0,Soluong)" & _
"HAVING Hang.Masp='" & Ma & "' "
Set RS = DB.OpenRecordset(StrSQL)
SLgTon = IIf(IsNull(RS!TONCUOI), 0, RS!TONCUOI + so) 'Cong lai so cu khi sua so luong xuat
End Function
cái phần e tô màu đó là phần sai,mà e ko biết nó sai chỗ nào hết nên nhờ các bác sữa lại hộ cho e. e xin cảm ơn nhiều ah.