الكود  [الحساب] = DLookup("[اسم الحساب]", "بحث وادراج", "[اسم الحساب] like'*" & [الحساب] & "*' ")