Question

当我运行这部分程序时，运行时错误3709会不断弹出。有谁知道我能做些什么来解决它？

Public cn As New ADODB.Connection

Public rs As New ADODB.Recordset

Public CustomerID As Integer

Public CustFirstName As String

Public CustLastName As String


Sub GetCustomerList()

    Dim strSQL As String
    Dim Customers As Variant

    ' Import customer info and use it to populate the list box.
    ' After frmcustomers is unloaded, we will know the CustomerID
    ' and Customer Name of the selected order.

    strSQL = "SELECT CustomerID, CustFirstName, CustLastName FROM Customers"
    rs.Open strSQL, cn

    frmCustomers.Show

    rs.Close
End Sub

谢谢，

JM

Answer 1

解决，我收到此错误＆＃34; 3709在使用此代码的任何记录＆＃34;中找不到搜索键：

DoCmd.CopyObject , "Data_OldCurrentMemberDetails", acTable, "Data_CurrentMemberDetails"

我喜欢的是我的文件名称包含＆＃34; [，]＆＃34; （方括号）。

为了避免这些错误，请将您的文件名保留为纯文本，即不要包含＆＃34; [，]，％，...＆＃34;

Answer 2

根据您报告的错误，似乎在您致电GetCustomerList()时，连接未打开。

Answer 3

在数据库中，当您创建包含索引的备注字段或创建包含自动索引的文本的字段名称时，它无法写入包含超过3450个字符左右的文本字段。当您尝试在字段中写入更多文本或修改现有数据时，收到类似于以下异常3709的错误消息

http://support.microsoft.com/kb/302525

Answer 4

为了完整起见，我在尝试导入列标题中具有前导或尾随空格的Excel电子表格时收到错误3709（在任何记录中找不到搜索键）。删除它，它消失了。这是在Access 2013中。

Answer 5

尝试编辑一个特定记录时，我得到了相同的错误代码。这是一个常规记录，没有数据或验证不一致。

显然这是一个随机的数据损坏问题，我相信在使用MS Access几年后得到的第一个问题（仅用于统计参考，而不是专业或陈述！）

运行Compact And Repair例程解决了问题。

VBA /宏中的错误3709

5 个答案: