时间戳

首页 > 解决方案 > 使用 VBA 在 Access 中复制

database - 使用 VBA 在 Access 中复制

问题描述

我在 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

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

标签： databasevbaformsms-accessreport

解决方案

这是代码 Private Sub cmdCopy_Click() On Error GoTo Err_cmdDuplicate_Click

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

'控件名称和类型如下： 'CboTeam 'CboTax 'TboCallBack 'TboCaller 'TboBusName 'CboAuthType 'TboAuthID 'CboContact 'TboDetail 'TboBal 'TboDelqs

Application.Echo False Me.PasteBox.Visible = True

Me!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 & _ Me!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：退出子应用程序。Echo True

Err_cmdDuplicate_Click: MsgBox Err.Description Application.Echo True Resume Exit_cmdDuplicate_Click Application.Echo True End Sub

推荐阅读