ник: FORMAT
CurrentDb.Execute "INSERT INTO [Наличие услуг]![ШифрМВЗ] values ('" & Forms![Подразделение1]![ШифрМВЗ] & "')"
Неправильный синтаксис
CurrentDb.Execute "INSERT INTO ([Наличие услуг]) ( [ШифрМВЗ]) values ('" & Forms![Подразделение1]![ШифрМВЗ].value & "')"
Если недопустим ввод пустых значений, тогда предварительно проверяем
if not isnull( Forms![Подразделение1]![ШифрМВЗ]) then
CurrentDb.Execute "INSERT INTO ([Наличие услуг]) ( [ШифрМВЗ]) values ('" & Forms![Подразделение1]![ШифрМВЗ].value & "')"
else
msgbox ( "Поле не заполнено")
end if
Ну или что то в этом роде.
ЗЫ Называть поля и контролы кирилицей есть дурной тон. Используйте латиницу, так в последствии будет меньше проблем.