فارسی کردن پنجره های اخطار در اکسس

[mohammadi]

با سلام

چه جوری می توان پیغام هایی را که بر نامه اکسس در زمان انجام خطا

توسط کاربر را اعلام می کند بصورت فارسی درآورد؟فرض کنید خطایی که اکسس

در مورد اشتباه وارد کردن تاریخ توسط کاربر می گیرد را فارسی کنیم


بدین صورت؛ "فرمت تاریخ وارد شده اشتباه می باشد"

با تشکر

[MM_Mofidi]

شما on error را امتحان کردی؟

[mohammadi]

با سلام

میشه بیشتر دراین زمینه توضیخ بدید؟


ممنون میشم

[mohammadgij]

شما می تونید با کمک دستور MSGBOX مسیج فارسی بدید .به این صورت
MsgBox "فرمت تاریخ را اصلاح نمایید", vbInformation, "توجه"

[MM_Mofidi]

به کمک on error در صورت بروز خطا عملیات مورد نظر شما انجام میشد.
یعنی اگر مثلا فایل مربوطه در آدرس داده شده وجود ندارد و تلاش برای باز کردن آن منجر به خطا میشود شما با اضافه کردن یک on error go to err_hadle در برچسب err_hadle مدیریت خطا با شماست. که میتواند شامل پیام فارسی به کاربر باشد.


Private Sub Form_Load()
On Error GoTo err_1
add = "c:\test.bmp"
Me.Picture = LoadPicture(add)
Exit Sub
err_1:
MsgBox "وجود ندارد" & " " & add & "فایل مورد نظر در آدرس "
End Sub

[MM_Mofidi]

اگر هم خواستی میتوانی شماره خطا را به یک تابع دیگر بدهی و ترجمه همه پیامها را در آن بگذاری تا پیام مورد نظر را اعلام کند. :sunglass:

[sarami]

تو befor update eventیه ماژول بنویس که یک مقدار بگیره و با اون تاریخت رو چک کنهاگه درست نبود پیغام بده و cancel = trueبکنه اینجوری پیغام فارسی میشه و error اکسس نمایش داده نمیشه
www.sarami.blogfa.com

[maleki]

باید اول کد اون Error رو Trap کنی بعدش msgbox خودت رو بجاش نشون بدی
مثلا اگه کد خطا n باشه

on error goto myErrhand

کد های برنامت
این خط پایین هم Error Handler هستش
myerrhand:
if err.number=n then
پیام خطای خودتون
endif

[کوثر]

str1 = "SELECT karmandy.sh-karmandy, karmandy.name"
str1 = str1 & " FROM karmandy"
str1 = str1 & " WHERE karmandy.sh-karmandy="[Forms]![ista-nesbat]![sh-karmandy]
Set rst = db.OpenRecordset(str1, dbOpenDynaset)
شماره کارمندی از نوع رشته است خط سوم خطا می گیرد چطور [Forms]![ista-nesbat]![sh-karmandy] را رشته ای کنم

[MM_Mofidi]

تو vb از cstr() استفاده میشود

[Peyman_Ranjbar]

http://www.dev.ir/articles/show.asp?id=173

[Ali_Fallah]

ابتدا فرم را در نمای طراحی باز کرده وسپس در منو بار بر روی گزینه کد Code کلیک نمائید
ودر On Error مربوط به فرم کد زیر را بنویسید:
Response = 0 این کد باعث میشود اکسس هیچ پیغام خطایی فقط برروی آن فرم تولید نکند
در ادامه نیز کدهای زیر را بنویسید.
بخاطر داشته باشید که هر پیغام خطا دارای شماره مخصوص میباشد.
به عنوان مثال خطای تکراری بودن دارای شماره 3022 میباشد . شما میتوانید شماره تمامی خطاها را از Help اکسس بدست آورید.

Response = 0
if DataErr = 3022 then
" کد وارد شده تکراری میباشد" msgbox

End If