0
我想爲名稱創建一個搜索文本框。我正在使用DAO記錄集來獲取與輸入名稱相似的記錄。當返回多個記錄時,我想向用戶顯示結果並讓他從列表中選擇一個名稱(記錄)。使用MS-Access VBA從記錄集中選擇一個值
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
我該如何解決這個問題?