Собственно говоря сабж, вот выгружаю я данные в Exel, а как проверить были выгружены данные или нет? Или может надо у самого Exel получить информацию о том были данные выгружены или нет? Не знаю.
Подскажите, пожалуйста!

Dim xlsObject As Object
If Not IsNull(Me.flPath) And Not (Me.flPath = "") Then
Else
MsgBox "Не указан путь выгрузки!", vbOKOnly, "Ошибка ввода"
GoTo ex
End If

If Not IsNull(Me.flSheet) And Not (Me.flSheet = "") Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "зап_все_поля2", Me.flPath, , Me.flSheet
Else
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "зап_все_поля2", Me.flPath, , "Лист1"
End If

'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "SELECT пк_дата, пк_время FROM зап_все_поля", 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

DoCmd.SetWarnings False
DoCmd.OpenQuery "зап_все_поля_флаг", acViewNormal
DoCmd.SetWarnings True
Forms![фрм_ввод_данных].Refresh
Forms![фрм_ввод_данных].Requery

ex:
End Sub

2 Amel:
Спасибо, а можно, пожалуйста, поподробней (очень подробно)
Rs.RecordCount куда поставить и как оно должно работать?

Пожалуйста, подскажите, куда и как вставить Rs.RecordCount, что-то пробую, но никак не получается.

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

Ей, кто-нибудь, подскажите, пожалуйста!!! Очень надо!!!

Надо проверить успешность выгрузки данных.
(Безошибочность проверять не надо).

А попроще ничего нельзя придумать?
Не, нужно просто определить, что произошла выгрузка!
Я хотел поставить это событие на клик кнопки (код приведен в посте 13:33),
но кнопка слишком мого всего проверяет и туда, наверно уже код не запихнуть?

О, идея!
А как можно определить, что весь код от 13:33 прошел без ошибок, т.е. я имею в виду, что пользователю не выдался ни 1 MsgBox, и если это условие произошло, то на успешное выполнение я бы запустил
DoCmd.SetWarnings False
DoCmd.OpenQuery "зап_все_поля_флаг", acViewNormal
DoCmd.SetWarnings True
а в случае неудачи заново прогнал бы весь код!

Только как это осуществить???

>Тогда остается одно - импортировать полученный файл обратно в Аксесс и >проверять, сколько в нем записей.
А как это реализовать с помощью кода?

Попытался эту проблему обойти, но заказчику опять надо, чтобы Ac97 проверял успешность выгрузки данных в Excel.
Если кто-нибудь сталкивался с данной проблемой, откликнитесь, пожалуйста!

2 CtrlAlt:
Спасибо, но мне наверно как-раз нужно:
>Но для своих конкретных отчетов можно написать что-нибудь и попроще.

2 PaulB:
Спасибо, сегодня уже нет сил воплощать, когда попробую - напишу.