Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: Xuân Thanh 22-06-13, 02:20 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (8) |
(Bài cũ http://thuthuataccess.com/forum/thread-4930.html)
Vẫn lấy CSDL của bài trước, các bạn tạo thêm một table tblTonKho gồm các trường
MaHang Text 20 PrimaryKey
TonDau Number Double Standar 0
Nhap Number Double Standar 0
Xuat Number Double Standar 0
TonCuoi Number Double Standar 0
Hàm Tính Tồn Kho được viết trong modul như sau
Mã PHP:
Function TinhTonKho(Thang As Integer, Nam As Integer)
' Dinh nghia va set bien
Dim NgayDauThang As Date
Dim NgayCuoiThang As Date
NgayDauThang = DateSerial(Nam, Thang, 1)
NgayCuoiThang = DateSerial(Nam, Thang + 1, 1) - 1
Dim rsNhap As Recordset
Dim rsXuat As Recordset
Dim rsTon As Recordset
Set rsTon = CurrentDb.OpenRecordset("tblTonKho", dbOpenTable)
If rsTon.RecordCount > 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From tblTonKho"
DoCmd.SetWarnings True
End If
rsTon.Index = "PrimaryKey"
Set rsNhap = CurrentDb.OpenRecordset("Select a.NgayLap, b.MaHang, b.SoLuong" & _
" From tblPhieuNhap As a Inner join tblPhieuNhapchiTiet as b on a.MaPhieuNhap = b.maPhieuNhap" & _
" Order by a.NgayLap")
Set rsXuat = CurrentDb.OpenRecordset("Select c.NgayLap, d.MaHang, d.SoLuong" & _
" From tblPhieuXuat As c Inner join tblPhieuXuatchiTiet as d on c.MaPhieuXuat = d.MaPhieuXuat" & _
" Order by c.NgayLap")
' Tinh Ton Dau Ky
If rsNhap.RecordCount > 0 Then
rsNhap.MoveFirst
Do Until rsNhap.EOF
If rsNhap!NgayLap >= NgayDauThang Then Exit Do
If rsNhap!Ngaylap < NgayDauThang Then
rsTon.Seek "=", rsNhap!MaHang
If rsTon.NoMatch Then
rsTon.AddNew
rsTon!MaHang = rsNhap!MaHang
rsTon.Update
rsTon.Bookmark = rsTon.LastModified
End If
rsTon.Edit
rsTon!TonDau = rsTon!TonDau + rsNhap!SoLuong
rsTon.Update
End If
rsNhap.MoveNext
Loop
End If
If rsXuat.RecordCount > 0 Then
rsXuat.MoveFirst
Do Until rsXuat.EOF
If rsXuat!NgayLap >= NgayDauThang Then Exit Do
If rsXuat!NgayLap < NgayDauThang Then
rsTon.Seek "=", rsXuat!MaHang
If rsTon.NoMatch Then
rsTon.AddNew
rsTon!MaHang = rsXuat!MaHang
rsTon.Update
rsTon.Bookmark = rsTon.LastModified
End If
rsTon.Edit
rsTon!TonDau = rsTon!TonDau - rsXuat!SoLuong
rsTon.Update
End If
rsXuat.MoveNext
Loop
End If
' Tinh Nhap Xuat Trong Thang
If rsNhap.RecordCount > 0 Then
rsNhap.MoveFirst
Do Until rsNhap.EOF
If rsNhap!NgayLap > NgayCuoiThang Then Exit Do
If rsNhap!NgayLap >= NgayDauThang Then
rsTon.Seek "=", rsNhap!MaHang
If rsTon.NoMatch Then
rsTon.AddNew
rsTon!MaHang = rsNhap!MaHang
rsTon.Update
rsTon.Bookmark = rsTon.LastModified
End If
rsTon.Edit
rsTon!Nhap = rsTon!Nhap + rsNhap!SoLuong
rsTon.Update
End If
rsNhap.MoveNext
Loop
End If
If rsXuat.RecordCount > 0 Then
rsXuat.MoveFirst
Do Until rsXuat.EOF
If rsXuat!NgayLap > NgayCuoiThang Then Exit Do
If rsXuat!NgayLap >= NgayDauThang Then
rsTon.Seek "=", rsXuat!MaHang
If rsTon.NoMatch Then
rsTon.AddNew
rsTon!MaHang = rsXuat!MaHang
rsTon.Update
rsTon.Bookmark = rsTon.LastModified
End If
rsTon.Edit
rsTon!Xuat = rsTon!Xuat + rsXuat!SoLuong
rsTon.Update
End If
rsXuat.MoveNext
Loop
End If
'Tinh Ton Cuoi Ky
rsTon.MoveFirst
Do Until rsTon.EOF
rsTon.Edit
rsTon!TonCuoi = rsTon!TonDau + rsTon!Nhap - rsTon!Xuat
rsTon.Update
rsTon.MoveNext
Loop
rsNhap.Close: rsXuat.Close: rsTon.Close
End Function
P/S : Hàm này tính tồn kho theo Tháng/Năm. Các bạn chế biến theo yêu cầu ví dụ tính tồn kho từ ngày đến ngày....
Đây là một cách viết cơ bản nhất, nó ...hơi dài dòng nhưng dễ hiểu và dễ tiếp cận với những ai mới chập chững đến với VBA. Những ai đã tiếp cận và hơi vững về VBA thì có thể xào nấu lại cho ngắn gọn hơn
Thân mến
|
Viết bởi: stone18k 22-06-13, 01:25 PM Chuyên mục: Query - Bài trả lời (4) |
![[Hình: ift8fr4m65h5y4n4g.jpg]](http://www.mediafire.com/view/ift8fr4m65h5y4n/qh.PNG)
tôi có mối quan hệ giữa các bảng như trên, tôi tính được tổng số học sinh thi lại (dựa vào cột điểm lần 2 khác null) với điều kiện là phải tạo ra 1 sub query làm nguồn trước để nhóm lại theo mã lớp với mã sinh viên. sau đó tôi đếm thì oke.
Nhưng tôi muốn hỏi là có bạn nào tổng được số học sinh thi lại theo lớp nhưng không cần phải tạo 1 query để lấy nguồn như tôi không? xin chỉ giúp với nhé, cám ơn nhiều nhiều.
Link CSDL: http://www.mediafire.com/download/crlac0...2.QLSV.rar
|
|
Viết bởi: stone18k 21-06-13, 05:31 PM Chuyên mục: Forms - Bài trả lời (5) |
![[Hình: 7bu5fzv4sbi3lbf4g.jpg]](http://www.mediafire.com/view/7bu5fzv4sbi3lbf/Capture.PNG)
Như trong hình đó mọi người, điều kiện tìm kiếm dựa vào 2 option group "Tên hàng hóa" và "trị giá". Nhưng chỉ dùng Macro hoặc đặt điều kiện trong query của list box thôi nha mọi người. Tôi chỉ đặt điều kiện trong query của list box để tìm được hóa đơn "Xăng 92" và "25 triệu" thôi, còn lớn hơn hay trong khoản nào đó thì mò hoài chưa ra được. Mong mọi người giúp dùm nhé
CSDL: http://www.mediafire.com/?0xo7z8bld735i5f
|
|
Viết bởi: MieuNu 21-06-13, 03:14 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (2) |
Mình đã upsize file accdb lên SQL nhưng mình đã lỡ làm trực tiếp luôn file đó (tức là ko có sao lưu file gốc).
Bạn nào có cách đổi ngược lại dùm mình được không?
Thanks!
|
Viết bởi: danhxetnghiem 20-06-13, 03:39 PM Chuyên mục: Forms - Bài trả lời (2) |
Mình đang viết 1 chương trình quản lý Xuất - nhập - tồn, mà viết hoài không được, các anh chị có thể cho mình xem 1 chương trình ví dụ không. để mình tập tà làm theo.
Xin cảm ơn.
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 659 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 185 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 630 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |