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 'Очищаем поток от ошибок

Содержание раздела

---