PDA

View Full Version : سوال: درمورد ورود شماره ملي و تاريخ با جدول


oskarimbns
شنبه 18 خرداد 1387, 21:30 عصر
بنام خدا
ضمن تسليت سالروز شهادت جانسوز حضرت زهرا به همه دوستداران اهل بيت اينجانب يك Table ساخته ام كه اطلاعات افراد را از طريق Unboundهايي كه در يك فرم گذاشته ام به داخل ان Tableوارد مي كنم سوال
1-يكي از ان Unbound ها شماره ملي را وارد Table ميكند مي خواهم شماره ملي فقط به صورت ده رقمي باشد بطوري كه اگر ان Unbound خالي باشد با يك پيغام فارسي به اطلاع كاربر برساند و اگر كمتر از 10رقم باشد با يك پيغام فارسي ديگر كاربر را مطلع كند.
متشكرم
shaghaghi
یک شنبه 19 خرداد 1387, 07:47 صبح
سلام
در Input Mask مربوط به TextBox آن فیلد به تعداد ده عدد صفر وارد کنید.
برای نمایش پیغام فارسی هم، در رخداد Form_Error برای پیغام خطای شماره 2279 یک MsgBox در نظر بگیرید.
oskarimbns
یک شنبه 19 خرداد 1387, 16:04 عصر
دوست عزيز جناب shaghaghi در مورد پيغام فارسي اگر بيشتر توضيح بدهيد يا نمونه برنامه بگذاريد بسيار متشكر مي شوم.
shaghaghi
دوشنبه 20 خرداد 1387, 08:43 صبح
http://barnamenevis.org/forum/showpost.php?p=532762&postcount=2
mahdif123
سه شنبه 21 خرداد 1387, 10:33 صبح
سلام دوست عزيز

اينگونه هم مي توانيد بنويسيد
كد مربوطه را در Form_Error فرم مربوطه كپي كنيد .


Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conInputmask = 2279
If DataErr = conInputmask Then
MsgBoxFa " . اطلاعات شما صحيح نمي باشد ", vbCritical, "خطا", "fa msgbox"
Response = acDataErrContinue
Me.txtcodmeli = ""
End If
Response = acDataErrAdded
End Sub
rockboy_62
سه شنبه 18 تیر 1387, 08:52 صبح
با عرض معذرت اين Form_Error كجاست؟
mahdif123
سه شنبه 18 تیر 1387, 09:02 صبح
با عرض معذرت اين Form_Error كجاست؟


با سلام

اگر فرم در حالت Design باز كني و روي خود فرم راست كليك كني قسمت Properties تب Event را بزني Form_Error را پيدا مي كني .

مطالعه كتاب را فراموش نكنيد .
rockboy_62
سه شنبه 18 تیر 1387, 09:11 صبح
با سلام

اگر فرم در حالت Design باز كني و روي خود فرم راست كليك كني قسمت Properties تب Event را بزني Form_Error را پيدا مي كني .

مطالعه كتاب را فراموش نكنيد .
ممنون بابت راهنماييتون.اما دوست عزيز فرم من همچين گزينه اي نداره.فرم رو در حالت ديزاين باز كردم.رو فرمم راست كليك و properties رو انتخاب كردم.اما همچين گزينه اي نيست.شايد منظورتون on error هست؟
مهدی قربانی
سه شنبه 18 تیر 1387, 09:48 صبح
سلام
بله منظور دوستمون mahdif123 همون On Error بوده البته اين رخداد در محيط كدنويسي بصورت Private Sub Form_Error ديده ميشه .