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

[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]

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