Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Giúp sửa code gán recordset với SQL
#1
Tongue 
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.
Chữ ký của cuongvan09 Xin chào, mình là cuongvan09, Tham gia http://thuthuataccess.com/forum từ ngày 17-03 -12.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cuongvan09
#3
Xem thêm tại đây

http://thuthuataccess.com/forum/thread-4930.html
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] K biết là lỗi hay gì cần trợ giúp. nhocdevill11 2 52 9 Giờ trước
Bài mới nhất: nhocdevill11
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Không chạy được VBA Code hungthanmx 3 219 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 258 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x
  [Help] ai giúp mình code lại sql này thành access với li_95 0 133 24-04-16, 05:59 PM
Bài mới nhất: li_95

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ