使用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