ник: Мюллер
В соседней ветке был пример разбора слов на символы
Вот один из вариантов, приведенных там
test = "[\-\(\)+ !?.']"
Dim i As Integer
For i =1 to Len(test)
s = Mid(test, i, 1)
CurrentDB.Execute "Delete FROM Таблица WHERE Str1 Like*'" & s & "'* '"
Next i
Как то так. Возможно с кавычками и апострофами я напутал. Уже не помню точно синтаксис конструкции. Но суть должна быть понятна