Ms access 以连续形式标记记录

在一个连续的子表单中，我根据不同的查询显示记录。因为它是不同的，所以每一行都不包含记录ID

是否有人知道如何添加复选框（或类似复选框），以便用户可以选择任何记录，然后使用这些记录通过代码创建新记录

我更喜欢将子表单用于列表，因为它具有许多列排序和筛选功能

---

MTIA

根据创建记录的需要，类似此示例的内容可能适合：

Function DisplaySelectedCompanyNames()
   Dim i As Long
   Dim F As Form
   Dim RS As Recordset

   '' Get the form and its recordset.
   Set F = Forms![Customers1]
   Set RS = F.RecordsetClone

   '' Move to the first record in the recordset.
   RS.MoveFirst

   '' Move to the first selected record.
   RS.Move F.SelTop - 1

   '' Enumerate the list of selected records presenting
   '' the CompanyName field in a message box.
   For i = 1 To F.SelHeight
     MsgBox RS![CompanyName]
     RS.MoveNext
   Next i

End Function

---

进一步信息：

根据创建记录的需要，类似此示例的内容可能适合：

Function DisplaySelectedCompanyNames()
   Dim i As Long
   Dim F As Form
   Dim RS As Recordset

   '' Get the form and its recordset.
   Set F = Forms![Customers1]
   Set RS = F.RecordsetClone

   '' Move to the first record in the recordset.
   RS.MoveFirst

   '' Move to the first selected record.
   RS.Move F.SelTop - 1

   '' Enumerate the list of selected records presenting
   '' the CompanyName field in a message box.
   For i = 1 To F.SelHeight
     MsgBox RS![CompanyName]
     RS.MoveNext
   Next i

End Function

---

进一步信息：

供参考，我决定使用Windows列表视图OCX控件，因为它提供了为每行添加复选框的功能。

供参考，我决定使用Windows列表视图OCX控件，因为它提供了为每行添加复选框的功能。

不幸的是，这没有帮助，因此，as用户仅限于连续记录。而且，它不是特别直观。我正在尽我所能以某种方式“标记”一个隐藏字段，“复选框”可以是一个文本框，显示与Wingding相关的复选框字符。我一直在尝试使用“行突出显示”方法，其中未绑定的字段设置为其行号。在这种情况下，每行中的每个未绑定字段都有不同的值（即其行数）。只是看起来不太可能做到这一点。我敢肯定，如果有未绑定的控件和连续的表单，你将一事无成。我想你可以将相关记录复制到主窗体上的列表框中，作为选中记录时的一个值。不幸的是，这不会有帮助，因为用户只能使用连续的记录。而且，它不是特别直观。我正在尽我所能以某种方式“标记”一个隐藏字段，“复选框”可以是一个文本框，显示与Wingding相关的复选框字符。我一直在尝试使用“行突出显示”方法，其中未绑定的字段设置为其行号。在这种情况下，每行中的每个未绑定字段都有不同的值（即其行数）。只是看起来不太可能做到这一点。我敢肯定，如果有未绑定的控件和连续的表单，你将一事无成。我想当选择记录时，可以将相关记录作为值复制到主窗体上的列表框中。