ورود

View Full Version : سوال: صدور پيغام فارسي


oskarimbns
یک شنبه 19 خرداد 1387, 15:06 عصر
دوست عزيز جناب shaghaghi در مورد پيغام فارسي اگر بيشتر توضيح بدهيد يا نمونه برنامه بگذاريد بسيار متشكر مي شوم.
shaghaghi
دوشنبه 20 خرداد 1387, 07:30 صبح
سلام این کد را در رخداد Form_Error وارد نمایید


Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 2279
MsgBox "مقدار وارده قابل قبول نمی باشد", vbInformation
Response = True
Case Else
MsgBox Err.Description
End Select
End Sub
oskarimbns
جمعه 24 خرداد 1387, 07:28 صبح
از راهنماييتون استفاده كردم و نتيجه گرفتم ولي ايا مي شود براي موارد مشابه اي مورد پيغامهاي جداگانه نوشت؟
Profesorjd
جمعه 24 خرداد 1387, 11:21 صبح
با سلام
موضوع Error را جستجو كن . دوستان كدهاي مشابه پيغام انگليسي را جمع كرده‌اند . كافي است بجاي Case .... ‌كد مربوطه را همراه با پيغام مناسب بگذاري .
mahdif123
شنبه 25 خرداد 1387, 08:22 صبح
با سلام

دوست عزيز ميتواني بگويي شماره Error هاي مختلف را از كجا بايد پيدا كرد . آيا برنامه اي هست ؟
مهدی قربانی
شنبه 25 خرداد 1387, 08:33 صبح
سلام
در همون رخداد On Error فرم كد زير رو بنويسيد تا كد خطا رو در قالب پيغام اعلام كنه ضمناً در Help هم مي تونيد كدها رو بدست بياريد .

MsgBox "كد خطا :" & " " & Err.Number