Xin anh chị giúp em cách hạn chế TextBox_Change bắt sự kiện khi xóa giá trị!

[Minh Tùng]

Hiện tại em đang có 3 TextBox và 1 nút bấm lưu dữ liệu
- TextBox1 là Đơn giá
- TextBox2 là Số lượng
- TextBox3 là Thành tiền

+ TextBox2 em sử dụng sự kiện TextBox2_Change để bắt sự kiện nhập vào số lượng thì sẽ tự động tính thành tiền.
+ Nút bấm lưu dữ liệu em có viết code TextBox2.Value = Empty để xóa số lượng khi bấm lưu dữ liệu.
Nhưng em khi bấm lưu dữ liệu thì TextBox2 bắt thêm 1 lần sự kiện nữa. Có nghĩa khi em nhập số thì TextBox2 chạy 1 lần và khi bấm lưu dữ liệu thì TextBox2 chạy thêm lần nữa ạ.
Em đang tìm cách giải quyết vấn đề khi bấm lưu dữ liệu thì TextBox2 không bắt sự kiện và sub TextBox2_Change không chạy nữa ạ.

Anh chị nào giúp em hướng giải quyết với ạ, hoặc có đường link nào tương tự như vấn đề này thì cho em xin link.
Cám ơn anh chị GPE rất nhiều!

 

[befaint]

bấm lưu dữ liệu thì TextBox2 không bắt sự kiện và sub TextBox2_Change không chạy

Private flag_not_change as boolean 'để trên cùng môi trường userform (biến toàn cục)'
Private Sub TextBox2_Change()
If flag_not_change = False then
'code cũ của bạn'
End if
End Sub

Private Sub Luu_du_lieu()
flag_not_change = True
TextBox2.Text = ""
'...'
flag_not_change = False
End Sub

Hoặc đơn giản chỉ cần kiểm tra len(TextBox2.Text)>0 là được.

 

[Minh Tùng]

Private flag_not_change as boolean 'để trên cùng môi trường userform (biến toàn cục)'
Private Sub TextBox2_Change()
If flag_not_change = False then
'code cũ của bạn'
End if
End Sub

Private Sub Luu_du_lieu()
flag_not_change = True
TextBox2.Text = ""
'...'
flag_not_change = False
End Sub

Hoặc đơn giản chỉ cần kiểm tra len(TextBox2.Text)>0 là được.

Em cám ơn anh góp ý hướng dẫn em. Để em sửa lại code.