本意是想把查询结果中“姓名”字段的内容全都复制到剪贴簿……

danhanqing

Sub 人事管理_提取当前状态人员列表_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim clipboard As DataObject
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source= \\ms-mg01\明声：数据库\明声数据库.MDB;Jet OLEDB:Database Password=DGms123456789;"
conn.Open
Set rs = conn.Execute("select 姓名,任职状态 from 人事档案总表 where 任职状态='" & Me.Controls(页面名称 & "_" & "任职状态") & "'")
Set clipboard = New DataObject
Do Until rs.EOF
clipboard.SetText rs("姓名").Value
clipboard.PutInClipboard
rs.MoveNext
Loop
rs.Close: conn.Close: Set rs = Nothing: Set conn = Nothing
End Sub


'结果只有一个人名被复制，请老师们帮我看下问题出在哪里？新人学习中……

剑指E

试试：

danhanqing

原来如此！赞赞赞！解决问题！万分感谢！