ник: katerpeller
Set test1 = dbsNorthwind.QueryDefs("test1") ' çàïðîñ â áàçå ñ çàïðîñîì %)
m = test1.SQL
k = test1.Type
If k = 64 Or k = 80 Then
txt = InStr(1, m, "INTO", 1) + 5
txt2 = InStr(txt, m, "[", 1)
If txt2 = txt Then
txt3 = InStr(txt, m, "]", 1) - 1
tabl_nm = Mid(m, txt + 1, txt3 - txt)
Else
txt3 = InStr(txt, m, " ", 1)
tabl_nm = Mid(m, txt, txt3 - txt)
End If
End If
Вот как-то так... Все работает. Естественно только для запроса на создание или добавление... над другими думать лень, т.к. не использую их в работе