اظهار ناتج البحث

السلام عليكم في المرفق التالي

المطلوب اظهار رقم عدد السجلات في ناتج البحث كما موضح بالصورة

علما انه يظهر عندما كانت في الكود الكلمات عربية ولكنه يختفي عندما حولتا الى اللغة الانكليزية

الرابط الخاص بي

الكود هو كالتالي

Dim الاسم As String
If Me!بحث_عن.Caption = "بحث عن" Then
Select Case خيار_البحث
Case 1
الاسم = "Like '" & ابحث_عن_التالي & "*'"
Case 2
الاسم = "Like '*" & ابحث_عن_التالي & "*'"
Case 3
الاسم = "Like '*" & ابحث_عن_التالي & "'"
End Select
Me.Filter = "[sam_codec] " & الاسم
Me.FilterOn = True
Me!بحث_عن.Caption = "إلغاء البحث"
DoCmd.GoToControl "ابحث_عن_التالي"
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "NO Record ."
Me.FilterOn = False
Me!بحث_عن.Caption = "بحث عن"
Else
نتيجة_البحث.Visible = True
Me.RecordsetClone.MoveLast
نتيجة_البحث.Caption = "Search Result:" & vbCrLf & Me.RecordsetClone.RecordCount
End If
Else
Me.FilterOn = False
Me!بحث_عن.Caption = "بحث عن"
نتيجة_البحث.Visible = False
Me.ابحث_عن_التالي = Null
Me.Bah = Null


End If

لاني لااستطيع تحويلها ال 2003 لاحتوائها على حقول متعددة القيم

وشكرا