thanhdat21293 > 28-02-14, 11:07 PM
MTNQ > 01-03-14, 01:36 AM
Private Sub txtMemoField_Change()
Dim intMaxChars As Integer
intMaxChars = 400
With Me!txtMemoField
If Len(.Text) > intMaxChars Then
MsgBox "Ban chi duoc nhap toi da " & intMaxChars & " ky tu!", vbCritical + vbOKOnly, "Luu Y!"
.Text = Left(.Text, intMaxChars)
.SelStart = intMaxChars
End If
End With
End Sub
thanhdat21293 > 01-03-14, 08:34 PM