MS Access - Обновление конкретные значения одной таблицы на основе значений из другой таблицы (поле Длина Удельная)

Question

Одна таблица имеет адресное поле с примерами значений:

123 Main Street Professional Center 
456 Avenue Of Americas Financial Square 
678 Great Northern Boulevard University Centre 

Эти значения превышают определенное количество символов (в данном случае - длина поля 30)

у меня есть другая таблица, которая имеет значения и их USPS одобрил аббревиатуры:

Field1 Acronym 
Street St 
Boulevard Blvd 
Square Sq 

Я хотел бы быть в состоянии обновить улица колонка I n моя первая таблица с аббревиатурами из второй таблицы, основанная на совпадающих значениях в Field1 в моей второй таблице.

Возможно? Альтернативные решения высоко ценятся.

Answer 1

Одним из возможных решений является itereate для каждой записи в таблице акронимов. Затем замените соответствующее значение.

Public Sub UpdateTable() 
Dim rs As Recordset 
Dim sql As String 
    Set rs = CurrentDb.OpenRecordset("acronyms") 
    Do Until rs.EOF 
     sql = "UPDATE addresses SET address = Replace([address], '" & rs!Field1 & "', '" & rs!Acronym & "') WHERE address like '*" & rs!Field1 & "*'" 
     CurrentDb.Execute sql 
     rs.MoveNext 
    Loop 
    rs.Clone 
End Sub 

Примечание: В зависимости от версии MS-доступа, как выражение должно быть с * или%