Sự kiện After Update Textbox

[moihocvba]

Xin chào anh chị, em có userform gồm 3 Texbox theo thứ tự là Textbox1, Textbox2, Textbox3. Em ràng buộc điều kiện là sau khi nhập xong Textbox2 và chuyển sang Textbox3 thì Textbox2 = Textbox1, nếu không bằng thì báo lỗi đồng thời con trỏ chuột nằm ngay ở Textbox2 để nhập lại.



E viết code này ở Textbox2 nhưng khi hiện thông báo lỗi rồi mà con trỏ chuột nó không nằm ở Textbox2 mà nó nhảy sang Textbox3 luôn, như vậy là lỗi gì ạ, em cám ơn ạ!

Private Sub Textbox2 _AfterUpdate()
If Textbox2 <> Textbox1 Then
    MsgBox "BAN DA NHAP SAI!"
    Textbox2 = ""
    Textbox2.SetFocus
End If
End Sub

 

[BuiQuangThuan]

không nằm ở Textbox2 mà nó nhảy sang Textbox3 luôn, như vậy là lỗi gì ạ, em cám ơn ạ!

Thử dùng cái này coi

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.TextBox2.Value <> Me.TextBox1.Value Then
        MsgBox "BAN DA NHAP SAI!"
        Me.TextBox2 = Empty
        Me.TextBox2.SetFocus
        Cancel = True
    End If
End Sub

 

[moihocvba]

Thử dùng cái này coi

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.TextBox2.Value <> Me.TextBox1.Value Then
        MsgBox "BAN DA NHAP SAI!"
        Me.TextBox2 = Empty
        Me.TextBox2.SetFocus
        Cancel = True
    End If
End Sub

Dạ em cám ơn.
Được rồi anh ạ, mừng quá, hihi

 

[Maika8008]

Dạ em cám ơn.
Được rồi anh ạ, mừng quá, hihi

Làm xong quay lại thì thấy bài #2 làm được rồi nhưng đây là dùng sự kiện BeforeUpdate nên cũng có ích với bạn sau này:

Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox2 <> TextBox1 Then
        MsgBox "BAN DA NHAP SAI!"
        TextBox2 = ""
        Cancel = True
    End If
End Sub

 

[Nhattanktnn]

Xin chào anh chị, em có userform gồm 3 Texbox theo thứ tự là Textbox1, Textbox2, Textbox3. Em ràng buộc điều kiện là sau khi nhập xong Textbox2 và chuyển sang Textbox3 thì Textbox2 = Textbox1, nếu không bằng thì báo lỗi đồng thời con trỏ chuột nằm ngay ở Textbox2 để nhập lại.

View attachment 274752

E viết code này ở Textbox2 nhưng khi hiện thông báo lỗi rồi mà con trỏ chuột nó không nằm ở Textbox2 mà nó nhảy sang Textbox3 luôn, như vậy là lỗi gì ạ, em cám ơn ạ!

Private Sub Textbox2 _AfterUpdate()
If Textbox2 <> Textbox1 Then
    MsgBox "BAN DA NHAP SAI!"
    Textbox2 = ""
    Textbox2.SetFocus
End If
End Sub

Nhưng mà mục đích bài này làm cái gì vậy bạn? 2 bắt nhập giống 1, thế thì nhập 2 làm gì mà không lấy trực tiếp kết quả 1 luôn?

 

[ptm0412]

Me.TextBox2 = Empty
Me.TextBox2.SetFocus
Cancel = True

Nếu đã Cancel = True rồi thì không cần set focus nữa

 

[BuiQuangThuan]

Nếu đã Cancel = True rồi thì không cần set focus nữa

Dạ. Đúng rồi nhỉ. Hihi. Cám ơn chú nhiều ạ

 

[moihocvba]

Nếu đã Cancel = True rồi thì không cần set focus nữa

Dạ con cám ơn Chú!

Bài đã được tự động gộp: 20/4/22

Nhưng mà mục đích bài này làm cái gì vậy bạn? 2 bắt nhập giống 1, thế thì nhập 2 làm gì mà không lấy trực tiếp kết quả 1 luôn?

Dạ em quét mã vạch trên sản phẩm và trên hộp sản phẩm, xem thử nó có trùng nhau không ạ.
Mặc định là nó sẽ trùng, còn nếu không trùng thì nó báo. Nhiều khi sản phẩm này nhưng bỏ nhầm vào hộp kia. Hihi