Question

access sql语法错误

Dim aa
DoCmd.RunSQL "insert into" & dd & "select alls.* from alls where format(alls.结算时间,'yyyy-mm')=" & aa
dd是表名变量 aa是年月时间变量格式如"2015-05"
哪错了?
我的两个表结构完全一致 但含有自动编号 根据两位的提示,我改成:DoCmd.RunSQL "insert into" & dd & "( 病人姓名, 病人类别, 就诊金额,收费员, 结算时间, 有效标志 ) SELECT allss.病人姓名, allss.病人类别, allss.就诊金额, allss.收费员, allss.结算时间, allss.有效标志 from alls WHERE format(allss.结算时间,'yyyy-mm') ='" & aa & "'"
其中 dd 前后是有空格的,且都有赋值. 但还是语法错误. ' text11由窗体文本框填写赋如:201505
Dim dd As String
Dim aa
dd = Left(Text11, 4) & "年" & Right(Text11, 2) & "月"
(此处有个创建该月表过程 可以运行)
aa = Left(Text11, 4) & "-" & Right(Text11, 2)

Answer 1

缺空格，缺数据类型引导符
Dim aa as string
aa = "2015-05"
DoCmd.RunSQL "insert into " & dd & " select alls.* from alls where format(alls.结算时间,'yyyy-mm')= '" & aa & "' "

追问

限于追问字数限制,我改问题补充.请再看看. 谢谢!

追答

建议你执行runsql前，debug.print一下sql语句，看看问题到底出在哪里

Answer 2

代码运行前变量dd和aa必须先赋值
代码变量dd前后漏了留空格，dd必须要用单引号括起来
DoCmd.RunSQL "insert into " & dd & " select alls.* from alls where format(alls.结算时间,'yyyy-mm')='" & aa & "'"

注意，由于没有指定插入的目标字段名，表名dd的表结构必须跟alls变的结构完全一致且不含自增id字段，否则即使语法正确也无法执行

追问

限于追问字数限制,我改问题补充.请再看看. 谢谢!