Làm thế nào Enter thì chuyển sang TextBox khác mà không bị thóat khỏi form!

[ThuNghi]

Làm thế nào Enter thì chuyển sang TextBox khác mà không bị thóat khỏi form!
Tôi có tạo 1 form có 3 TextBox, nhấn Tab thì nó chạy từ TextBox1 tới 3, nhưng khi nhấn enter thì nó nghĩ OK nên nó thóat Form luôn.
Nhờ các Bác hướng dẫn. Cám ơn.
Kèm file!
Cám Po_Pikachu, OK rồi. Đã thêm luôn cho enter thì OK

 

[Po_Pikachu]

Vậy bác thử thêm 3 đoạn code này xem! Sẽ được với phím Enter đó.

Private Sub UserForm_Activate() TextBox1.SetFocus End Sub   Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then TextBox2.SetFocus End Sub   Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then TextBox3.SetFocus End Sub

Thân.

 

[sealand]

Mình cũng không tìm ra lý do nhưng xóa 2 nút lệnh của Thu Nghi rồi đưa 2 nút lệnh khác, vẫn đưa nguyên lệnh của Thu Nghi thì lại Enter bình thường.

 

[levanduyet]

Trong form của anh ThuNghi có sử dụng nút lệnh CB_Nhap, trong nút lệnh này anh ThuNghi có sử dụng thuộc tính Default= TRUE. Chính vì vậy mỗi khi anh nhấn Enter từ bất kỳ Textbox nào trên form sẽ thực hiện lệnh

Private Sub CB_Nhap_Click()

Đồng thời code của nút lệnh có lệnh Unload Me

Private Sub CB_Nhap_Click()
    Sheets("Data").[C5] = TextBox1
    Sheets("Data").[C6] = TextBox2
    Sheets("Data").[C7] = TextBox3
    [COLOR="Blue"][B]Unload Me[/B][/COLOR] 
End Sub

Anh chỉ cần sửa lại thuộc tính này là OK.

Lê Văn Duyệt

 

[sealand]

Thế mà mình tìm mãi không được, biết rằng nó chỉ nằm trong thuộc tính của Command thôi.