Nhờ anh chị sửa lỗi setfocus ở textbox (2 người xem)

[khuong182018]

Với các trường hợp nhập liệu sai tại txtChitiet, mong muốn focus đặt tại txtChitiet. ví dụ như 5K (đúng là 5k) thì setfocus lại đặt dấu nháy tại txtMaVach. Mong các thầy, anh chị sửa em lỗi này ạ

 

[HUONGHCKT]

Với các trường hợp nhập liệu sai tại txtChitiet, mong muốn focus đặt tại txtChitiet. ví dụ như 5K (đúng là 5k) thì setfocus lại đặt dấu nháy tại txtMaVach. Mong các thầy, anh chị sửa em lỗi này ạ

Sao bạn không dùng giải pháp là thay thế luôn thành t hoặc k khi nhập vào txtChitiet ấy nhỉ? có nghĩa là cho dù có nhập vào là T hay K thì khi bạn chuyển sang textbox khác hay Enter thì txtChitiet ấy đã tự động thay thế T (hoặc K) thành t( hoặc k) mà không cần hiện lên thông báo.

 

[khuong182018]

Sao bạn không dùng giải pháp là thay thế luôn thành t hoặc k khi nhập vào txtChitiet ấy nhỉ? có nghĩa là bcho dù có nhập vào là T hay K thì khi bạn chuyển sang textbox khác hay Enter thì txtChitiet ấy đã tự động thay thế T (hoặc K) thành t( hoặc k) mà không cần hiện lên thông báo.

Vâng rất hay ạ , em sẽ sửa như vậy , nhưng em vẫn thắc mắc là đã txtChitiet.setfocus rồi mà dấu nháy nó chuyển về txtMaVach khi nhấn Enter

 

[HUONGHCKT]

Vâng rất hay ạ , em sẽ sửa như vậy , nhưng em vẫn thắc mắc là đã txtChitiet.setfocus rồi mà dấu nháy nó chuyển về txtMaVach khi nhấn Enter

Sau Khi set.forcous bạn lại Exit sub thì có thể nó lại trở về mặc định của userForm

 

[Hoàng Tuấn 868]

nhưng em vẫn thắc mắc là đã txtChitiet.setfocus rồi mà dấu nháy nó chuyển về txtMaVach khi nhấn Enter

Thêm một lệnh nữa để khi nhấn Enter thì lại đặt cho nó về nơi mong muốn.

 

[khuong182018]

Thêm một lệnh nữa để khi nhấn Enter thì lại đặt cho nó về nơi mong muốn.

Anh giải thích rõ hơn được không ạ, em txtChitiet.setfocus rồi mà ko đc

 

[khuong182018]

Thêm một lệnh nữa để khi nhấn Enter thì lại đặt cho nó về nơi mong muốn.

em có comandblock lại câu lệnh msgbox thì nó đặt dấu nháy như ý muốn nhưng lại mất đi cái thông báo

 

[ptm0412]

Dùng sự kiện Exit như sau:

Private Sub txtChitiet_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If có gì đó sai sai then Cancel = True
End Sub

"Cái gì đó sai sai" là cái bạn muốn.