关于复选框"全选","重选"的问题

goto2008

在主窗体上..有两个复选框控件..."全选",重选    和一个子窗体


我想实现的

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


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

goto2008

这个问题....解决了....

lirong

是如何解决的分享一下.

hauting

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
===================
这样子的行不行呢？