ACCESS中控件值的复制方法

用ACCESS2010做了个学生信息管理系统，遇到了一个功能要求：经常要复制学生的身份证号码，家庭地址等到其他地方如别的Word、Excel文件中。尽管用的是Text控件来显示该内容，但用鼠标云选中然后再Ctrl+C总是有点花功夫。于是用点击按钮来进行直接复制到剪贴板。
Access中常用的复制内容到剪贴板的方法，有正面两种：

Private Sub CmdCopyIDCardNo_Click()
    With CreateObject("new:{
    1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText IDCardNo.Value
        .PutInClipboard
    End With
End Sub

Private Sub CmdAddress_Click()
    Address.SetFocus
    DoCmd.RunCommand acCmdCopy
    Address.SetFocus
End Sub