вывод данных

[Teslenko_EA]

Здравствуйте pav00.
одним из достоинств SQL интегрированного в MS Access, является возможность использования VBA функций как "собственных".
и потому допустима подобная конструкция:

SELECT Mid([Комментарий], InStrRev([Комментарий], ")") + 1, InStrRev([Комментарий], "****") - InStrRev([Комментарий], ")") - 1) FROM ...

но её громоздкость "толкает" на создание пользовательской функции:

Function sValFld(v)
Dim s$, g%, i%
s = v & ""
If IsNull(v) Then
ElseIf Not Len(s) = 0 Then
    g = InStrRev(s, ")") + 1
    i = InStrRev(s, "****")
    If i > g Then
     sValFld = Mid(s, g, i - g)
End If
End Function

её применение:

SELECT sValFld([Комментарий]) FROM ...

Успехов Вам.
Евгений.

P.S. R Dmitry Вы конечно правы, без счета позиции гораздо симпатичнее.

Function sValFld(v)
Dim s$: s = v & ""
v = Split(s, ")")
If UBound(v) > 0 Then
    s = v(1): v = Split(s, "****")
    If UBound(v) >= 0 Then sValFld = Trim(v(0))
End If
End Function