Parsi Coders
ایجاد محدودیت برای فیلد - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: ایجاد محدودیت برای فیلد (/showthread.php?tid=2082)

ایجاد محدودیت برای فیلد - parvin - 04-13-2012

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

RE: ایجاد محدودیت برای فیلد - Amin_Mansouri - 04-13-2012

درود
شما وقتی ویژوال بیسیک رو باز میکنی از منوی 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 عدد محدود کنی

RE: ایجاد محدودیت برای فیلد - parvin - 04-13-2012

این دستور
کد:
text1.MaxLength=5
رو کجا باید بنویسم؟

RE: ایجاد محدودیت برای فیلد - Amin_Mansouri - 04-13-2012

کد:
Private Sub Form_Load()
Text1.MaxLength = 5
End Sub


RE: ایجاد محدودیت برای فیلد - parvin - 04-13-2012

من این کد رو نوشتم. قسمت اولش کار میکنه یعنی بیشتر از 5 تا نمیگیره ولی قسمت دوم که اگه کمتر از 5 بود پیام خطا بده درست کار نمیکنه. ایرادش کجاست؟
کد:
Private Sub Form_Load()
Text1(0).MaxLength = 5
If Text1(0).MaxLength < 5 Then
MsgBox ("˜Ï  æÇÑÏ ÔÏå äÇÏÑÓÊ ÇÓÊ")
End If
End Sub


RE: ایجاد محدودیت برای فیلد - Amin_Mansouri - 04-13-2012

درود
با تابع 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


RE: ایجاد محدودیت برای فیلد - parvin - 04-13-2012

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

RE: ایجاد محدودیت برای فیلد - Amin_Mansouri - 04-13-2012

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