Access 2000 - курс лекций
a. Создание отчета
После создания формы, попробуем создать «Отчет о расчетах», путем импорта его из базы данных «Старый калькулятор». Этот способ также часто применяется при работе с базами данных. В качестве переменной с именем отчета введем параметр strReport.
Public Function funCreateReport(strReport As String) As Boolean
On Error GoTo 999 'Переход по ошибке
funCreateReport = False 'Возвращаем значение при ошибке
appAccess.DoCmd.TransferDatabase acImport, "Microsoft Access", appFolder & "\Старый калькулятор.mdb", acReport, strReport, strReport, False
funDetalReport strReport 'Изменяем отчет
funCreateReport = True 'Возвращаем значение
Exit Function
999:
MsgBox Err.Description 'Сообщение об ошибке
Err.Clear 'Очищаем поток от ошибок
End Function
