时间戳

首页 > 解决方案 > 如何处理损坏的表链接上的错误

vba - 如何处理损坏的表链接上的错误

问题描述

我最近更新了我的链接表以使用UNC链接。但是，当我使用没有映射驱动器的机器测试前端时，我的错误处理过程会Set rs = CurrentDb.OpenRecordset("SELECT ItemName FROM tblDonatedItems")根据错误号失败。3044 有没有办法捕获错误以便程序可以继续运行？请看下面：

Private Sub Form_Load()
On Error Resume Next
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT ItemName FROM tblDonatedItems")
If Err.Number <> 0 Then
MsgBox "Error Number: " & Err.Number & " " & Err.Description & " Please link to backend file!", , "Locate backend file"
Call AttachDataFile
End If
rs.Close
Set rs = Nothing
    DoCmd.Close acForm, Me.Name
    DoCmd.OpenForm "frmSplash"
End Sub

我也试过这个没有成功：

Private Sub Form_Load()
On Error GoTo ErrorHandler

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT ItemName FROM tblDonatedItems")
ErrorHandler:
If Err.Number <> 0 Then
MsgBox "Error Number: " & Err.Number & " " & Err.Description & " Please link to backend file!", , "Locate backend file"
Call AttachDataFile

rs.Close
Set rs = Nothing
    DoCmd.Close acForm, Me.Name
    DoCmd.OpenForm "frmSplash"
    Else: MsgBox ("Error! Please email: info@abc.com Quoting Error Number: " & " Err.Number"), vbCritical
    DoCmd.OpenForm "frmSplash"
End If
End Sub

标签： vbams-access

解决方案

推荐阅读