使用MS-Access VBA從記錄集中選擇一個值

Question

我想為名稱創建搜索文本框。 我正在使用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

我應該如何處理？

Answer 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