Access表单从编辑模式切换至新建模式时触发运行时错误2105的问题求助

我来帮你搞定这个困扰了你一周的2105错误！这个错误的核心原因是你在切换新建记录模式时的操作冲突，还有一些不必要的风险操作，我们一步步调整代码来解决：

问题根源分析 #

• 重复的新建记录操作：当你设置Me.DataEntry = True时，表单已经自动进入了仅允许新建记录的模式，此时再调用DoCmd.GoToRecord , , acNewRec就会触发“无法转到指定记录”的错误，因为已经处于新建记录状态了。
• 手动修改自增ID列的风险：Access的COUNTER（自增）列会自动维护，手动用ALTER TABLE修改起始值不仅没必要，还会导致绑定的表单记录集失效，尤其是在多用户环境下，DMax("ID")+1还可能产生重复ID。
• Recordset操作与表单状态冲突：在DataEntry模式下，直接操作Me.Recordset.AddNew会和表单的自动新建状态冲突，引发错误。

修改后的完整代码 #

Private Sub cmdSearch_Click()
    Dim lMaxCustNum As Long
    Dim strTable As String
    strTable = "tblMarketBulletinNew"
    
    ' 关闭警告并清除现有筛选
    DoCmd.SetWarnings False
    Me.FilterOn = False
    Me.Filter = "[FirstName1] like '" & Me.txtSearchFirstName & "*' AND [LastName1] like '" & Me.txtSearchlastName & "*'"
    Me.FilterOn = True
    
    If Me.Recordset.RecordCount > 0 Then
        ' 找到匹配记录：跳转到第一条并设置控件权限
        DoCmd.GoToRecord , , acFirst
        Me.txtOrigSignUpDate.Locked = True
        Me.txtAction.Locked = False
        Me.txtExpirationDate.Locked = True
        Me.txtAction.DefaultValue = "" ' 清除新建记录的默认值
        Me.lblRenSignupDate.Visible = True ' 恢复续费日期控件可见性
        Me.txtrenSignupDate.Visible = True
    Else
        ' 未找到记录：切换到新建模式并初始化字段
        Me.FilterOn = False
        ' 关键：移除DataEntry=True，改用AllowAdditions确保可以新建，同时保持表单能查看现有记录（如果需要）
        ' 如果确实需要仅显示新建记录，保留Me.DataEntry=True，但删除后续的GoToRecord acNewRec
        Me.AllowEdits = True
        Me.AllowAdditions = True
        Me.AllowDeletions = True
        
        ' 自动获取新客户编号（用Nz处理表为空的情况）
        lMaxCustNum = Nz(DMax("NewCustNum", strTable), 0) + 1
        
        ' 直接跳转到新建记录，无需额外的Recordset.AddNew
        DoCmd.GoToRecord , , acNewRec
        
        ' 设置新建记录的默认值和控件状态（字符串默认值需用双引号包裹）
        Me.txtAction.DefaultValue = """New"""
        Me.txtAction.Locked = True
        Me.txtStatus.DefaultValue = """Active"""
        Me.txtExpirationDate.Locked = True
        Me.lblRenSignupDate.Visible = False
        Me.txtrenSignupDate.Visible = False
        
        ' 填充搜索时输入的姓名
        Me.txtFirstName1 = Me.txtSearchFirstName
        Me.txtLastName1 = Me.txtSearchlastName
        Me.txtOrigSignUpDate = Date
        Me.txtCustNumber = lMaxCustNum
    End If
    
    DoCmd.SetWarnings True
    Me.SetFocus
End Sub

关键改动说明 #

1. 调整新建记录的模式切换逻辑：
   • 如果你希望表单在新建时仍能查看现有记录，就注释掉Me.DataEntry = True，仅用AllowAdditions = True；
   • 如果你确实需要表单仅显示新建记录，保留Me.DataEntry = True，但一定要删除DoCmd.GoToRecord , , acNewRec，因为DataEntry模式已经自动打开了新建记录。
2. 删除了手动修改ID自增列的代码：Access会自动管理COUNTER列的递增，不需要手动干预，这避免了表结构修改导致的记录集失效问题。
3. 修正了默认值的写法：字符串类型的默认值需要用双引号包裹（比如"""New"""），否则会出现语法错误。
4. 用Nz函数处理空值：当表为空时，DMax("NewCustNum", strTable)会返回Null，用Nz(..., 0)确保加1后得到正确的初始值1。
5. 移除了重复的Recordset.AddNew：直接用DoCmd.GoToRecord , , acNewRec进入新建记录，和表单状态保持一致，避免冲突。

额外建议 #

• 多用户环境下，DMax("NewCustNum", strTable)+1可能会产生重复的客户编号，建议用自动编号字段或者生成唯一编号的查询来替代，比如用一个单独的表来存储当前最大编号，每次新建时锁定表并递增，避免冲突。
• 调试时可以在关键步骤前加Debug.Print输出记录集状态，比如Debug.Print Me.Recordset.State，帮助排查记录集是否处于有效状态。

内容的提问来源于stack exchange，提问作者user2576682