ник: Силыч
. я бы на BeforeUpdate вешал
. я бы использовал в данном случае ф-ю DLookUp, имхо, в данном случае она очень даже оправдана
а ошибка в этой строке
rs.FindFirst "[НомерТел] = 'Me!НомерТелЗак.Value'"
нужно
rs.FindFirst "[НомерТел] = '" & Me!НомерТелЗак.Value & "'"