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 这段去掉就不会报错。
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