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