( فوری )در مورد تعداد ارقام تکس باکس

[vahidmasoudi1391]

سلام دوستان عزیز
من فرمی ساختم که شامل دو تکس باکس است که یک تکس باکس دارای اسم مشخصی که در جدول است فرض مثال محمود ، احمد حال می خواهم زمانی که در تکس باکس احمد ثبت می کنم تکس باکس دیگری که دارم تعداد رقم برای وارد کردن تعداد 4 رقم بپذیرد و برای محمود 6 رقم بپذیرد یعنی زمانی که هر یک از این اسم وارد می شود تعداد ارقام تکس باکس محدود شود
با تشکر فراوان

[meytiu]

با سلام دوست عزیز مشخص نکردید این اعداد 4 و 6 از کجا اومده آیا مقداری ثابت است یا متغیر
لطفا بیشتر توضیح دهید

[vahidmasoudi1391]

سلام دوست عزیز
متغییر است و خودم می خواهم اعداد متفاوت دهم مثل شماره بارنامه برای احمد با تعداد رقم مشخص و برای محمود هم همی نطور فط با تعداد ارقام متفاوت
با تشکر از شما

[Abbas Amiri]

اگر فیلد مرجع شما Text1 باشد وتکست باکس محدودشده شما TextLimited باشد در رویداد Change آن بنویسید


Private Sub TextLimited_Change()
Dim s As String, i As Integer
i = Len(Nz(Text1))
s = Nz(TextLimited.Text)
If Len(s) > i Then
s = Left(s, i)
TextLimited = s
TextLimited.SelStart = i
End If
End Sub

[meytiu]

با تشکر از جناب امیری
فایل نمونه خدمت شما دوست عزیز