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

azadich

پنج شنبه 08 دی 1390, 13:19 عصر

لطف کنید پیغام های شماره 94 و3265 پیوستی را فارسی کنید ممنون

مهدی د

پنج شنبه 08 دی 1390, 17:16 عصر

آیا منظور شما ترجمه فارسی پیغامهای ذکر شده است؟ در این صورت پیغام اول یعنی "استفاده از تهی غیر معتبر است" و پیغام دوم یعنی "مورد در مجموعه پیدا نشد"

azadich

پنج شنبه 08 دی 1390, 18:19 عصر

آیا منظور شما ترجمه فارسی پیغامهای ذکر شده است؟ در این صورت پیغام اول یعنی "استفاده از تهی غیر معتبر است" و پیغام دوم یعنی "مورد در مجموعه پیدا نشد"
ضمن عرض تشکر من میخوام پیغام ها به صورت فارسی نمایش داده شود ممنون

Abbas Amiri

پنج شنبه 08 دی 1390, 20:54 عصر

از قالب زیر ویا از دستور SELECT Case برای موارد بیشتر می توان استفاده کرد

Private Sub Command0_Click()
On Error GoTo ErrHandlerCommand0_Click

Dim str As String
str = Me.Text1
RenameTable "a", str

Exit Sub
ErrHandlerCommand0_Click:
If Err = 94 Then
MsgBox "استفاده از مقدار نول مجاز نمی باشد"
ElseIf Err = 3265 Then
MsgBox "آیتم موردنظر درمجموعه پیدا نشد."
End If
End Sub

azadich

پنج شنبه 08 دی 1390, 23:09 عصر

از قالب زیر ویا از دستور SELECT Case برای موارد بیشتر می توان استفاده کرد

Private Sub Command0_Click()
On Error GoTo ErrHandlerCommand0_Click

Dim str As String
str = Me.Text1
RenameTable "a", str

Exit Sub
ErrHandlerCommand0_Click:
If Err = 94 Then
MsgBox "استفاده از مقدار نول مجاز نمی باشد"
ElseIf Err = 3265 Then
MsgBox "آیتم موردنظر درمجموعه پیدا نشد."
End If
End Sub

اگه امکانش هست لطف کنید روی نمونه انجام دهید

Abbas Amiri

پنج شنبه 08 دی 1390, 23:45 عصر

کد بالا در روال کلیک باتن 'تغییر نام جدول ' نمونه خودتان درج شده است . آنرا جایگزین کنید.