各位帮忙看看这段代码错在那里？

uranusllj

Private Sub 组合0_BeforeUpdate(Cancel As Integer)
　　Me.list列表5.RowSource = "SELECT tbl_ckd.ckd_工装类型, Sum(tbl_ckd.ckd_出库数量) AS 出库总数 FROM tbl_ckd WHERE ([tbl_ckd].[ckd_凭证类型]="领用" and year([ckd_出库日期]) =" & Me.组合0 & " ) GROUP BY tbl_ckd.ckd_工装类型;"
end Sub

我把代码放在列表框里的行来源里是正常的，放在VBA里就会报错“编译错误，缺少语句结束!” 但只要把[tbl_ckd].[ckd_凭证类型]="领用" and 这段去掉就不会报错。

uranusllj

顶

zhuyiwen

Private Sub 组合0_BeforeUpdate(Cancel As Integer)
　　Me.list列表5.RowSource = "SELECT tbl_ckd.ckd_工装类型, Sum(tbl_ckd.ckd_出库数量) AS 出库总数 FROM tbl_ckd WHERE (ckd_凭证类型='领用' and year(ckd_出库日期) =" & Me.组合0 & " ) GROUP BY tbl_ckd.ckd_工装类型;"
end Sub

[em24][em24]

uranusllj

好了，谢谢