使用 VBA 在 Access 中复制

Posted 2023-05-07

【中文标题】使用 VBA 在 Access 中复制

【英文标题】：Copy in Access using VBA

【发布时间】：2018-07-13 22:55:45

【问题描述】：

我在 Access 表单中创建了一个复制按钮，用于复制用户输入的字段中的数据，以便他们可以将其粘贴到内部系统中。

我在点击时创建了 VBA 代码：

Private Sub Command6_Click()
     On Error GoTo Err_cmdDuplicate_Click
     DoCmd.RunCommand acCmdSelectRecord
     DoCmd.RunCommand acCmdCopy

     Exit_cmdDuplicate_Click:
     Exit Sub

     Err_cmdDuplicate_Click:
         MsgBox Err.Description
         Resume Exit_cmdDuplicate_Click

 End Sub

我有两个问题： 它使用标题复制所有数据，但垂直粘贴而不是水平粘贴。我想它需要格式化。我必须添加，因为代码正在获取表单中的所有内容，甚至是我不想要的信息。我创建了一个查询，然后根据该查询创建了一个报告，然后制作了带有代码的复制按钮。

【问题讨论】：

数据粘贴到哪里？您可以直接通过 VBA 设置剪贴板文本，因此您可以选择复制哪些数据字段：***.com/questions/14219455/…

正如@TimWilliams 所说——目的地是什么很重要。文本与 Excel 的不同方法。 Excel 允许您使用没有标题的 CopyFromRecordset，文本可能必须在循环中编码以形成剪贴板的字符串

【参考方案1】：

这是代码 私有子 cmdCopy_Click() On Error GoTo Err_cmdDuplicate_Click

'将代理输入数据字段中的值复制到 'TAS 所需的格式并复制到 '系统剪贴板。

'控件名称和类型如下： 'CboTeam 'CboTax 'TboCallBack 'TboCaller 'TboBus 名称 'CboAuthType 'TboAuthID 'Cbo联系 'TboDetail 'TboBal 'TboDelqs

Application.Echo 错误 Me.PasteBox.Visible = True

我！PasteBox.Value = _ “团队：” & Me!CboTeam & vbNewLine & _ “税收类型：” & Me!CboTax & vbNewLine & _ “电话：” & Me!TboCallBack & vbNewLine & _ “来电者：” & Me!TboCaller & vbNewLine & _ “企业名称：” & Me!TboBusname & vbNewLine & _ “验证方法：” & Me!CboAuthType & vbNewLine & _ “身份验证 ID：” & Me!TboAuthID & vbNewLine & _ “联系原因：” & Me!CboContact & vbNewLine _ & vbNewLine & _ “呼叫详细信息：” & vbNewLine & _ 我！TboDetail & vbNewLine _ & vbNewLine & _ “平衡：” & Me!TboBal & vbNewLine & _ "拖欠期：" & Me!TboDelqs

Me.PasteBox.SetFocus DoCmd.RunCommand acCmdCopy

我.cmdcopy.SetFocus

Me.PasteBox.Visible = False Application.Echo True

Exit_cmdDuplicate_Click： 退出子 Application.Echo True

Err_cmdDuplicate_Click： MsgBox Err.Description Application.Echo True 恢复 Exit_cmdDuplicate_Click Application.Echo True 结束子