Для Ac97, есть кнопка, выгружающая данные в Exel.
Private Sub btSave_Click()
'On Error Resume Next
Dim xlsObject As Object
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel97,_
" мой_запрос ", Me.flPath, , Me.flSheet
If Me.flOpen Then
Set xlsObject = CreateObject("Excel.Application")
xlsObject.Workbooks.Open Me.flPath
xlsObject.Visible = True
MsgBox "Экспорт в Excel выполнен", vbOKOnly, ""
DoCmd.Close acForm, "открытая_форма"
Else
MsgBox "Экспорт в Excel выполнен", vbOKOnly, ""
DoCmd.Close
End If
End Sub

Все работает, но мне нужны не все поля из "мой_запрос", а только некоторые. Я вместо "мой_запрос" пишу:
"SELECT поле_которое_мне_нужно FROM мой_запрос", а Access выдает ошибку компиляции.
Подскажите, пожалуйста, как правильно написать источник, чтобы все работало?

>В команде DoCmd.TransferSpreadsheet нельзя писать селекты. См. хелп.

Как долго я ждал ответ на этот вопрос!!!

Спасибо, хелп я смотрел, я понимаю, что нельзя писать SELECT, а как нибудь это можно обойти, RowSource например, или еще как-нибудь?

:-)

2 ВС:
Большое спасибо, буду пробовать обойти это ограничение другим способом.