Buộc textbox không được nhập dưới số định trước

[HoangHacVT]

Chào anh em,

Mình nhập số liệu vào textbox, trong phần properties có ứng dụng maxlength cho phép quy định maximum ký tự là bao nhiêu. Thế nhưng mình muốn tìm cái minlength thì không thấy. Ý mình là ký tự nhập vào đây không được dưới 4 chẳng hạn ( VD nhập 1234 thì được nhưng 123 thì không được).

Nhờ ACE chỉ giáo giúp,

Xin cám ơn,

Hạc

 

[thanhphuong]

Chào anh em,

Mình nhập số liệu vào textbox, trong phần properties có ứng dụng maxlength cho phép quy định maximum ký tự là bao nhiêu. Thế nhưng mình muốn tìm cái minlength thì không thấy. Ý mình là ký tự nhập vào đây không được dưới 4 chẳng hạn ( VD nhập 1234 thì được nhưng 123 thì không được).

Nhờ ACE chỉ giáo giúp,

Xin cám ơn,

Hạc

Thử đọan code này xem

Private Sub TextBox1_AfterUpdate()
    Dim iMax As Long, iMin As Long
    iMax = 20
    iMin = 4
    If Len(TextBox1) < iMin Or Len(TextBox1) > iMax Then
        MsgBox "Chieu dai toi da la " & iMax & Chr(13) & _
            "Chieu dai toi thieu la " & iMin, , "Thong Bao"
        TextBox1 = ""
        Exit Sub
    End If
End Sub