Gán thêm chữ vào giá trị của textbox của form

[NguyenthiH]

Em có texbox trên form, em muốn khi gõ giá trị vào form xong enter thì thêm chữ "PO" vào trước giá trị của texbox. Ví dụ như em gõ "23617" vào textbox thì khi enter thì textbox có giá trị là PO23617.
Em có viết code là:

Private Sub tb_mavai_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Me.tb_MaVai = Format("PO" & .tb_MaVai.Value)
End Sub

nhưng không được, mong các anh chị chỉ giúp.

 

[befaint]

private sub tb_mavai_change(...)
Const prefix_ma as string = "PO"
Dim s as string
s= tb_mavai.text
If Len(s)>0 then
If left(s,2) <> prefix_ma then
tb_mavai.text = prefix_ma & s
End if
End if
End sub

 

[NguyenthiH]

Oh! Cám ơn anh @befaint nhiều!!!

Bài đã được tự động gộp: 8/6/19

Sao em copy code của anh vào thì bị lỗi đỏ ngay dòng:

private sub tb_mavai_change(...)

Mong anh giúp.

Bài đã được tự động gộp: 8/6/19

em sửa thành

Private Sub tb_mavai_change()

thì không lỗi đỏ, nhưng khi gõ "23617" và enter thì vẫn là "23617".
Mong anh giúp.

 

[befaint]

Chọn đối tượng tb_mavai rồi chọn sự kiện change, sau đó chép cái cần chép vào đó. Mình gõ bằng điện thoại. Không nhớ tham số trong cái change() là gì. Hiểu rồi chứ

 

[NguyenthiH]

Xin lỗi anh @befaint, theo chỉ dạy của anh , em làm được rồi.
Cám ơn anh.

 

[ongke0711]

Chọn đối tượng tb_mavai rồi chọn sự kiện change, sau đó chép cái cần chép vào đó. Mình gõ bằng điện thoại. Không nhớ tham số trong cái change() là gì. Hiểu rồi chứ

Code 1 bụng...đụng cái là tuôn ra ào ào...