(18-08-21, 07:13 PM)dotrung Đã viết: Bị lỗi phần khai báo biến rTonNgay As DAO.Recordser nên em không chạy được ạ

Lỗi chính tả thôi mà. -> Recordset

Dạ vẫn còn lỗi nạp tồn đầu, hic hic

(18-08-21, 08:22 PM)dotrung Đã viết: Dạ vẫn còn lỗi nạp tồn đầu, hic hic

Đã thực hiện chạy code TinhTonKho(Month(TuNgay), Year(TuNgay)) chưa? Phải thực hiện code này trước mới có Tồn Đầu Kỳ. Copy lại đoạn code đã sửa #20

Em vẫn bị lỗi nữa anh Thanh ơi, mong anh chỉ chỗ sai giúp em ạ, cảm ơn anh!

file đính kèm : https://www.mediafire.com/file/zenqijd65...accdb/file

1/ Nạp không đầy đủ các table như đã đề xuất(tblTonKhoNgay)
2/ Không tính tồn kho liên tục của các tháng nên không có số liệu Tồn Đầu Kỳ của tblTonKho
3/ Chưa sửa lại hàm theo bài #20
4/ Làm lại như đã hướng dẫn

Em đã làm theo hướng dẫn nhưng khi call (tungay,denngay) bị lỗi đoạn 

Trích dẫn:CongThemTonDau:
   
    If rnx.RecordCount > 0 Then rnx.MoveFirst
    Do Until rnx.EOF
        rTonNgay.Seek "=", rnx!MaKho & "-" & rnx!MaHang
        If rTonNgay.NoMatch Then
            rTonNgay.AddNew
            rTonNgay.RecKey = KhoaMoi & "-" & rnx!MaKho & "-" & rnx!MaHang
            rTonNgay!MaKho = rnx!MaKho
            rTonNgay!MaHang = rnx!MaHang
            rTonNgay!TonDau = 0: rTonNgay!TienDau = 0: rTonNgay!Tongnhap = 0: rTonNgay!TienNhap = 0
            rTonNgay!Tongxuat = 0: rTonNgay!Tienxuat = 0: rTonNgay!TonCuoi = 0: rTonNgay!TienCuoi = 0
            rTonNgay.update
            rTonNgay.Bookmark = rTonNgay.LastModified
      End If

link : https://www.mediafire.com/file/m6lkpzo9o...accdb/file

rTonNgay.RecKey = rnx!MaKho & "-" & rnx!MaHang
Sory vì sau khi copy quên xóa đoan đầu. Sủa lại là ok

Hic Hic, em mò vẫn chưa ra ạ!

[img] https://uphinh.org/image/O5wgbN [/img]

(19-08-21, 01:21 PM)dotrung Đã viết: Hic Hic, em mò vẫn chưa ra ạ!

[img] https://uphinh.org/image/O5wgbN [/img]

Bạn chưa hiểu rõ code nó hoạt động như thế nào mà đem vào ráp nối thì nó báo lỗi tùm lum.
1. Gõ lệnh test trong cửa sổ Immediate cũng sai: biến ngày phải được đưa vô cặp dấu #...# thì VBA mới hiểu đó mà Date.
    Vd: ?TinhTonKhoNgay(#1/1/2021#,#15/8/2021#)

2. Code của bác Thanh nó cũng hơi cổ như tuổi của bác nên còn dùng các phương thức như: Seek, dbOpenTable. Hiện tại thì chạy được (dùng local table), sau này bạn đổi qua dùng linked Table là báo lỗi ngay. Seek đổi qua FindFirst, dbOpenTable --> dbOpenDynaset. Bạn tự tìm từ khoá FindFirst để biết cách dùng.

3. Sửa: rTongNgay.Reckey --> rTonNgay!Reckey

4. Về cái lỗi rnx!MaHang, có 2 nguyên nhân: 
- Nguyên nhân đầu tiên là do gõ tham số Ngày sai ở mục 1 đã nói.
- Nguyên nhân thứ 2: là do dữ liệu có các record rác tức là tblPhieuNhapXuat có "Số chứng từ" nhưng trong table con tblPhieuNhapXuatChiTiet là không có dữ liệu cho "số CT" này (PN2021060040,PN2021080065,PN2021080066). Đúng ra là không được lưu các Record dạng này --> phải xem lại thiết kế form nhập liệu của trường hợp này, bẫy lỗi không cho lưu nếu không đủ dữ liệu.

Vì table chi tiết không có dữ liệu nên các rnx!MaKho,=NULL, rnx!MaHang =NULL --> báo lỗi như hình.
Muốn bẫy cái lỗi này cũng được bằng cách thêm câu lệnh kiểm tra:

Em đã xóa các dữ liệu dư rồi nhưng vẫn lỗi.
Do chỉ học access căn bản, tự học qua sách và trên diễn đàn của mình nên tư duy lập trình của mình còn yếu.