想通过筛选后的子窗体，然后一次性审核筛选出来的数据，但是会报错。请大高手帮看...

iico

点击全选，或是反选的时候，会报错。

iico

已解决，感谢Roych.代码调整：Private Sub Frame6_AfterUpdate()
Dim rs As Object
Dim i As Long
Dim B As Boolean
Dim aa As String

Set rs = Me.child1.Form.Recordset

Select Case Me.Frame6.Value
       Case 1
       B = True
       Case 2
       B = False
End Select

Me.child1.SetFocus
If rs.RecordCount > 0 Then rs.MoveFirst
   Do Until rs.EOF

        rs.Edit
        rs!审核 = B
        rs.Update
        aa = rs!工单编号
        rs.MoveNext
    Loop

   Me.Frame6.Value = Null
End Sub
这个可以做到筛选出来的子窗体数据，进行全选和反选。希望对大家有用

Henry D. Sy

1. Private Sub Frame6_AfterUpdate()
   
2.     Dim B As Boolean
   
3.     Select Case Me.Frame6.Value
   
4.         Case 1
   
5.             B = True
   
6.         Case 2
   
7.             B = False
   
8.     End Select
   
9.     CurrentDb.Execute "Update 待审核表 Set 审核=" & B
   
10.     Me.child1.Form.Requery
    
11. End Sub

复制代码