Xử lý msg khi code lỗi (1 người xem)

[chisinhvnn]

Mình có tạo 1 form để nhập liệu, có một số vấn đề nhờ anh GPE giúp đỡ.
1. ở text box: txtkichthuoc khi mình nhập đúng, không bị lỗi code thì không xuất hiện thông báo msg. Khi mình nhập sai, lỗi code sẽ thoát code và thông báo msg. (theo code mình làm thì đúng sai gì nó cũng báo lỗi).
Ví dụ: Đúng: 2.0 x 2.0 = 4 nhập đúng, không xuất hiện msg
Sai: (2.0 c 2.0) nhập sai. Thoát code và thông báo msg.
Mục đích cuối cùng là khi nhập không bị lỗi thì không thông báo msg, nếu lỗi thì thoát sub và thông báo msg để biết và nhập lại
(code ở txtkich thuoc mục đích của mình là chuyển các dấu "X" thành "*", dáu ":" thành "/". Do mục đích trình bày nên mình không làm theo các phép tính theo cách hiểu của excel).
2. Ở txtthanhtien: mình muốn ra kết quả 123456789 thành 123.456.789 (có dấu phân cách ). code đang sử dụng thì txtthanhtien vẫn ra 123.456.789 nhưng ghi xuống bảng tính thì nó hiểu sai

 

[SA_DQ]

Mình có tạo 1 form để nhập liệu, có vấn đề nhờ giúp đỡ.
1. ở text box: txtkichthuoc khi mình nhập đúng, không bị lỗi code thì không xuất hiện thông báo msg. Khi mình nhập sai, lỗi code sẽ thoát code và thông báo msg. (theo code mình làm thì đúng sai gì nó cũng báo lỗi).

2. Ở txtthanhtien: mình muốn ra kết quả 123456789 thành 123.456.789 (có dấu phân cách ). code đang sử dụng thì txtthanhtien vẫn ra 123.456.789 nhưng ghi xuống bảng tính thì nó hiểu sai

(1) Bạn thêm dòng lệnh Exit sub trên dòng lệnh
Error1:

(2) Ghi nó vô 1 biến trước đó, như

Private Sub txtthanhtien_Change()
Dim TT As Double                    '*'
If IsNumeric(txtthanhtien.Text) Then
    TT = Me!txtthanhtien.Value      '*'
    txtthanhtien.Text = Format(CDbl(txtthanhtien.Text), "#,##0")
    txtthanhtien.SelStart = Len(txtthanhtien.Text)
End If
End Sub

(3) Bạn gán tên cho các Controls khó nhìn lắm
Thay vì 'txtthanhtien' Nên là 'TxtThanhTien' , hay 'TxtTTien' hoặc 'tbTTien'

(4) Nếu là viết cho mình xài, bạn nên viết tường minh hơn. Ví dụ mình có dẫn ra trong macro bên trên.