请教让子窗体的记录中的复选框全选的问题

smilingkiss

想请教附件里面,如何通过主窗体aaa里面的check2来进行操作,让子窗体bbb里面的复选框全选呢?
附加功能:
在子窗体有筛选条件时,只对筛选的记录的check进行"全选"

在此小弟先谢过啦^_^!!!!!!!!!!!!!!!

todaynew

sub 全选()
      dim frm as form
      dim i as long
      set frm=me.阁下的子窗体控件名称.form
      for i=1 to frm.recordsetclone.recordcount
            frm.seltop=i
            frm.controls("阁下复选框名称").value=true
     next
end sub

Henry D. Sy

1. Private Sub Check20_Click()
   
2.     Dim sSQL As String
   
3.     sSQL = "update bbb set check=" & Me.Check20 & " where bÁªÏµid=" & Me.ÁªÏµID
   
4.     CurrentDb.Execute sSQL
   
5.     Me.bbb_×Ó´°Ìå.Requery
   
6. End Sub

复制代码

Henry D. Sy

3楼怎么乱码了{:soso_e110:}

1. Private Sub Check20_Click()
   
2. Dim sSQL As String
   
3. sSQL = "update bbb set check=" & Me.Check20 & " where bÁªÏµid=" & Me.ÁªÏµID
   
4. CurrentDb.Execute sSQL
   
5. Me.bbb_子窗体.Requery
   
6. End Sub
   

复制代码

smilingkiss

Henry D. Sy 发表于 2013-1-20 10:15
3楼怎么乱码了

版主,多谢了,不过这段语句好像不能实现附加功能:
在子窗体有筛选条件时,只对筛选的记录的check进行"全选"

Henry D. Sy

smilingkiss 发表于 2013-1-20 12:20
版主,多谢了,不过这段语句好像不能实现附加功能:
在子窗体有筛选条件时,只对筛选的记录的check进行"全选 ...

那就把条件再加进去。

Henry D. Sy

看不出子窗体有什么筛选条件？

smilingkiss

Henry D. Sy 发表于 2013-1-20 12:48
看不出子窗体有什么筛选条件？

我的意思是我在操作的时候,有可能把一些记录剔除出去(通过筛选)再做全选

Henry D. Sy

那你要一次说明白，否则永远无法达到你的要求。

smilingkiss

Henry D. Sy 发表于 2013-1-20 13:35
那你要一次说明白，否则永远无法达到你的要求。

哦哦，可能是我语文表达欠妥吧，我以为主帖上最后那句就表达出来了