Office中国论坛/Access中国论坛

标题: 关于复选框"全选","重选"的问题 [打印本页]

作者: goto2008 时间: 2007-8-31 15:27
标题: 关于复选框"全选","重选"的问题
在主窗体上..有两个复选框控件..."全选",重选和一个子窗体

我想实现的

当主窗的"全选"复选框被打勾时.....子窗体都要被打勾

当主窗的"重选"复选框被打勾时.....子窗体的打勾都要被取消

作者: goto2008 时间: 2007-8-31 16:31
这个问题....解决了....

作者: lirong 时间: 2007-10-23 23:22
是如何解决的分享一下.

作者: hauting 时间: 2007-10-25 09:38
Private Sub Check0_BeforeUpdate(Cancel As Integer)
If Me.Check0 = True Then
  Me.Check2 = False
  DoCmd.RunSQL "UPDATE 表1 SET 表1.审核 = True"
  Me.子窗体.Form.Requery
Else
End If
End Sub

Private Sub Check2_BeforeUpdate(Cancel As Integer)
If Me.Check2 = True Then
  Me.Check0 = False
  DoCmd.RunSQL "UPDATE 表1 SET 表1.审核 = false"
  Me.子窗体.Form.Requery
Else
End If
End Sub
===================
这样子的行不行呢？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)