[parvin]

میگم چطوری رو یه فیلد بانکمون محدودیت بذارم؟ مثلا یه فیلد فقط و فقط عدد های 5 رقمی رو قبول کنه و اگه کمتر یا بیشتر از 5 رقم بهش دادیم یه پیغام خطای مناسب بده؟ راستی بانکش با اکسس هستش.

[Amin_Mansouri]

درود
شما وقتی ویژوال بیسیک رو باز میکنی از منوی Add-ins منو visual data manager رو انتخاب کنی اونجا میتونی سایز و اینکه تکست باشه یا .... انتخاب کنی
خوب شما فیلدتون دیگه به تکست باکس متصله اطلاعات اول وارد تکست باکس میشه بعد وارد فیلد میشه

توی تکست باکست کد زیر رو وارد کن

کد:

Private Sub txtNumber_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
KeyAscii = 0
End If
End Sub

تکست باکس فقط اعداد قبول میکنه

و با دستور

کد:

Text1.MaxLength = 5

میتونی تکست باکس رو به 5 عدد محدود کنی

[parvin]

این دستور

کد:

text1.MaxLength=5

رو کجا باید بنویسم؟

[Amin_Mansouri]

کد:

Private Sub Form_Load()
Text1.MaxLength = 5
End Sub

[parvin]

من این کد رو نوشتم. قسمت اولش کار میکنه یعنی بیشتر از 5 تا نمیگیره ولی قسمت دوم که اگه کمتر از 5 بود پیام خطا بده درست کار نمیکنه. ایرادش کجاست؟

کد:

Private Sub Form_Load()
Text1(0).MaxLength = 5
If Text1(0).MaxLength < 5 Then
MsgBox ("˜Ï  æÇÑÏ ÔÏå äÇÏÑÓÊ ÇÓÊ")
End If
End Sub

[Amin_Mansouri]

درود
با تابع len میتونی تعداد کلمات یک رشته رو بدست بیاری

واسه محدودیت کدهای قبلی حذف کن اینجوری بنویس

کد:

Private Sub Text1_Change()
If Len(Text1.Text) > 5 Then
MsgBox "Parvin", vbCritical
Text1.Text = Mid(Text1.Text, 1, 5)
End If
End Sub

[parvin]

بازم نشد. من از ارایه تکست باکس استفاده کردم. ممکنه از این باشه؟؟

[Amin_Mansouri]

پروژتو باز بسته کن
یه تکست باکس بزار
کد بالا تو فرم بزار
همین