code SetForcus (1 người xem)

[DMQ]

Em có viết đoạn Code này

Private Sub commandButton1_Click()
Dim endr As Long
If TextBox1 = "" Or TextBox2 = "" Then
MsgBox ("chua nhap day du"), vbExclamation: Exit Sub
End If
TextBox1.SetFocus

Tức là khi TextBox1 hoặc TextBox2 không có dữ liệu thì hiện hộp thông báo nhắc nhở, nhấn OK thì thoát Sub và TextBox1 được chọn. Thế nhưng khi nhấn OK thì TextBox1 lại không được chọn, mong mọi người chỉ giáo.

 

[DMQ]

Em xin giải thích cho rỏ: em có tạo một Form nhập liệu, có 5 TextBox từ 1 đến 5. nếu nhập thiếu TextBox1 hoặc TextBox2 thì hiện MsgBox nhắc nhở và TextBox1 được chọn (SetFocus). Mong các AC chỉ giáo.

 

[giaiphap]

Em có viết đoạn Code này

Private Sub commandButton1_Click()
Dim endr As Long
If TextBox1 = "" Or TextBox2 = "" Then
MsgBox ("chua nhap day du"), vbExclamation: Exit Sub
End If
TextBox1.SetFocus

Tức là khi TextBox1 hoặc TextBox2 không có dữ liệu thì hiện hộp thông báo nhắc nhở, nhấn OK thì thoát Sub và TextBox1 được chọn. Thế nhưng khi nhấn OK thì TextBox1 lại không được chọn, mong mọi người chỉ giáo.

Bạn sửa chổ này

If TextBox1 = "" Or TextBox2 = "" Then
     MsgBox ("chua nhap day du"), vbExclamation
     TextBox1.SetFocus
     Exit Sub
End If

 

[DMQ]

Cám Ơn bạn giaiphap, do đặt không đúng chổ phải không bạn. Mình mới tập tành code.