Чтение из RecordSet в VBA

Question

Я работаю над MS ACCESS 2010

У меня есть таблица, в которой идентификаторы сотрудников и некоторые другие поля хранятся как

f123 - - -
f543 - - -
f654 - - -
f123 - - -

и т. Д.

'когда я запускаю

strSQL="Select Distinct emp_id from Tbl"

Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst

Do While Not rs.EOF
    idVar = rs!Emp_Id
    rs.MoveNext
Loop

Значения, полученные в наборе записей: 123, 543 и т. д. вместо f123, f543 и т. д. Когда я запускаю запрос в дизайне запросавид это работает отлично.Просьба помочь.

Answer 1

Код выше не работает.Код ниже работает - msgbox включен для проверки значений

Private Sub Command0_Click()
Dim strSQL As String
Dim rs As Recordset
Dim idVar As String

strSQL = "Select Distinct emp_id from Tbl"

Set rs = CurrentDb.OpenRecordset(strSQL)
rs.MoveFirst

Do While Not rs.EOF
    idVar = rs!Emp_Id
    MsgBox idVar 'check value
    rs.MoveNext
Loop
End Sub

Answer 2

Я пытался воссоздать проблему, но безуспешно, боюсь.

Пожалуйста, смотрите дамп экрана.Не уверен, что это поможет вам.

Спасибо Марк