請教讓子窗體的記錄中的復(fù)選框全選的問題

smilingkiss

想請教附件里面,如何通過主窗體aaa里面的check2來進行操作,讓子窗體bbb里面的復(fù)選框全選呢?
附加功能:
在子窗體有篩選條件時,只對篩選的記錄的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("閣下復(fù)選框名稱").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

復(fù)制代碼

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
   

復(fù)制代碼

smilingkiss

Henry D. Sy 發(fā)表于 2013-1-20 10:15
3樓怎么亂碼了

版主,多謝了,不過這段語句好像不能實現(xiàn)附加功能:
在子窗體有篩選條件時,只對篩選的記錄的check進行"全選"

Henry D. Sy

smilingkiss 發(fā)表于 2013-1-20 12:20
版主,多謝了,不過這段語句好像不能實現(xiàn)附加功能:
在子窗體有篩選條件時,只對篩選的記錄的check進行"全選 ...

那就把條件再加進去。

Henry D. Sy

看不出子窗體有什么篩選條件？

smilingkiss

Henry D. Sy 發(fā)表于 2013-1-20 12:48
看不出子窗體有什么篩選條件？

我的意思是我在操作的時候,有可能把一些記錄剔除出去(通過篩選)再做全選

Henry D. Sy

那你要一次說明白，否則永遠無法達到你的要求。

smilingkiss

Henry D. Sy 發(fā)表于 2013-1-20 13:35
那你要一次說明白，否則永遠無法達到你的要求。

哦哦，可能是我語文表達欠妥吧，我以為主帖上最后那句就表達出來了