سلام اگه میخوای فقط ازش رد بشی بدون پیام
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