Báo lỗi khi control rỗng

[NguyenthiH]

Em có tạo form nhập liệu, trên form có 2 textbox và 2 combobox, khi form show, thì textbox1 focus, nếu em không gõ gì vào textbox1 mà enter thì textbox2 focus, em muốn lúc này có msgbox cảnh báo, và nếu em không gõ gì vào textbox2 mà enter tiếp thì combobox1 focus thì lúc này em cũng muốn có msgbox cảnh báo.
Nói chung là 4 control này mà control nào rỗng thì có cảnh báo.
Mong các anh chị giúp đỡ.

 

[ducdoom]

Em có tạo form nhập liệu, trên form có 2 textbox và 2 combobox, khi form show, thì textbox1 focus, nếu em không gõ gì vào textbox1 mà enter thì textbox2 focus, em muốn lúc này có msgbox cảnh báo, và nếu em không gõ gì vào textbox2 mà enter tiếp thì combobox1 focus thì lúc này em cũng muốn có msgbox cảnh báo.
Nói chung là 4 control này mà control nào rỗng thì có cảnh báo.
Mong các anh chị giúp đỡ.

bạn thử thêm code này tại sự kiện Exit nhé

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text = vbNullString Then
        MsgBox "Null"
    End If
End Sub

 

[NguyenthiH]

Cám ơn bạn @ducdoom, vậy còn các textbox2, combobox1 và cobobox2 thì cũng vậy hả bạn?

 

[giaiphap]

Cám ơn bạn @ducdoom, vậy còn các textbox2, combobox1 và cobobox2 thì cũng vậy hả bạn?

Thay vì bạn hỏi thì bạn gõ vào xem thế nào hả hỏi.

 

[ducdoom]

Cám ơn bạn @ducdoom, vậy còn các textbox2, combobox1 và cobobox2 thì cũng vậy hả bạn?

Đúng, các control khác bạn cũng làm như vậy

 

[NguyenthiH]

Mình muốn khi báo rỗng xong thì control đó được focus để gõ vào, nhưng không được, vẫn focus ở control tiếp theo

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text = vbNullString Then
        MsgBox "Null"
        Textbox1.SetFocus
    End If
End Sub

 

[giaiphap]

Mình muốn khi báo rỗng xong thì control đó được focus để gõ vào, nhưng không được, vẫn focus ở control tiếp theo

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text = vbNullString Then
        MsgBox "Null"
        Textbox1.SetFocus
    End If
End Sub

Tôi thấy có cái biến Cancel thử cho nó thành true xem sao.

 

[ThangCuAnh]

Thêm cái Cancel = True vào nữa thử đi bé.
Mặc định không nên can thiệp vào các event Focus/Lost Focus của control. Hãy để Windows điều khiển.
MsgBox lên làm focus move từ text control vào MsgBox dialog.

 

[NguyenthiH]

Mong các anh chỉ rỏ dùm em ạ. Em hông biết VBA

 

[ducdoom]

Mong các anh chỉ rỏ dùm em ạ. Em hông biết VBA

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text = vbNullString Then
        MsgBox "Null"
        Cancel = True
    End If
End Sub

 

[NguyenthiH]

Ủa có vậy thôi đó hả????

Cancel = True

thế mà em cứ tưởng......
Sao anh @ThangCuAnh cười em, em hổng biết VBA thật mà