Microsoft Access子窗体SubA无法插入SQL Server表，其他窗体可正常插入

核心原因 #

你遇到的ID自增但无数据的情况，本质是INSERT语句执行后触发了错误，Access自动回滚了事务，但因为你用DoCmd.SetWarnings False屏蔽了所有警告和错误提示，导致看不到报错。

对比三段代码，关键差异在Batch_num的处理：

• SubA中你给Me.txtBatchNum.value加了单引号，把它当成字符串插入
• FormB/SubB里直接用数值19插入

这说明[dbo_Depreciation]表的Batch_num字段是数值类型（比如int、decimal），SubA的字符串值插入会触发类型不匹配错误，导致插入操作被回滚，但SQL Server的自增ID（IDENTITY）一旦分配就不会回收，所以会出现ID跳号的现象。

解决步骤 #

1. 先打开警告，确认错误
   暂时注释掉SubA代码里的DoCmd.SetWarnings False和DoCmd.SetWarnings True，执行插入操作，此时会弹出具体的错误提示（大概率是类型不匹配），验证判断：

Private Sub Command86_Click()
    ssqls = "INSERT INTO [dbo_Depreciation] (Account, Subaccount, Anual_Dep, Month_Dep, State, Book_Value, Batch_num) VALUES (2, 4, 187244.23, 13123, 1, 700000, '" & Me.txtBatchNum.value & "' )"
    ' DoCmd.SetWarnings False
    DoCmd.RunSQL ssqls
    ' DoCmd.SetWarnings True
End Sub

2. 修正SQL语句
   如果Batch_num是数值类型，去掉单引号，直接拼接数值：

Private Sub Command86_Click()
    ssqls = "INSERT INTO [dbo_Depreciation] (Account, Subaccount, Anual_Dep, Month_Dep, State, Book_Value, Batch_num) VALUES (2, 4, 187244.23, 13123, 1, 700000, " & Me.txtBatchNum.value & " )"
    DoCmd.SetWarnings False
    DoCmd.RunSQL ssqls
    DoCmd.SetWarnings True
    ' 更新txtBatchNum的递增逻辑
    Me.txtBatchNum.Value = Me.txtBatchNum.Value + 1
End Sub

3. 更安全的方案：使用参数化查询
   直接拼接字符串容易出现类型问题和SQL注入风险，建议用参数化查询：

Private Sub Command86_Click()
    Dim qdf As QueryDef
    Set qdf = CurrentDb.CreateQueryDef("", _
        "INSERT INTO [dbo_Depreciation] (Account, Subaccount, Anual_Dep, Month_Dep, State, Book_Value, Batch_num) " & _
        "VALUES (2, 4, 187244.23, 13123, 1, 700000, [pBatchNum])")
    
    qdf.Parameters("[pBatchNum]") = Me.txtBatchNum.Value
    qdf.Execute dbFailOnError ' 强制抛出错误，方便排查
    
    Set qdf = Nothing
    Me.txtBatchNum.Value = Me.txtBatchNum.Value + 1
End Sub

用dbFailOnError参数可以确保错误被抛出，不会静默失败，比SetWarnings False更可控。

额外注意点 #

• 确认子窗体中Me.txtBatchNum.Value的取值是否正确：比如文本框是否绑定了错误的字段，或者是否为空值（如果为空，插入数值型字段也会报错）。
• 不要长期依赖DoCmd.SetWarnings False，它会屏蔽所有系统提示，包括重要的错误信息，排查问题时务必关闭它。

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