Question

我已经完成了数据库的创建，它在我的计算机上运行良好。我正在使用Access 2013，在我的VBA代码中，我为大多数数据库中使用的每个函数/子编写了错误处理程序。但是，它设计的用户具有Access运行时2007，并且每次我在他们的机器上运行它时都会得到一个未捕获的错误“由于运行时错误，此应用程序的执行已停止”。

命令按钮的代码。

选项比较数据库

 Private Sub Command0_Click()
 Dim ErrorStep As String
 DoCmd.SetWarnings False
 '-------------------------------------------------------------------------------------
 ' Procedure : Command0_Click
 ' Author    : Chris Sparkes
 ' Date      : 13/08/2013
 '-------------------------------------------------------------------------------------
 ErrorStep = "1 - Cleansing Records"
 DoCmd.OpenQuery "qry1_3"
 DoCmd.OpenQuery "qry4-7"
 DoCmd.OpenQuery "qry9"

 Call ExcelOutputReport

 Exit_Command0_Click:
 On Error GoTo 0
 Exit Sub

 Command0_Click_Error:
 MsgBox "Error in procedure Command0_Click of VBA Document."
 GoTo Exit_Command0_Click
 On Error GoTo 0

 End Sub


 Public Function ExcelOutputReport()

Dim ErrorStep As String
DoCmd.SetWarnings False
'---------------------------------------------------------------------------------------
' Procedure : ExcelOutputReport
' Author    : Chris Sparkes
' Date      : 13/08/2013
'---------------------------------------------------------------------------------------
ErrorStep = "1 - Cleansing Records"

 Dim dbLocal As DAO.Database
    Dim tbloutput As DAO.Recordset
    'DAO Declarations

    Dim objExcel As New Excel.Application
    Dim objWorkbook As Excel.Workbook
    Dim objWorksheet As Excel.Worksheet


    Dim IntCurrTask As Integer
    Dim blurb As String

    Set dbLocal = CurrentDb()
    Set tbloutput = dbLocal.OpenRecordset("tbl_output")

    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("G:\Enliven Sales                 Report\Envliven_Report_Template_1.xls")
    Set objWorksheet = objWorkbook.Worksheets("Enliven")

    objExcel.Visible = True
    objWorkbook.Windows(1).Visible = True

    tbloutput.MoveFirst
    IntCurrTask = 2

Do While Not tbloutput.EOF
    With objWorksheet

    .Cells(IntCurrTask, 1).Value = tbloutput![CustomerOrderCode]
    .Cells(IntCurrTask, 2).Value = tbloutput![CustomerCode]
    .Cells(IntCurrTask, 3).Value = tbloutput![CustomerDescription]
    .Cells(IntCurrTask, 4).Value = tbloutput![ItemCode]
    .Cells(IntCurrTask, 5).Value = tbloutput![ItemDescription]
    .Cells(IntCurrTask, 6).Value = tbloutput![DateOrderPlaced]
    .Cells(IntCurrTask, 7).Value = tbloutput![CustomerDueDate]
    .Cells(IntCurrTask, 8).Value = tbloutput![Quantity]
    .Cells(IntCurrTask, 9).Value = tbloutput![ShippedQuantity]

          End With

        IntCurrTask = IntCurrTask + 1
        tbloutput.MoveNext
    Loop

    tbloutput.Close
    dbLocal.Close

    DoCmd.SetWarnings True

        Set tbloutput = Nothing
        Set dbLocal = Nothing
        Set objWorksheet = Nothing
        Set objWorkbook = Nothing
        Set objExcel = Nothing

Exit_ExcelOutputReport:
    On Error GoTo 0
    Exit Function

ExcelOutputReport_Error:
    MsgBox "Error at in procedure ExcelOutputReport of VBA Document."
    GoTo Exit_ExcelOutputReport

    End Function

有没有人有任何想法可能导致这个？引用应该没问题，因为我使用的是我所知道的与我所创建的不同数据库相同的引用。

谢谢，克里斯

Answer 1

您添加了错误例程，但未激活它们。在方法的开头，添加On Error Goto语句：

Private Sub Command0_Click()
    On Error Goto Command0_Click_Error
    ...
End Sub

Public Function ExcelOutputReport()
    On Error Goto ExcelOutputReport_Error
    ...
End Sub

在错误例程中，您应该（至少）显示Err.Description的内容而不是一般错误消息。否则，您将很难跟踪错误来源。 E.g：

MsgBox "Error in procedure Command0_Click: " & Err.Description

在运行时版本中运行数据库会出现错误

1 个答案: