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

[АлИван]

Здравствуйте. Помогите, пожалуйста, произвести замену некоторых значений в таблице с помощью запроса. Результатом запроса должно стать поле НДолжность, которое приведено в ТблНовДолжности. Для наглядности планируемый результат запроса набран вручную.
Замену нужно провести с помощью ТблЗаменаДол.

[WorldMaster]

Студенты блин, вы научитесь самостоятельно работать или нет?? на кой хер вы вообще учитесь на професию инженера если способностей ноль?
Вы хоть бы свои идеи выложили ... кому интересно ваш код разбирать

[АлИван]

Дорогой Вы наш "инженер до мозга костей" ! Студентом я никогда не был и уже, наверное, вряд ли стану. Уже за 50 перешел... И не надо хамить.
И ни на какой х... Ну ладно, бог Вам судья. Ну не хочется Вам помощь, что Вы лезете и хамите.
Уважаемый форум! Почему Вы позволяете такое? Наказывать никого не надо, бог воздаст... Удачи всем!

[Андрэич]

Простой запрос на выборку из таблицы с заменой; исходная таблица остаётся неизменной (Запрос1):

select 
	Switch (
		Должность Like '*помощник*',Replace(Должность,'помощник','заместитель'),
		Должность Like '*делопроизводитель*',Replace(Должность,'делопроизводитель','инспектор'),
		Должность Like '*старший*',Replace(Должность,'старший','главный'),
		Должность Like '*машинист*',Replace(Должность,'машинист','оператор')
		   ) as НДолжность
from тблДолжности

Запрос на изменение данных непосредственно в этой таблицы (Запрос2); после его выполнения возврат изменений будет невозможен (поэтому предварительно сделайте резервную копию файла):

update тблДолжности set Должность =
	Switch (
		Должность Like '*помощник*',Replace(Должность,'помощник','заместитель'),
		Должность Like '*делопроизводитель*',Replace(Должность,'делопроизводитель','инспектор'),
		Должность Like '*старший*',Replace(Должность,'старший','главный'),
		Должность Like '*машинист*',Replace(Должность,'машинист','оператор')
		   )

[Андрэич]

Файл во вложении:

[Андрэич]

Файл во вложении:..

[АлИван]

Спасибо Вам большое. Пока нет другого варианта, можно воспользоваться Вашим. Для небольшого числа замен достаточно. Просто пример упрощен и если в таблице нужно заменить несколько сотен должностей, запрос будет очень длинным. Можно ли провести замену с помощью запроса на обновление, ссылаясь на данные в таблицах? Еще раз спасибо!

[Андрэич]

Сообщение от АлИван

пример упрощен и если в таблице нужно заменить несколько сотен должностей...

Я так и знал: "малой кровью" не отделаться :-)

А SQL-запросом - это принципиально? Посредством VBA, если другое не придумается, подойдёт?

Выложите фрагменты обеих таблиц, можно с изменёнными данными, но максимально похожими на оригинал, что важно (нет ли ошибок в написании, расположение слов и т.д.)

[АлИван]

VBA - можно и VBA. Принципиально важно, чтобы замена происходила в зависимости от того, что будет в ТблЗаменаДолж, даже если в поле СДол стоит к примеру "хрен", а в поле НДол "редька", то в ТблДолжности везде, где бы ни встретилось слово "хрен" оно бы менялось на "редька"
Интересно было б посмотреть, как справится с этим VBA.

[Myhaylo]

Dim table As DAO.Recordset
  Set table = CurrentDb.OpenRecordset("SELECT ТблЗаменаДолж.СДол, ТблЗаменаДолж.НДол FROM ТблЗаменаДолж ORDER BY ТблЗаменаДолж.СДол;", dbOpenDynaset)
  With table
    DoCmd.SetWarnings False
    While Not .EOF
      DoCmd.RunSQL "UPDATE ТблНовДолжности SET ТблНовДолжности.НовДолжность = Left([Должность],InStr(1,[Должность],""" + !СДол + """)-1)+""" + !НДол + """+Mid([Должность],InStr(1,[Должность],""" + !СДол + """)+Len(""" + !СДол + """)) WHERE (((ТблНовДолжности.Должность) Like ""*" + !СДол + "*""));"
      .MoveNext
    Wend
    .MoveFirst
    While Not .EOF
      DoCmd.RunSQL "UPDATE ТблНовДолжности SET ТблНовДолжности.НовДолжность = Left([НовДолжность],InStr(1,[НовДолжность],""" + !СДол + """)-1)+""" + !НДол + """+Mid([НовДолжность],InStr(1,[НовДолжность],""" + !СДол + """)+Len(""" + !СДол + """)) WHERE (((ТблНовДолжности.НовДолжность) Like ""*" + !СДол + "*""));"
      .MoveNext
    Wend
    DoCmd.SetWarnings True
  End With