我有一个Form，其中包含从代理的不同查询返回值的列表框。我已经制作了一个复制按钮，将此信息复制到我隐藏在表单中的剪贴板。但是，“复制”按钮不会复制列表框。
Private Sub cpyTLES_Click()
Me.lstClipboard = "Team Lead Error Scorecard" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Team Lead:" & Me.Team_Lead & Chr(13) & Chr(10) & "Total of Cases Created:" & Me.List14 & Chr(13) & Chr(10) & "Number Of Errors:" & Me.List18 & Chr(13) & Chr(10) & "Percent Of Errors:" & Me.List16 & Chr(13) & Chr(10) & "Error Types:" & Me.List56 & Chr(13) & Chr(10)
Me.lstClipboard.Visible = True
Me.lstClipboard.SetFocus
DoCmd.RunCommand acCmdCopy
Me.List56.SetFocus
Me.lstClipboard.Visible = False
End Sub