Где-то было у меня такое... Сейчас гляну. Вот оно:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
Public Function DelTablesNames(strInp As String) As String
' Первоначально сделана для чистки строки сортировки/фильтров и др.
' Очищает часть строки sql, оставляя в ней только имена полей,
' и удаляя предшествующие им имена таблиц/форм и т.п.
' Дв. кавычки ("") считаются частью строки, не имени поля.
Dim s As String
Dim c As String
Dim t As Long
Dim bQs As Boolean ' Флаг действия квадратных скобок
Dim bK As Boolean ' Флаг действия одинарных кавычек
Dim bP As Boolean ' Флаг чтения имени таблицы/формы/etc
strInp = Replace(strInp, """", "'")
For t = Len(Nz(strInp)) To 1 Step - 1
c = Mid(strInp, t, 1 )
If c = "'" And Not bQs Then bK = Not bK
If c = "]" And Not bK Then bQs = True
If c = "[" And Not bK And bQs Then bQs = False
If c = "." And Not bK And Not bQs Then bP = True ' "Мусор" начался
If ((c = "(" Or c = "<" Or c = ">" Or c = "=" Or c = " ") And Not bQs) _
And bP Then bP = False ' "Мусор" закончился
If Not bP Then s = c & s
Next t
s = Replace(s, " Alike ", " Like ")
DelTablesNames = s
End Function
А используется примерно так:
Set rs = Me.RecordsetClone
If Me.OrderByOn = True Then rs.Sort = DelTablesNames(Me.OrderBy)
или
rs.Open "select * from mytable " & _
IIf(Len(Nz(Me.ServerFilter)) > 0, " where " & DelTablesNames(Me.ServerFilter), ""), cn
и т.п.
