Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hướng dẫn] Demo Tính Tồn Theo Ngày
#1
Có rất nhiều bạn thắc mắc về tính tồn theo ngày (Tồn Quỹ, Tồn Kho...). Có cách giải quyết bằng query như ongke0711 đã giới thiệu. Hôm nay giới thiệu với các bạn bản demo này dùng VBA để tính vì tôi thích dùng VBA hơn do tính bảo mật cao của nó.
1/ Giả sử ta có một Database TonQuy có table tblThuChi gồm các field sau
- NgayChungTu, Date
- TienThu, Number
- TienChi, Number

2/ Ta tao thêm table tblTon để chứa dữ liệu trả về của hàm TinhTon viết trong modul gồm các field sau
- NgayChungTu, Date
- TonDau, Number
- TienThu, Number
- TienChi, Number
- TonCuoi, Number
Ghi Chú : Nhớ set Default Value cho các textbox dạng số là 0 nếu không sẽ bị lỗi

3/Mở modul mới và chép hàm này vô
Mã PHP:
Function TinhTon(TuNgay As DateDenNgay As Date)
   Dim TC As Recordset
   Set TC 
CurrentDb.OpenRecordset("tblThuChi"dbOpenTable)
   Dim Ton As Recordset
   Set Ton 
CurrentDb.OpenRecordset("tblTon"dbOpenTable)
'Xoa Table Ton
   If Ton.RecordCount > 0 Then CurrentDb.Execute "Delete * From tblTon"
'
Tinh Ton Dau
   Dim So 
As Long
   So 
0
   TC
.MoveFirst
   Do Until TC
.EOF
       So 
So TC!TienThu TC!TienChi
       TC
.MoveNext
       If TC
!NgayChungTu >= TuNgay Then Exit Do
   Loop
'Tinh Thu Chi Ton Trong Ngay
   Do Until TC.EOF
       If TC!NgayChungTu >= TuNgay And TC!NgayChungTu <= DenNgay Then
           Ton.AddNew
           Ton!NgayChungTu = TC!NgayChungTu
           Ton!TonDau = So
           Ton!TienThu = TC!TienThu
           Ton!TienChi = TC!TienChi
           Ton!TonCuoi = Ton!TonDau + Ton!TonCuoi + TC!TienThu - TC!TienChi
           So = Ton!TonCuoi
           Ton.Update
       End If
       TC.MoveNext
   Loop
   TC.Close: Ton.Close
End Function 

4/ Tạo môt report rptThuChi có nguồn là tblTon
5/ Tạo một from frmBaoCao, có 2 textbox txtTuNgay, txtDenNgay (nhớ format cho nó để hiển thi ngày tháng chuẩn dạng dd/mm/yyyyy) và một commandbutton cmdBaoCao với
Mã PHP:
Private Sub cmdBaoCao_Click()
      Call TinhTon(Me.txtTuNgay,Me.txtDenNgay)
      Docmd.OpenReport "rptThuChi"acViewNormal 
End Sub 

Xem bản demo kèm theo. Trong bản demo chưa có form, các bạn tự tạo theo hướng dẫn trên
Thân mến


File đính kèm
.zip   Demo TonDauNgay.zip (Kích cỡ: 39.19 KB / Tải về: 38)
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
#2
Để tính tồn kho nhanh và chính xác tôi khuyên các bạn sử dụng lện SQL trong access
Chữ ký của tt1212 -  Phần mềm quản lý bán hàng - nhà phân phối -phòng khám https://butso.net/
-  Hỗ trợ những khó khăn vướng mắc cần chia sẻ giải đáp: 08-665.977.68
-   Email. Tantriviet.vnn@gmail.com
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
  [Hỏi] Phần mềm kế toán doanh nghiệp theo TT200 mqhuan123 5 1,141 12-01-18, 12:36 PM
Bài mới nhất: mqhuan123
  Phần mềm chấm công - theo dõi ngày công Nguyendinhthanh 3 4,121 01-01-18, 07:47 PM
Bài mới nhất: quyethoa22
Star [Chương trình] Quản lý bán hàng cho cửa hàng vi tính quy mô nhỏ. quan_pc 15 8,079 28-10-16, 10:49 AM
Bài mới nhất: btnnhut
  [Chương trình] Phần mềm kế toán HDSOFT_Update mới nhất theo thông tư 200/2014/TT-BTC hoangdungcr 2 1,837 30-05-16, 01:15 AM
Bài mới nhất: hoangdungcr
  [Help] Giúp Tạo Form tìm kiếm theo nhiều điều kiện nguyenhoangbanhan 8 3,404 17-05-16, 09:32 PM
Bài mới nhất: maidinhdan

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line