در مورد تکس باکس

[vahidmasoudi1391]

سلام
فرمی ساختم که دارای تکس باکس است حال می خواهم این تکس باکس دارای 7 رقم وارد کنم و در صورت کمتر یا بیشتر از 7 رقم پیام دهد.
با تشکر

[Abbas Amiri]

If Len (MyTextBox) <> 7 Then
' Your Code
End IF

[Abbas Amiri]

در رویداد BeforeUpdate یا AfterUpdate تکست باکس تایپ کنید


Private Sub MyTextBox_BeforeUpdate(Cancel As Integer)
If Len(MyTextBox) <> 7 Then
MsgBox "تعدادکاراکتر مجاز : 7 کاراکتر ", vbMsgBoxRight
Cancel = True
End If
End Sub