С помощью DLookup можно выводить результат запроса в значение поля формы (в Данные поля или Значение по умолчанию, см. также Значение поля формы).
[Forms]![FormName]![FieldName] = DLookup("FieldName", "TableOrQueryName", "ID <> 0")