Tùy chọn
Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
- Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
-
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
ongke0711 > 24-08-17, 10:01 AM
(24-08-17, 09:49 AM)ledangvan Đã viết: Ongke ơi nó báo thế này là sao :
Private Sub cmdTinh_Click()
Dim db As DAO.Database (User-defined type not defined)
...
Anh có khai báo thư viện DAO 3.6 chưa?
(24-08-17, 09:19 AM)ledangvan Đã viết: ... dùng query Append để thêm các dữ liệu của vật tư đó vào một table có sẵn. (Khi append dữ liệu anh đã lọc trong query với điều kiện theo ngày, theo số chứng từ và theo nợ có - để nếu cùng ngày thì nhập lên trước. Cái ID ở table có sẵn anh để nó là AutoNumber để tự nó nhảy - > Như vậy khi Append dữ liệu vào thì đương nhiên nó sắp xếp theo đúng thứ tự.
Từ bảng lọc được dữ liệu theo ý muốn anh lấy kết quả của bảng này update lại giá trị của bảng gốc thông qua cái HDID - Cái này là ID của hóa đơn gốc
Cái thủ thuật tạo cái ID tăng dần này hay đó anh. Học hỏi được một cách khác nữa. Lúc trước em làm là phải dùng thêm cái hàm tạo số thứ tự.
-
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
ledangvan > 25-08-17, 03:53 PM
Ongke ơi, nếu từng tháng cập nhật thì OK, từ tháng 4-12 thì OK nhưng từ tháng 1 đến tháng 4 thì báo lỗi, từ tháng 1-8 báo lỗi, từ tháng 2-8 báo lỗi ... nói chung là từ tháng 1, 4 có vấn đề. -
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
ledangvan > 25-08-17, 03:57 PM
Nó báo Run-time Error '3144'
Syntax error in UPDATE statement -
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
ongke0711 > 25-08-17, 04:40 PM
Máy e chạy thấy bình thường. A thêm Nz() cho mấy trường trong câu lệnh Sql update xem thử còn lỗi ko. -
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
ledangvan > 25-08-17, 05:01 PM
Nó sai ở mục tính ngày Ongke à : Anh cho hiện cái từ ngày, đến ngày , khi ấn tính giá vốn nó sẽ hiện từ ngày đến ngày
Khi ấn Tháng 1 đến 1 -> Nó sẽ hiện là 01/01/2017 và 31/01/2017
Khi ấn Tháng 1 đến 2 -> Nó sẽ hiện là 01/01/2017 và 31/01/2017 và báo lỗi
Khi ấn Tháng 2 đến 3 -> Nó sẽ hiện là 01/03/2017 và 31/03/2017
Khi ấn Tháng 4 đến 5 -> Nó sẽ hiện là 01/05/2017 và 31/05/2017
....
Nói chung là sai
-
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
ongke0711 > 25-08-17, 05:33 PM
anh phải xem trong màn hình VBA. Em có dòng Debug.Print NgayXuat đó, nó liệt kê các ngày tính toán. Còn cái textbox tungay, đến ngày sẽ hiện giá trị khi vòng lặp đổi sang tháng khác nhưng nó hiện nhanh, a ko thấy kip.
-
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
ledangvan > 25-08-17, 06:29 PM
Nó tính không đúng rồi Ongke ơi, em thử xóa đơn giá xuất của bảng gốc Sovattu5 rồi tính lại xem, nó không vào được giá mới -
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
ongke0711 > 25-08-17, 09:16 PM
(25-08-17, 06:29 PM)ledangvan Đã viết: Nó tính không đúng rồi Ongke ơi, em thử xóa đơn giá xuất của bảng gốc Sovattu5 rồi tính lại xem, nó không vào được giá mới
Không biết anh đang xài phiên bạn nào. Anh download lại file .mdb (hoặc .accdb) mới nhé. Mấy file cũ bị lỗi.
Em đã xóa cột [Dongiaxuat] và cột [PSCo] luôn rồi và kết quả vẫn ra bình thường anh à.
Còn để chạy nguyên năm (cho toàn bộ 376 mã VT, 700 giao dịch, 7.600 records) thì nó chạy khá lâu (2- 3 phút) do vậy tốt nhất là chạy từng tháng (khoảng 5s) .
- Link file .mdb: http://www.mediafire.com/file/lylb0l01aq...nal%29.mdb
- Link file Access 2013: http://www.mediafire.com/file/p9a2iyphai...l%29.accdb
- Link file excel tính thủ công để xem kết quả đúng không. http://www.mediafire.com/file/tj0vpxjyqs1txw4/test.xlsx
(PS: Đã cập nhật lại link ở các bài post trước) -
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
TvAcc > 25-08-17, 10:36 PM
Nó báo lỗi chỗ này: db.Execute strUpdate, dbFailOnError
- Từ tháng 1 đến tháng 3 có xuất kho (NoCo = -1) thì bị lỗi
- Các tháng còn lại chỉ có nhập kho (NoCo =1 ) thì không bị lỗi -
RE: Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập
ongke0711 > 26-08-17, 01:13 AM
(25-08-17, 10:36 PM)TvAcc Đã viết: Nó báo lỗi chỗ này: db.Execute strUpdate, dbFailOnError
- Từ tháng 1 đến tháng 3 có xuất kho (NoCo = -1) thì bị lỗi
- Các tháng còn lại chỉ có nhập kho (NoCo =1 ) thì không bị lỗi
Vụ này tôi cũng potay vì máy tôi thì chạy bình thường.
Bạn xem video tôi thao tác trên file .mdb bên dưới. Mọi thứ chạy suôn sẻ.