Как заменить отдельные слова с помощью таблицы и запроса

[АлИван]

Спасибо Вам. Честно говоря с VBA как в темном лесу.
Посветите, пожалуйста, на дорогу, скажите куда прилепить этот код.

[Андрэич]

Красота в простоте:

SELECT СДол AS СтароеНаименование,
	   НДол AS НовоеНаименование,
	   Должность AS СтараяДолжность,
	   Replace(Должность,Left(Должность,InStr(Должность," ")-1),НДол) AS НоваяДожность
FROM ТблДолжности,ТблЗаменаДолж
WHERE Left(Должность,InStr(Должность," ")-1)=СДол

ЗЫ. Неграмотно названия должностей писать с малнькой буквы...

SELECT СДол AS СтароеНаименование,
	   НДол AS НовоеНаименование,
	   Должность AS СтараяДолжность,
	   Ucase( Left(Replace(Должность,Left(Должность,InStr(Должность," ")-1),НДол),1)) & 
			   Mid(Replace(Должность,Left(Должность,InStr(Должность," ")-1),НДол),2
			 ) AS НоваяДожность
FROM ТблДолжности,ТблЗаменаДолж
WHERE Left(Должность,InStr(Должность," ")-1)=СДол

[АлИван]

Сообщение от Андрэич

Неграмотно названия должностей писать с маленькой буквы...

Название должности пишется с маленькой буквы, ну если только Президент!
К сожалению, не все гениальное просто...
Не меняется вторая часть сложных должностей (помощник начальника отдела - старший инженер).
Должности через тире машинистка-делопроизводитель (выдает ошибку и не открывается) см. пример. Если так машинистка - делопроизводитель, запрос открывается, но без замены делопроизводитель.