Выбор значения из набора записей с использованием 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

Вы перебирать результаты Recordset с:

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