Access VBA 读取当前记录集位置？答案

【问题标题】：Access VBA read the current recordset position?Access VBA 读取当前记录集位置？
【发布时间】：2020-07-13 14:08:24
【问题描述】：

我想保存选定记录集字段中的数据，但我只保存第一条记录。（Vorname、db 和 rs 是公共变量） [Vorname] 是记录集中的列名。查询显示在子表单中。

代码：

Set db = CurrentDb
Set rs = db.OpenRecordset("Kontaktabfrage", dbOpenDynaset)
Vorname = rs![Vorname]
Me.Refresh

我想获取选中的记录。示例：

ID| Vorname
1   John
2   Will
3   Stan

当我在子表单中选择 Will 时，记录集给了我 John，因为他是第一条记录，但我想要 Will。如何读出该属性？

【问题讨论】：

标签： vba ms-access

【解决方案1】：

使用表单的RecordsetClone：

Set rs = Me.RecordsetClone
' or, if in a subform:
' Set rs = Me.SubformControlNAME.Form.RecordsetClone

' Position the recordset to match the current record of the form.
rs.Bookmark = Me.Bookmark
' or, if in a subform:
' rs.Bookmark = Me.SubformControlNAME.Form.Bookmark

Vorname = rs![Vorname].Value

【讨论】：

这不是一个方法，它是你的子表单的名称 control - 如果你有的话。