访问VBA读取当前记录集位置？

Question

我想保存选定记录集字段中的数据，但是我只保存了第一条记录。 （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。我如何读出该财产？

Answer 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