我有一个包含多个网站的报告,其中数据库中的每一行都是一个页面
我已经设置了一个宏来打印打印视图中的报告,并添加了一个功能
在开始上述报告。我们的想法是在打印整个报告时更新每行的值
我的方法:
Private Sub Dummy_Print(Cancel As Integer, PrintCount As Integer)
Dim SQL As String
SQL = "UPDATE dummy" & _
"SET dummy.printed = TRUE, dummy.printed_at = Now()" & _
"WHERE dummy.printed = FALSE AND dummy.id = " & Me.dummy_id
DoCmd.RunSQL SQL
End Sub
但是这段代码永远不会执行 我是否引用了每个dummy_id错误或语法错误?
答案 0 :(得分:2)
你应该在SET和WHERE前面放置空格。