Printable View
با سلام من وقتی در سرچ اطلاعات مورد نظر وجود ندارد کد خطاب 2185 داده می شود می خواهم این پیغام فارسی یا اصلا پیام خطا داده نشود از کد زیر استفاده کردم جواب نمی دهد لطفا راهنمایی فر مایید
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 2185
MsgBox "پيغام مورد نظر"
Case 2185
MsgBox "پيغام مورد نظر"
Response = 0
End Select
End Sub
سلام
response = acDataErrContinue
رسپانس رو به شكل بالا قرار بديد.
با سلام از راهنمایی شما دستوری که داده بودید را انجام دادم جواب نگرفتم کد ها در فایل ارسالی نوشته شده لطفا اصلاح فرمایید که خطا ندهد یا خطا فارسی باشد باتشکر
با سلام مجدد لطفا دوستان واساتید محترم نسبت به تصحیح کد مربوط به فایل پیوستی محبت نمایند وقتی کد ملی که در بانک وجود ندارد وارد می شود خطا می دهد راهنمایی بفرمایید که یاپیام خطا فارسی بدهد یا خطا ندهد ( کد ها داخل فایل نوشته شده است نیاز به اصلاح دارد ) با سپاس فروان
باسلام منتظر جواب دوستان هستم
سلام اگه میخوای فقط ازش رد بشی بدون پیام
On Error Resume Next
این رو اول خط کدهات یذار اگه میخای پیام بده این کد رو با مال خودت جایگزین کن و اون کدی که در رویداد ان ارور فرم گذاشتی پاک کن
On Error Resume Next
Me.Recalc
Me.SerialSearcher.SetFocus
Me.Filter = "kodmelei like '*" & Nz(Me.SerialSearcher, "*") & "*'"
Me.FilterOn = True
Me.SerialSearcher.SelStart = Len(Nz(Me.SerialSearcher, 0)) + 1
If Me.Recordset.RecordCount = 0 Then
' ArianMsgCod = ArianMsgBox(" جستجو بدون نتيجه است لطفا اطلاعات را چک کنيد ", vbCritical, "خطا"
MsgBox " جستجو بدون نتيجه است لطفا اطلاعات را چک کنيد "
Me.SerialSearcher = Null
Me.Refresh
Me.FilterOn = False
Else
' ArianMsgCod = ArianMsgBox(" تعداد " & Me.Recordset.RecordCount & "مورد مطابق اطلاعات ورودي پيدا شد ", vbCritical, "خطا"
'MsgBox " تعداد " & Me.Recordset.RecordCount & "مورد مطابق اطلاعات ورودي پيدا شد "
End If
با سلام دوست عزیز کد ها را امتحان کردم باز هم خطا می دهد
سلام
كد ariayekta مشكلي نداره و درست عمل ميكنه.
سلام
بفرمایید تو نمونه خودتون اصلاح کردم
باسلام وتشکر وسپاس ازشمابسیار عالی بود آرزوی سلامتی وتندرستی برای شما وخانواده محترم