04-13-2012، 09:38 PM
میگم چطوری رو یه فیلد بانکمون محدودیت بذارم؟ مثلا یه فیلد فقط و فقط عدد های 5 رقمی رو قبول کنه و اگه کمتر یا بیشتر از 5 رقم بهش دادیم یه پیغام خطای مناسب بده؟ راستی بانکش با اکسس هستش.
04-13-2012، 09:38 PM
04-13-2012، 09:49 PM
درود
شما وقتی ویژوال بیسیک رو باز میکنی از منوی Add-ins منو visual data manager رو انتخاب کنی اونجا میتونی سایز و اینکه تکست باشه یا .... انتخاب کنی
خوب شما فیلدتون دیگه به تکست باکس متصله اطلاعات اول وارد تکست باکس میشه بعد وارد فیلد میشه
توی تکست باکست کد زیر رو وارد کن
تکست باکس فقط اعداد قبول میکنه
و با دستور
میتونی تکست باکس رو به 5 عدد محدود کنی
شما وقتی ویژوال بیسیک رو باز میکنی از منوی 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 عدد محدود کنی
04-13-2012، 09:56 PM
این دستور رو کجا باید بنویسم؟
کد:
text1.MaxLength=504-13-2012، 09:59 PM
کد:
Private Sub Form_Load()
Text1.MaxLength = 5
End Sub04-13-2012، 10:09 PM
من این کد رو نوشتم. قسمت اولش کار میکنه یعنی بیشتر از 5 تا نمیگیره ولی قسمت دوم که اگه کمتر از 5 بود پیام خطا بده درست کار نمیکنه. ایرادش کجاست؟
کد:
Private Sub Form_Load()
Text1(0).MaxLength = 5
If Text1(0).MaxLength < 5 Then
MsgBox ("˜Ï æÇÑÏ ÔÏå äÇÏÑÓÊ ÇÓÊ")
End If
End Sub04-13-2012، 10:23 PM
درود
با تابع len میتونی تعداد کلمات یک رشته رو بدست بیاری
واسه محدودیت کدهای قبلی حذف کن اینجوری بنویس
با تابع len میتونی تعداد کلمات یک رشته رو بدست بیاری
واسه محدودیت کدهای قبلی حذف کن اینجوری بنویس
کد:
Private Sub Text1_Change()
If Len(Text1.Text) > 5 Then
MsgBox "Parvin", vbCritical
Text1.Text = Mid(Text1.Text, 1, 5)
End If
End Sub04-13-2012، 10:38 PM
بازم نشد. من از ارایه تکست باکس استفاده کردم. ممکنه از این باشه؟؟
04-13-2012، 10:39 PM
پروژتو باز بسته کن
یه تکست باکس بزار
کد بالا تو فرم بزار
همین
یه تکست باکس بزار
کد بالا تو فرم بزار
همین