ник: Ю.Ш.
Чтение значения конкретного поля таблицы или запроса можно сделать функцией Dlookup.
Если поверять нужно много полей, то проще открыть Recordset на записи сотрудника и проверять поля Recordset-а.
Пример применения Dlookup.
Dim V as Variant
V=Dlookup("Телефон","Сотрудники","Код_сотрудника=" & KodSotr)
If IsNull(V) then .... - нет телефона
Пример применения Recordset.
Dim R as DAO.Recordset
Set R=Currentdb.OpenRecordset("Select * From Сотрудники Where Код_сотрудника=" & KodSotr)
If IsNull(R!Телефон) then .... - нет телефона