Access 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