Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Module cộng trừ số lẻ
#1
Nhờ các bạn xem code này cần chỉnh lại gì để khi chạy sẽ tính toán đúng (cộng, trừ trong Table, có số nguyên và số lẻ).
Table có tên "T_THEKHO_NXT" gồm 3 field NHAP, XUAT, TON. Khi chạy 1 Macro (Action: RunCode, congdon()) thì thực hiện tính toán trong Table trên. 

CODE NÀY TÍNH ĐÚNG KHI 2 FILED NHAP, XUAT LÀ SỐ NGUYÊN. NHƯNG SẼ TÍNH SAI KHI CÓ SỐ LẺ.


Option Compare Database

Function congdon()
Dim csdl As Database, hoso As Recordset, tl As Double
Set csdl = DBEngine.Workspaces(0).Databases(0)
Set hoso = csdl.OpenRecordset("T_THEKHO_NXT", DB_OPEN_TABLE)
tl = 0
hoso.MoveFirst
Do Until hoso.EOF
tl = tl + hoso!nhap - hoso!xuat
hoso.Edit
hoso!ton = tl
hoso.Update
hoso.MoveNext
Loop
hoso.Close
End Function
Chữ ký của vodainhan Xin chào, mình là vodainhan, Tham gia http://thuthuataccess.com/forum từ ngày 06-11 -13.
Reply
Những người đã cảm ơn
#2
Các Field Nhap, Xuat, Ton trong table của bạn có data type là Double hay Long Integer? Bạn nên sửa lại là Double.
Trong Access 2007 có một lỗi liên quan vấn đề này là: số lẻ sẽ được làm tròn (lên hoặc xuống) đối với Field có data type là Long Interger nếu dòng đầu tiên được nhập là số nguyên (integer). Lỗi này chưa khắc phục được.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , Noname , tranthanhan1962
#3
(24-11-15, 10:33 PM)ongke0711 Đã viết: Các Field Nhap, Xuat, Ton trong table của bạn có data type là Double hay Long Integer? Bạn nên sửa lại là Double.
Trong Access 2007 có một lỗi liên quan vấn đề này là: số lẻ sẽ được làm tròn (lên hoặc xuống) đối với Field có data type là Long Interger nếu dòng đầu tiên được nhập là số nguyên (integer). Lỗi này chưa khắc phục được.

data type la Double. Vay ko co cach khac phuc à ban?
Chữ ký của vodainhan Xin chào, mình là vodainhan, Tham gia http://thuthuataccess.com/forum từ ngày 06-11 -13.
Reply
Những người đã cảm ơn
#4
Khắc phục mình nói ở trên là bạn xóa dữ liệu, dòng đầu tiên nhập các số lẻ trước để test.
Data type đổi sang Decimal (nếu Double không chạy đúng) xem chạy ok ko, sau đó đổi lại Double. Đối với mình làm thì nó hiển thị đúng các số lẻ như thực tế.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
(25-11-15, 12:20 PM)ongke0711 Đã viết: Khắc phục mình nói ở trên là bạn xóa dữ liệu, dòng đầu tiên nhập các số lẻ trước để test.
Data type đổi sang Decimal (nếu Double không chạy đúng) xem chạy ok ko, sau đó đổi lại Double. Đối với mình làm thì nó hiển thị đúng các số lẻ như thực tế.



OK. Số lẻ, số nguyên đều chạy đúng. 
Điều này rất quan trọng trong việc thiết ke 1 chuong trình quản lý, tuy nhiên bị vấp phải vấn đề trên.

so do van hanh the nay: 1 QUERY tạo TABLE như trên, sau đó chạy MACRO runcode tính sô TỒN, mơ REPORT (lay nguon tư Table).

Vấn đề phát hiện là sau mỗi lần chạy dây chuyền như trên thì field TON trọng Table bị  sửa lại là Long Interger, không rõ tại sao. (mặc dù truoc do da chinh la Double.)


Theo y kien cua ban, xac dinh Code là khong sai, minh ra soat lai toan bo va thay 1 loi nam trong QUERY khi tao Field TON, va da chinh sua kieu du lieu lai.
 
Rất cám on ban đã nhiet tinh cho y kien giup do!
Chữ ký của vodainhan Xin chào, mình là vodainhan, Tham gia http://thuthuataccess.com/forum từ ngày 06-11 -13.
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
  (Update v.1.0.35 - 14/11/2016) Share Phần Mềm Quản Lý Công Văn Miễn Phí nguyenvantien87 251 18,380 30-11-16, 05:34 PM
Bài mới nhất: nguyenvantien87
  [Help] cộng giá trị nhiều textbox và update csdl amasahara 6 306 01-05-16, 01:42 AM
Bài mới nhất: maidinhdan
  So sánh Access với Excel trong công việc phân tích số liệu tranthanhan1962 6 2,749 26-06-15, 03:25 PM
Bài mới nhất: Noname
Shocked Tạo query trong Module minhhang02081992 20 1,139 22-03-15, 06:18 PM
Bài mới nhất: minhhang02081992
  [Help] Giúp Hiển thị và mở thư mục lưu file công văn thenhatnguyen 3 580 12-01-15, 09:57 PM
Bài mới nhất: Trọng Nguyễn

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ơ