Access表单点击事件中插入FollowUpT表报错，请求技术支持

问题原因 #

你的代码存在两个核心错误：

• SQL语法不完整：VALUES关键字前缺少空格，导致拼接后的语句语法混乱；
• 变量未正确嵌入：直接把VBA的TempVars!PatientNumbervar写进SQL字符串，Access会将其视为未定义的SQL参数，触发“参数不足”报错。

修复方法 #

方法1：正确拼接SQL字符串 #

根据PatientNumber的数据类型选择对应写法：

• 文本类型编号（如字符串格式的病历号）：

CurrentDb.Execute "INSERT INTO FollowUpT (PatientNumber) VALUES ('" & TempVars!PatientNumbervar & "')"

注意给变量值包裹单引号，同时确保VALUES前有空格。

• 数字类型编号（如整数格式的ID）：

CurrentDb.Execute "INSERT INTO FollowUpT (PatientNumber) VALUES (" & TempVars!PatientNumbervar & ")"

无需单引号，但同样要保留VALUES前的空格。

方法2：参数化查询（推荐，更安全） #

拼接字符串容易出现格式错误或SQL注入风险，用参数化查询可以彻底避免这类问题：

Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("", "INSERT INTO FollowUpT (PatientNumber) VALUES (@PatientNum)")
qd.Parameters("@PatientNum").Value = TempVars!PatientNumbervar
qd.Execute
Set qd = Nothing

这种方式不需要手动处理引号，Access会自动适配数据类型，稳定性更强。

额外优化：直接从表单控件取值 #

如果PatientNumber值来自当前表单的控件（比如名为txtPatientNumber的文本框），可以跳过TempVars直接取值：

' 文本类型
CurrentDb.Execute "INSERT INTO FollowUpT (PatientNumber) VALUES ('" & Me.txtPatientNumber & "')"
' 数字类型
CurrentDb.Execute "INSERT INTO FollowUpT (PatientNumber) VALUES (" & Me.txtPatientNumber & ")"

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