Giải pháp default value TextBox

[ThuNghi]

Ta có 10 TextBox là SL01 ->SL10, để nhập số luợng, các textbox này giống nhau.
Nếu cho default value là 0 thì trên form hiện số 0, không đẹp
Nếu khi update dùng sub if SL01="" then value=0, thì có cách gì làm ngắn gọn, viết 10 code hay 1 code 10 dòng thì không hay.
Có thể dùng vòng lặp for i = 1 to 10 không.
Nhờ các bạn cho giải pháp.
Xin cám ơn.

 

[Nguyễn Duy Tuân]

Bạn có thể tạo một Class trong Class module, dùng kỹ thuật Wrap là ok. Thực tế trên form số lượng TextBox rất nhiều, trong các code lại dùng rất nhiều nữa nên việc viết nhiều if SL01="" then value=0 là một vấn đề.

 

[nvson]

Bác thử đoạn code sau:

Private Sub UserForm_Initialize()
Dim objTextbox As Control
For Each objTextbox In UserForm1.Controls
    If UCase(Left(objTextbox.Name, 7)) = "TEXTBOX" Then
        If objTextbox.Text = "" Then objTextbox.Text = 0
    End If
Next objTextbox
End Sub

Nếu bạn đặt tên các TextBox không theo quy luật nào thì thay câu lệnh:

    If UCase(Left(objTextbox.Name, 7)) = "TEXTBOX" Then
        If objTextbox.Text = "" Then objTextbox.Text = 0
    End If

bằng câu lệnh:

    If UCase(TypeName(objTextbox)) = "TEXTBOX" Then
        If objTextbox.Text = "" Then objTextbox.Text = 0
    End If