Nhờ sửa Code "Xóa hết text trong tất cả các textbox" (1 người xem)

[thienthanbe]

Mình có doạn code sau :

Private Sub CmLuu_Click()
Dim txt As Control
For Each txt In UserForm2
If TypeOf txt Is TextBox Then txt.Text = ""
txt.Enabled = False
Next
End Sub

không biết lỗi gì mà không chạy được nhờ các bạn sữa hộ mình với.Cảm ơn trước nha.

 

[ndu96081631]

Mình có doạn code sau :

Private Sub CmLuu_Click()
Dim txt As Control
For Each txt In UserForm2
If TypeOf txt Is TextBox Then txt.Text = ""
txt.Enabled = False
Next
End Sub

không biết lỗi gì mà không chạy được nhờ các bạn sữa hộ mình với.Cảm ơn trước nha.

Vầy mới đúng:

Private Sub CmLuu_Click()
  Dim txt As Control
  For Each txt In UserForm2.[COLOR=red][B]Controls[/B][/COLOR]
    If TypeOf txt Is [COLOR=red][B]MSForms[/B][/COLOR].TextBox Then txt.Text = ""
    txt.Enabled = False
  Next
End Sub

Lưu ý những chổ màu đỏ