تم الحل
If IsNull(DLookup("[company_name]", "tbl_company", "[company_name]='" & Me.txt_search & "'")) Then
MsgBox "هذه الشركة غير موجودة", 16, "بحث"
لكن في مشكلة صغيرة وهي
البحث عاملة خاصة لايك يعني اي شي مشابة لكلمة البحث يظهر
اما الان فلا يظهر يجب اسم الكلمة بشكل عام