如何从 Access VB 更新选择的 SQL 记录？

Question

我正在寻求帮助，以创建对所选项目进行以下更新的最简单方法。

我在 SQL 中有一个名为 Item 的表，其中包含字段 ReservationID

我在 Access 中有一个项目列表，我想做的是使用 Access 表单中的记录选择器选择项目，然后使用 SQL 更新命令使用 ReservationID 更新这些项目。

我在某处读到只能选择相邻的记录选择器，这很好，但我真的不知道从哪里开始。

任何指点将不胜感激。谢谢。 ---23/02/2017--- 好的，我将其从函数更改为 Private Sub：

Private Sub cmdReserve_Click()
 Dim i As Long
 Dim frm As Form
 Dim rs As DAO.Recordset
 ' Get the form and its recordset.
 Set frm = Forms![F_SalesOrders_ItemsInStock]
 Set rs = frm.RecordsetClone
 ' Move to the first record in the recordset.
 rs.MoveFirst
 ' Move to the first selected record.
 rs.Move frm.SelTop - 1
 ' Enumerate the list of selected records 
 ' presenting the field contents in a message box.
 For i = 1 To frm.SelHeight
   MsgBox rs![ItemID]
   rs.MoveNext
 Next i
End Sub

但是当我选择记录并点击按钮时没有任何反应

Answer 1

考虑一个链接表并遍历记录集。

Function DisplaySelectedCompanyNames()
 Dim i As Long
 Dim frm As Form
 Dim rs As DAO.Recordset

 ' Get the form and its recordset.
 Set frm = Forms![Customers]
 Set rs = frm.RecordsetClone

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

 ' Move to the first selected record.
 rs.Move frm.SelTop - 1

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

End Function