Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[help]Giải thích code tính tồn kho
#1
Lightbulb 
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 DMHH.MAHANG, IIF(ISNULL(SLTONDAU),0,SLTONDAU)AS TONDAU, " & _
"Sum(IIf(SOPHIEU Like 'N*', SOLUONG, 0)) AS NHAP, " & _
"Sum(IIf(SOPHIEU Like 'X*', SOLUONG, 0)) AS XUAT, " & _
"TONDAU + NHAP - XUAT AS TONCUOI " & _
"FROM DMHH LEFT JOIN CTPNX ON DMHH.MAHANG = CTPNX.MAHANG " & _
"GROUP BY DMHH.MAHANG, IIF(ISNULL(SLTONDAU),0,SLTONDAU) " & _
"HAVING DMHH.MAHANG='" & 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
e xin cam on may anh nheiu
Cry_smileCry_smileCry_smile
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/ Câu SQL nhằm tính ra số tồn hiện tại trước khi sửa phiếu nhập xuất
2/ so là số lượng cần sửa lại
3/ lấy số tồn cuối trước khi sửa + so thì ra số lượng tồn hiện tại sau khi sửa
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 Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Quên pass code bảo vệ vba thanhhau828 4 233 09-09-17, 05:05 PM
Bài mới nhất: thanhhau828
  [Help] Tự tính đơn giá theo nhiều điều kiện phuongmda 10 567 17-07-17, 10:21 PM
Bài mới nhất: phuongmda
  Giải bài toán về ngày . HoangManh 17 1,347 31-03-17, 10:11 AM
Bài mới nhất: ongke0711
Question ? cách gán thuộc tính .listindex = giá trị được chọn trong combobox vuga 1 266 08-01-17, 11:42 AM
Bài mới nhất: ongke0711
Rainbow ? Thuộc tính Làm mờ giá trị textbox để người dùng không sửa vuga 1 275 04-01-17, 07:13 AM
Bài mới nhất: cpucloi

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ơ