Lỗi Form nhập liệu

[NH_DK]

Em có Form nhập liệu Nhập và Xuất. Có một vấn đề lỗi mà em vẫn chưa sửa được như sau:
- Form nhập Mua hàng (Kiểm tra dùm em nút Mới - Định dạng số)
- Form nhập Bán hàng (Kiểm tra dùm em nút Mới - Định dạng số)
Em đưa file và Clip xem lỗi cụ thể để AC sửa dùm em nhé!
Download

 

[ndu96081631]

Em có Form nhập liệu Nhập và Xuất. Có một vấn đề lỗi mà em vẫn chưa sửa được như sau:
- Form nhập Mua hàng (Kiểm tra dùm em nút Mới - Định dạng số)
- Form nhập Bán hàng (Kiểm tra dùm em nút Mới - Định dạng số)
Em đưa file và Clip xem lỗi cụ thể để AC sửa dùm em nhé!
Download

Lỗi quá sơ đẳng
Khi bạn bấm nút Mới thì các TextBox được cho = rổng. Vậy thì đoạn này

Private Sub NTien_Change()
  NDonGia = Format(Val(Format(NTien, "0")) / Val(Format(NSoLuong, "0")), "#,##0.00")
End Sub

nó nằm trong sự kiện Change của TextBox NTien, khi bị set = "" thì xem như có thay đổi và nó tính toán... nhưng làm sao mà tính toán với phép chia 0 đây ---> Lỗi Overflow là đúng quá rồi còn gì
Cứ cho dòng On Error Resume Next lên trên đi

 

[nghiaphuc]

Hoặc xử lý theo cách khác:
+ Trong sub NMoi_Click, đưa câu Me.NTien.Value = "" lên trên câu Me.NSoLuong.Value = ""
+ Trong sub XMoi_Click, đưa câu Me.XGiaBan.Value = "" lên trên câu Me.XSoLuong.Value = ""
Ngoài lề một xíu: Ngọc nên khóa một số Textbox trên Form (những Textbox không cần nhập dữ liệu) bằng cách chọn Textbox và thiết lập thuộc tính Locked=True. Hơn nữa, Ngọc nháy chuột phải trên Form, chọn Tab Order và chỉnh lại thứ tự các đối tượng trên Form: cái nào không cần nhập thì đưa xuống dưới.