Question

access数据库 vb中调用sql语言的语法问题 docmd.runsql,查询语句的语法书写问题

sql="select 入库单.日期,入库单.单号,入库单.金额 from 入库单 where 入库单.供应商 = forms![入库单]！供应商名称 and 入库单.类别 = forms![入库单]！类别 and format(入库日期，"yyyy/mm") = format(dateadd("m",-1,now()),"yyyy/mm";)

Answer 1

dim strsql as string
strsql= "select 日期,单号,金额 from 入库单 where 供应商 ='" & Forms![入库单]!供应商名称 & "' and 类别 = '" & Forms![入库单]!类别 & "' and year(入库日期) =#" & Format(DateAdd("m", -1, Now()), "yyyy/mm") & "#"
docmd.runsql strsql

追问

我要是想把查询结果debug print 呢？sum([金额])赋值到窗体中的一个控件上

追答

上面代码有点问题，应该会提示一个不可执行的查询，你这个是一个选择查询，只有当是追加、删除、更新查询时才有效，如果你要输出查询是可以的，debug strsql

追问

这样可以吗？
dim strsql as string
strsql= " "
docmd.runsql strsql
debug strsql

me.[总金额] = sum(金额)

追答

不可以，VBA里只有dsum函数

Answer 2

docmd.runsql "sql语句"