Access 2000 - курс лекций




7a. Создание отчета


 

     После создания формы, попробуем создать «Отчет о расчетах», путем импорта его из базы данных «Старый калькулятор». Этот способ также часто применяется при работе с базами данных. В качестве переменной с именем отчета введем параметр 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

 









Начало    Назад    Вперед






Книжный магазин