Использовать VBA в MS Access для выполнения нескольких функций REPLACE?

Question

Я работаю над проектом по очистке адресов, и мне нужно создать около 40+ правил для их исправления. Мне нужен файл Microsoft Access с запросом, который вызывает модуль visual basi c для выполнения нескольких команд REPLACE для строки данных.

Пример: допустим, строки данных выглядят так

• 123 Fake Str.
• 345 Fake Street

Я хочу, чтобы модуль visual basi c мог выполнять

• Заменить "Str." на «ST»
• Заменить «Street» на «ST»
• Заменить «Road» на «RD»

и так далее. Как только я получу это, я могу скопировать структуру на фактические данные. Однако я нахожусь на пределе своих знаний о том, как вызвать функцию VBA в запросе и как заставить функцию VBA экспортировать значение, которое может прочитать запрос. Любая помощь будет принята с благодарностью

Answer 1

Я не уверен, правильно ли я понимаю вашу проблему, потому что это очень простая задача:

sql = "SELECT MyReplaceFunction([MyAddressField]) FROM MyTable"

поместите функцию publi c в такой модуль:

Public Function MyReplaceFunction(FieldValue As String) As String
    FieldValue  = Replace(FieldValue,"Str.","ST")
    FieldValue  = Replace(FieldValue,"Street","ST")
    FieldValue  = Replace(FieldValue,"Road","RD")
' continue like that with all your criteria
    MyReplaceFunction = FieldValue  
End Function