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.

1/ Nếu đã là query(SELECT...) thì sao không chạy thăng query để lấy kết quả mà phải dùng code làm chi cho mệt?
2/ Đưa câu SQL ra lưới query rồi kiểm tra là biết liền
3/ Đã không có Ma thì làm gì có SLTon?
Thân

Xem thêm tại đây

http://thuthuataccess.com/forum/thread-4930.html