使用 MS-Access VBA 从记录集中选择一个值答案

【问题标题】：Choosing a value from a recordset using MS-Access VBA使用 MS-Access VBA 从记录集中选择一个值
【发布时间】：2014-10-08 21:53:04
【问题描述】：

我想为名称创建一个搜索文本框。我正在使用 DAO 记录集来获取与输入的名称类似的记录。返回多个记录时，我想向用户显示结果并让他从列表中选择一个名称（记录）。

Dim dbs As DAO.Database
Dim Rs As DAO.Recordset
Dim strSQL As String
Dim SQL As String

Set dbs = CurrentDb()

Dim diverFirstName As String
diverFirstName = CStr(Me.txtSearchFirst) + "*"

strSQL = " SELECT tblDiver.* " & _
         " FROM tblDiver " & _
         " WHERE tblDiver.firstName LIKE '" & diverFirstName & "' ;"

Set Rs = dbs.OpenRecordset(strSQL, dbOpenDynaset)
Rs.MoveLast

If Rs.RecordCount > 1 Then
     *** code to display a table with the returned records so that the user can choose here ***
Exit Sub

我应该如何处理这个问题？

【问题讨论】：

标签： vba ms-access dao recordset

【解决方案1】：

您通过以下方式循环浏览记录集结果：

rs.moveFirst
do until rs.eof
    'add to a listbox or something
    me.listbox1.additem rs.fields("firstname").value & " " & rs.fields("lastname").value

    rs.moveNext
loop

【讨论】：