求助！关于复选框

大白菜小白菜

站到终点站 发表于 2015-2-3 15:15
这下真的就不懂了，似乎你那个附件没有这个问题啊，选中复选框之后，其他项是没有被自动选中的

你点“清除”刷新自窗体没？刷新子窗体后就显示所有记录被选定了。

站到终点站

我的版本是2010的，没有这个问题啊

大白菜小白菜

站到终点站 发表于 2015-2-3 16:22
我的版本是2010的，没有这个问题啊

不是你那样选择的，用窗体上头的“审核选择”复选框选择查询得到的结果，而不是手工一个个勾选（考虑到查询结果可能有数百条呢）。你用“审核选择”复选框勾选查询得到的结果然后点击“清除”刷新窗体就会显示所有记录被勾选了。我想是不是审核勾选事件代码有问题，我是小白也不懂，老师给我看看。

大白菜小白菜

站到终点站 发表于 2015-2-3 16:22
我的版本是2010的，没有这个问题啊

我想“审核选择”复选框事件通过代码改成：只选定当前窗体显示的记录应该就不会有问题。但不知道代码怎么改。

站到终点站

把审核_AfterUpdate过程代码更改成下面的样子

1. Private Sub 审核_AfterUpdate()
   
2. 
   
3.     DoCmd.SetWarnings False
   
4.     If Me.订单表查询子窗体.Form.Filter = "" Then
   
5.         DoCmd.RunSQL "UPDATE 订单表 SET 审核=" & Me.审核
   
6.     Else
   
7.         DoCmd.RunSQL "UPDATE 订单表 SET 审核=" & Me.审核 & " Where " & Me.订单表查询子窗体.Form.Filter
   
8.     End If
   
9.     DoCmd.SetWarnings True
   
10.     Me.订单表查询子窗体.Requery
    
11. End Sub

复制代码

大白菜小白菜

站到终点站 发表于 2015-2-3 16:57
把审核_AfterUpdate过程代码更改成下面的样子

很感谢你！纠结我这么久的问题解决了。谢谢前辈！