filt = Forms("Форма")("text1").Value
sql = "SELECT table.pole1,table.pole2,table.pole3 FROM teble ORDER BY [Ôàìèëèÿ] WHERE ((table.pole6)=" & filt & ")"

блин неправильно написал

----------------
filt = Forms("Форма")("text1").Value
sql = "SELECT table.pole1,table.pole2,table.pole3 FROM table
WHERE ((table.pole6)=" & filt & ")"

а че ето за красные палочки

влин как в онлайне

так ето |"| или |'| и зачем их так много


P.S.
как в VFP все легче :-)

А нифига -- ошибка синтаксиса(Пропущен оператор) в выражение запроса


----------------
Dim sql As String
Dim rs As Recordset
Dim XLapp As Object
Dim filt As String
filt = Forms("Форма")("text1").Value
sql = "SELECT table.pole1,table.pole2,table.pole3 FROM table
WHERE ((table.pole6)=""" & filt & """)"
Set XLapp = GetObject("C:\rasp.xls")
XLapp.Parent.Windows(1).Visible = True

With XLapp.Application
.displayalerts = False
.workbooks(1).worksheets(1).Cells(50, 2).CopyFromRecordset rs
.workbooks(1).worksheets(1).range("T1") = filt
.workbooks(1).worksheets(2).range("L20") = filt
.Visible = True
End With
--------------------

Блин да че за лажа ваще никак не получается убираешь where все нормально
а вставляешь ошибка
Делал по другому-- создавал запрос физически в акцесе делал на него селект все нормально, но когда вызываешь его через кнопку то блин ошибка
все поля везде текстовые ЧЕ ЗА ПРОБЛЕМА???
еще раз весь код:

Dim sql As String
Dim rs As Recordset
Dim XLapp As Object
Dim filt As String
filt = Forms("Форма")("text1").Value
sql = "SELECT table.pole1,table.pole2,table.pole3 FROM table
WHERE ((table.pole6)=""" & filt & """)"
Set rs = CurrentDb.OpenRecordset(sql)
Set XLapp = GetObject("C:\rasp.xls")
XLapp.Parent.Windows(1).Visible = True
With XLapp.Application
.displayalerts = False
.workbooks(1).worksheets(1).Cells(50, 2).CopyFromRecordset rs
.workbooks(1).worksheets(1).range("T1") = filt
.workbooks(1).worksheets(2).range("L20") = filt
.Visible = True
End With

Блин да че такое ну нифига не фурычет ошибка синиаксиса
Запрос написан в одну строчка ето в форуме в две

---------------
Dim sql As String
Dim rs As Recordset
Dim XLapp As Object
Dim filt As String
filt = Forms("Отчеты")("№ группы").Value
sql = "SELECT вод.фам,вод.имя,вод.отч,вод.[№ группы] FROM вод ORDER BY [фам] WHERE ((вод.[№ группы])='" & filt & "')"
Set rs = CurrentDb.OpenRecordset(sql)
Set XLapp = GetObject("C:\rasp.xls")
XLapp.Parent.Windows(1).Visible = True
With XLapp.Application
.displayalerts = False
.workbooks(1).worksheets(1).Cells(50, 2).CopyFromRecordset rs
.workbooks(1).worksheets(1).range("T1") = filt
.workbooks(1).worksheets(2).range("L20") = filt
.Visible = True
End With
---------------
если вместо filt пишешь в "BC-01" таже самая ошибка етот же селект работает в физическом запросе а когда вставляешь в VBA нифига!!!!!

вау зарабатало , ну типы вы блин даете(но только я непойму в чем разница)
Всем ОГРОМНЫЙ СЕНКС!!!!!!!!!!!!!!!!!!!!!!!!!!!!

всех благодарю вопрос исчерпан
No VBA, VFP forever!!!! (VFP -- DML cool)