если пишу

Public Function zap()
Dim StrSQL As String
StrSQL = "Select телефон, * from выдача"
zap = StrSQL
End Function

Public Sub detal()
Dim db As Database
Set db = CurrentDb
Set Me.Поле0.Recordset = db.OpenRecordset(zap)
Me.Поле0.ColumnCount = 16
Me.поле0.ColumnHeads = True
Me.Поле0.ColumnWidths = "2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000"
db.Close
Set db = Nothing
End Sub
у меня листбокс Поле0 заполняется

а если пишу

Public Sub detal()
Dim db As Database
DIM RTS as Recordset
Set db = CurrentDb
set RTS=db.OpenRecordset(zap)
Set Me.Поле0.Recordset = RTS
Me.Поле0.ColumnCount = 16
Me.поле0.ColumnHeads = True
Me.Поле0.ColumnWidths = "2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000"
db.Close
Set db = Nothing
End Sub
у меня ни чего не происходит

вот это вместо всей программы (в нужном месте формы/отчета)

Поле0.RecordSource="Select телефон, * from выдача"
+ код по размерам поля


п.с. можно пить водку носом - можно, но зачем

сть необхордимость считать данные из другой базы , не из связанной таблицами, просто отдельно хранящейся базы

Поле0.RecordSource="Select телефон, * from выдача IN 'Путь к другой базе'"

в том варианте который подсказал Анатолий, данные будут браться из таблицы другой базы, и рекордсет вам не нужен.
про остальные вопросы нужно более подробно, т.к. решение зависит от конкретики задачи.

форма как и поле имеет свой RecordSourse (Свойство формы - Закладка "Данные" - Источник записей) - к ней привязываем таблу или запрос (SQL строка) - тогда появятся все записи.

по поводу разобраться как работает - открываем Борей и в режиме конструктора смотрим что и как

а вообще есть потребность данные из рекордсета как то выгрузить просто в экселевскую таблицу и сохранить. данные уже находятся в том виде в котором надо.
они выгружаются из другой базы отфильтрованные и отсортированные , они у меня показываются в листбоксе (вид полностью устраивает) , но надо сохранить в экселе.

пытаюсь сделать через
DoCmd.OutputTo acOutputTable, ("tabl"), , , True

но для этого нужна сохраненная таблица, вот ее хочу сделать как времянной и загружать данные из рекордсета (котрые считаны), выгружать в эксель, потом из этой таблы их удалять.

пропробовал, объект exel открылся, а вот на строчке copyfromrecordset выдает ошибку

"Run-time error '438'"
"Object doesn't support this property or method"

скорее всего я не подключил библиотеку?
если да ее можно подключать программно?

Private Sub VigXL_Click()
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet.Cells(1, 1).CopyFromRecordset RST
ExcelSheet.SaveAs "C:\ TEST.xls"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing
End Sub

RST - это рекордсет который я и хочу выгрузить

и еще один момент так как не совсем все понял, можно сделать так чтобы и заголовки столбцов копировались в EXEL?

ws.Cells(1, 1) = "Заголовок1"
ws.Cells(1, 2) = "Заголовок2" и т.д.

Private Sub VigXL_Click() Dim ExcelSheet As Object ' такое объявление переменных wb и ws потребует наличия ссылки на библиотеку excel ' если описать просто как as object, то ссылки не потребуется Dim wb As Workbook Dim ws As Worksheet ' получаем ссылку на объект Excel Set ExcelSheet = CreateObject("Excel.application") ' устанавливаем свойство SheetsInNewWorkbook равным 1 (это означает что во вновь создаваемой книге будет 1 лист , в принципе это можно не делать) ExcelSheet.SheetsInNewWorkbook = 1 ' в коллекцию Workbooks добавляем новый объект (Workbook) одновременно сохраняя ссылку на него в переменной wb Set wb = ExcelSheet.Workbooks.Add ' получаем ссылку на 1-й лист (Worksheet ) в созданной книге одновременно сохраняя ссылку на него в переменной ws Set ws = wb.Worksheets(1) 'для ячейки с адресом 1,1 вызываем метод CopyFromRecordset передавая в качестве параметра наш рекордсет ws.Cells(1, 1).CopyFromRecordset RST ' закрывам Workbook вызывая метод Close wb.Close Закрываем excel с помощью метода Quit ExcelSheet.Quit End Sub

спасибо всем. не успел отписаться ранее с заголовками разобрался. но вот не понял почему первый вариант не работает, что я там не дописал?

Добрый день.
спасибо за подсказки, все заработало. но есть один не понятный для меня момент.
на 8 компах работает нормально, Ексель запускается, все копируется и форматируется.
а на одном компе ексель почему то даже не открывается. почему не могу понять, думал что нибудь в настройках безопасности - сделал самый низкий уровнь но не помогло

везде 2007

у меня таблицы ежемесячно формируются с количеством записей более 2 500 000 строк (записей) и в них столбцов штук 10.
выгружать их в ексель и обрабатывать не резон.
вот с помощью запросов я выбираю нужные записи из отдельного файла (получается от 500 до 1000 строк) и их уже хочу выгружать в ексел

спасибо за разъяснения. с самими циклами все понятно (разновидностями и их условиями), а вот с телом цикла как то у меня не залдилось. еще раз спасибо.

пошел дальше грызть... дырки