求助：窗体筛选后的数据修改

309480068　发表于：2014-11-13 18:41:26 　

复制

请教高人，我想实现下图中，在数据表窗体对部门进行了筛选后，再单击复选框全选，筛选后的记录的选中字段都被选中，值为-1。点击下载此附件

Top

煮江品茶发表于：2014-11-13 19:40:29

dim ssql as string

ssql="update 阁下的数据表名称 set 选中=true where 筛选的条件"

docmd.runsql ssql

Top

309480068 发表于：2014-11-14 10:55:34

谢谢，这个UPDATE能在子窗体的数据里进行鼠标筛选后进行更新查询吗？

Private Sub Check_选中_Click()
Dim rs As Recordset
Set rs = Me.Parent.子窗体.Form.RecordsetClone
Select Case Check_选中
Case -1
Do Until rs.EOF = True
rs.Edit
rs.Fields("选中") = -1
rs.Update
rs.MoveNext
Loop
Case 0
Do Until rs.EOF = True
rs.Edit
rs.Fields("选中") = 0
rs.Update
rs.MoveNext
Loop
End Select
rs.Close
Set rs = Nothing

End Sub

Top

zhaoyoulong 发表于：2014-11-14 10:58:22

点击下载此附件

Top

309480068 发表于：2014-11-14 11:29:49

正解，问题解决了，谢谢谢谢

Top

309480068 发表于：2014-11-14 11:37:11

另外，我问一下，我的程序是哪里有问题？琢磨了好一阵子都不知道是哪里出了问题。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

求助：窗体筛选后的数据修改