أبو هادي

التحكم بطول النص أثناء الإدخال

السلام عليكم بافتراض أن الـ 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 تحياتي .