表名正确却触发Run Time Error 3078的Access问题求助

看起来你遇到的问题主要是表单控件引用的语法问题，加上SQL语句的潜在错误导致的，咱们一步步来排查修复：

先排查基础问题 #

• 确认表单与控件状态：Access引用表单控件时，目标表单必须处于打开状态，而且控件名称必须完全匹配。先检查frm_BP10_Tablet_MBR_Process和frm_BP10_Tablet_ViewMBR是否都在运行中，再核对控件名：frm_BP10_Tablet_MBR_Process里的CO、frm_BP10_Tablet_ViewMBR里的TxtSaveAs，拼写（包括大小写、特殊字符）不能错。
• 排除同名查询冲突：Access会优先查找同名的查询而非表，哪怕你验证了表名正确。打开导航窗格，看看有没有和tbl_MBR_MiscSteps同名的查询，如果有，要么重命名查询，要么在SQL里用方括号明确指定是表：[tbl_MBR_MiscSteps]。

修正复制记录的SQL语句 #

你遇到的「找不到‘|1’字段」错误，大概率是SQL里引用表单控件的语法有误，或者字段列表不明确导致的。正确的复制记录SQL应该这样写：

示例代码（明确指定字段） #

INSERT INTO tbl_MBR_MiscSteps (CO, StepID, StepDesc) -- 列出除主键/自动编号外的所有字段
SELECT 
    Forms!frm_BP10_Tablet_ViewMBR!TxtSaveAs AS NewCO, -- 替换成新的CO值
    StepID, StepDesc -- 原表的其他字段
FROM tbl_MBR_MiscSteps
WHERE CO = Forms!frm_BP10_Tablet_MBR_Process!CO; -- 筛选原记录的条件

注意：

• 不要把自动编号/主键字段包含在INSERT和SELECT里，否则会触发主键冲突错误。
• 如果控件值是字符串类型，记得转义单引号（避免SQL语法错误），比如用Replace(Forms!xxx!xxx, "'", "''")处理。

用DAO执行更可靠（避免立即窗口的3078错误） #

在立即窗口直接执行SQL容易因为上下文或语法细节出错，改用DAO对象执行会更稳定，还能捕获错误：

Dim db As DAO.Database
Dim strSQL As String

Set db = CurrentDb
' 转义单引号防止语法错误
Dim newCO As String
Dim filterCO As String
newCO = Replace(Forms!frm_BP10_Tablet_ViewMBR!TxtSaveAs.Value, "'", "''")
filterCO = Replace(Forms!frm_BP10_Tablet_MBR_Process!CO.Value, "'", "''")

strSQL = "INSERT INTO tbl_MBR_MiscSteps (CO, StepID, StepDesc) " & _
         "SELECT '" & newCO & "', StepID, StepDesc " & _
         "FROM tbl_MBR_MiscSteps " & _
         "WHERE CO = '" & filterCO & "';"

On Error GoTo ErrorHandler
db.Execute strSQL, dbFailOnError ' 执行时如果出错会抛出明确提示
MsgBox "记录复制成功！"
Exit Sub

ErrorHandler:
MsgBox "错误：" & Err.Description & "（错误代码：" & Err.Number & "）"
Set db = Nothing

最后验证 #

1. 运行上述VBA代码前，确保两个表单都打开，且CO和TxtSaveAs控件有有效值。
2. 如果还是报错，检查tbl_MBR_MiscSteps的字段类型：新的TxtSaveAs值是否和CO字段类型匹配（比如都是文本/数字）。

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