从VBA中的RecordSet读取

Question

我正在研究MS ACCESS 2010

我有一张表，其中员工ID和其他一些字段存储为

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

我试图在没有任何成功的情况下重新创造这个问题。

请看屏幕转储。不确定这是否会对你有帮助。

谢谢马克