پیام برای قالب عددی [بایگانی]

smderfan

شنبه 27 مرداد 1386, 16:45 عصر

در صورتی که فرمت یک تکست عددی باشه و مقدار غیر از عدد وارد بشه به چه صورت می تونیم یک پیام مبنی بر این که عدد را وارد کنید صادر کنیم.

morteza_lll

شنبه 27 مرداد 1386, 17:28 عصر

سلام
با این کد می توانید این کار را بکنید
if textbox1.text>0 and textbox1.txt<9999999 then
پیغام مورد نظر

smderfan

شنبه 27 مرداد 1386, 19:10 عصر

مرتضی جان سلام
درست نشد چون وقتی متن وارد بشه خطا میده ....

davood-ahmadi

شنبه 27 مرداد 1386, 22:27 عصر

با سلام بر دوست و دوستان گرامی
احتمالاً این نمونه فایل به شما کمک کند

مهدی قربانی

شنبه 27 مرداد 1386, 22:49 عصر

سلام
آقا داود ممنون جالب بود فقط برای استفاده از سایر کلیدهای غیر حرفی مثل Space‌ ، Delete ، BackSpace ، Enter و مابقی کلیدهای مشابه لازمه که کد اونها مستثنی بشه وگرنه درصورت استفاده از کلیدهای یاد شده پیغام صادر میشه .

davood-ahmadi

شنبه 27 مرداد 1386, 23:00 عصر

می تونید از کلمات keycode استفاده کنید. مثلاً
if keycode = vbKeyReturn then

مهدی قربانی

یک شنبه 28 مرداد 1386, 00:00 صبح

در ادامه روشهای پیشنهادی دوستان گرامی ، این هم روش پیشنهادی حقیر :

Private Sub Text0_AfterUpdate()
If Format(Text0, Number) = True Then
Else
MsgBox "! مقدار وارد شده معتبر نیست" & vbCrLf & _
"لطفاً مقدار عددی وارد نمائید", vbCritical, "خطا"
Text0 = ""
Me.Refresh
End If
End Sub

morteza_lll

یک شنبه 28 مرداد 1386, 08:19 صبح

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

mohammadgij

یک شنبه 28 مرداد 1386, 10:28 صبح

در قسمت OnChange فیلد مورد نظر کد زیر رو بنویس.
به جای Field هم نام فیلد خودت رو بذار

If IsNumeric(Field.Text) = False And Field.Text <> "" And Not IsNull(Field.Text) Then
MsgBox "لطفا عدد وارد نمایید", vbInformation, "توجه"
Field.Value = ""
Field.SetFocus
End If

مهدی قربانی

یک شنبه 28 مرداد 1386, 10:55 صبح

سلام
محمد آقا ممنون به نظر من روش شما تا اینجا بهترینه .

smderfan

یک شنبه 28 مرداد 1386, 22:34 عصر

سلام؛ با تشکر و خسته نباشید
مورد فوق در مورد فیلدهایی است که فرمت Text باشند
حالا اگر قالب فیلدهای ما بصورت Numbric و یا Text با ماسک 00/00/00;0; باشه به چه صورت این تشخیص اعمال بشه.