子窗体数据源获取的问题

胡大威　发表于：2021-01-13 22:17:49 　

有表1，其中有字段 a,b，有窗体1，窗体1的数据源为表1。在窗体中单击右键使用快捷筛选，使字段a等于“张三”的记录给筛选出来了。怎么获得此时筛选后窗体的数据源？

西出阳关无故人发表于：2021-01-14 15:03:34

把"窗体1"作为"窗体2"的子窗体,在窗体2 上建一个按钮,按钮的点击事件代码如下:

Dim rec As Recordset
Set rec = Me.窗体1.Form.RecordsetClone
MsgBox rec.RecordCount'rec就是筛选后的数据的记录集

胡大威发表于：2021-03-04 20:49:08

那怎么把这个 “rec ” 的记录集赋给“窗体3”，当做其记录源呢？

我试着用 Me.窗体3.Form.RecordSource = rec ，但提示类型错误

西出阳关无故人发表于：2021-03-07 21:00:46

试一下:

set Me.窗体3.Form.RecordSource = rec

如果还提示错误,可能是dao的recordset和ado的recordset不兼容的问题了.

胡大威发表于：2021-03-08 19:21:32

试了一下，提示“属性的使用无效”，有什么其他方式可实现此功能不？把窗体1筛选后的数据传递给窗体3。

test

Top

胡大威发表于：2021-03-08 19:55:40

Private Sub Command2_Click()
Dim rec As Recordset
Set rec = Me.窗体1.Form.RecordsetClone
Set Me.窗体3.Form.Recordset = rec.OpenRecordset

End Sub

实践出真知啊，这样竟然成功了！

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

Access交流中心