سوال: فارسی کردن پیغام [بایگانی]

azadich

یک شنبه 21 فروردین 1390, 13:31 عصر

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

michkadol

یک شنبه 21 فروردین 1390, 19:23 عصر

این مشکل مربوط به کدهای vb برنامه تون میباشد
باید کدهایی که نوشتین رو بررسی کنید ببینید کجا مشکل داره

azadich

یک شنبه 21 فروردین 1390, 19:52 عصر

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

mehdi_fiz

دوشنبه 22 فروردین 1390, 19:45 عصر

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

azadich

چهارشنبه 24 فروردین 1390, 18:37 عصر

سلام دوست عزیز
نمونه کد یا فایلتون رو ضمیمه کنید تا شماره خطایی که میده مشخص بشه چیه بعد بر اساس اون پیغام فارسیش نمایش داده بشه این پیغام به صورت کلیه و وقتی فایل به صورت mde در میاد نمایش داده می شود
موفق باشید
سلام دوست بسیار عزیزم خطایی که می خوام فارسی بشه مربوط به کد زیره خواهش می کنم راه حل فارسی کردنش را بگید ممنون البته وقتی رکورد مربوطه خالیه این پیام میاد که میخوام فارسی بشه
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If dblPag < 0 Then dblPag = 0
dblPag = Nz(Me.Text5, 0) + dblPag
dblOldTemp = Nz(Me.Text5, 0)
End Sub

mehdi_fiz

پنج شنبه 25 فروردین 1390, 23:29 عصر

سلام دوست عزیز
من دقیق نمی دونم شما می خواهید چه پیامی نمایش داده شود ولی با کد زیر هر خطایی که رخ بده همین پیغام نمایش داده خواهد شد ولی می تونید با بدست اوردن کد خطا پیام فارسی مربوط به همون خطا رو نمایش بدید
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo test
If dblPag < 0 Then dblPag = 0
dblPag = Nz(Me.Text5, 0) + dblPag
dblOldTemp = Nz(Me.Text5, 0)
test:
MsgBox "پيغام مورد نظر"
End Sub

موفق باشید

azadich

یک شنبه 28 فروردین 1390, 18:26 عصر

سلام دوست عزیز
من دقیق نمی دونم شما می خواهید چه پیامی نمایش داده شود ولی با کد زیر هر خطایی که رخ بده همین پیغام نمایش داده خواهد شد ولی می تونید با بدست اوردن کد خطا پیام فارسی مربوط به همون خطا رو نمایش بدید
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo test
If dblPag < 0 Then dblPag = 0
dblPag = Nz(Me.Text5, 0) + dblPag
dblOldTemp = Nz(Me.Text5, 0)
test:
MsgBox "پيغام مورد نظر"
End Sub

موفق باشید
بسیار ممنون عالی بود

mohsen1393

سه شنبه 10 فروردین 1395, 01:18 صبح

سلام دوست عزیز
من دقیق نمی دونم شما می خواهید چه پیامی نمایش داده شود ولی با کد زیر هر خطایی که رخ بده همین پیغام نمایش داده خواهد شد ولی می تونید با بدست اوردن کد خطا پیام فارسی مربوط به همون خطا رو نمایش بدید
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo test
If dblPag < 0 Then dblPag = 0
dblPag = Nz(Me.Text5, 0) + dblPag
dblOldTemp = Nz(Me.Text5, 0)
test:
MsgBox "پيغام مورد نظر"
End Sub

موفق باشید

سلام
چطور میشه کد خطای این نوع Err ها رو بدست آورد
از Msgbox dataerr استفاده کردم نشد

mohsen1393

سه شنبه 10 فروردین 1395, 02:08 صبح

سلام
چطور میشه کد خطای این نوع Err ها رو بدست آورد
از Msgbox dataerr استفاده کردم نشد

سلام راه حلش رو پیدا کردم(از تالار VB )
باید نوشت Msgbox err.number
و اما مشکل جدید : چطور می بایست از نمایش پیام لاتین بعد از نمایش خطا جلوگیری کرد؟:متفکر::متفکر::متفکر:
از Response=0 استفاده کردم اما نشد.

amirzazadeh

سه شنبه 10 فروردین 1395, 04:16 صبح

سلام
از اين كد استفاده كنيد:

Response = acDataErrContinue
......................
موفق باشيد

mohsen1393

چهارشنبه 11 فروردین 1395, 11:22 صبح

سلام
با تشکر از پاسخ شما