السلام عليكم
بافتراض أن الـ text box إسمه Text1 نضع في حدث عند التبديل :
Private Sub Text1_Change()
If Len(Me.Text1.Text) > 6 Then
SendKeys "{BS}"
Beep
End If
End Sub
أو يمكن الكتابة في الـ Validation Rule كالتالي :
Len([Text1])<=6
تحياتي .
