全选，全不选的源码，别的库中能通过，复制过来就不行了。

木行之　发表于：2012-03-07 20:34:11 　

Private Sub Check4_Click()
If Check4 = 0 Then
CurrentProject.Connection.Execute = "update 1临时表(汇总表打印) set 是否打印=0;"
Else
CurrentProject.Connection.Execute = "update 1临时表(汇总表打印) set 是否打印=-1;"
End If
Me.P岗位聘任汇总表打印子窗体.Form.Requery
End Sub

VBA中这个调试，总出现黄色的 CurrentProject.Connection.Execute 通不过，不知道问题在哪？

Top

麥田发表于：2012-03-07 20:56:02

用命令按钮控制复选框或者选项按钮是否全选的示例-Access软件网
http://www.accessoft.com/article-show.asp?id=5242

Top

红尘如烟发表于：2012-03-07 21:00:52

你的问题就在于表名称中有特殊符号，却没有加方括号造成编译错误，可以改成下面这样。

Private Sub Check4_Click()
DoCmd.SetWarnings False

DoCmd.RunSQL "UPDATE [1临时表(汇总表打印)] SET 是否打印=" & Me.Check4

DoCmd.SetWarnings False

Me.P岗位聘任汇总表打印子窗体.Form.Requery
End Sub

Top

木行之发表于：2012-03-07 21:48:37

谢谢。问题解决了。应该加方括号。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]全选，全不选的源码，别的库中能通过，复制过来就不行了。