MS Access vba逗号从字段分隔的字符串

Question

我需要短的vba代码来将ms访问表字段转换为逗号分隔的字符串变量

T1.F     to    'A','123','008','A'
A
123
008
A

Answer 1

以下内容将在s中获得您想要的字符串：

Dim s as String, rs as Recordset

s = " Select [F] from [T1] "
Set rs = CurrentDb.OpenRecordset(s)
s = ""
While Not rs.EOF
    s = s & "'" & rs(0) & "',"
    rs.moveNext
Wend
s = Left(s,Len(s) - 1)
rs.close