Question

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

我点击创建了VBA代码：

'use strict'
const die = require('./js/gamePieces/dice')
const newDie = new die.Dice()

$(() => {

    debugger
    $('.die-start-icon').on('click', newDie.dieRoll)
})

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

Answer 1

这是代码私人Sub cmdCopy_Click（）出现错误时转到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 = _ “团队：”和我！CboTeam和vbNewLine和_ “税种：”和我！CboTax和vbNewLine和_ “电话：”和我！TboCallBack和vbNewLine和_ “呼叫者：”和我！TboCaller和vbNewLine和_ “商家名称：”和我！TboBusnAME和vbNewLine和_ “身份验证方法：”和我！CboAuthType和vbNewLine和_ “身份验证ID：”和我！TboAuthID和vbNewLine和_ “联系原因：”和我！CboContact和vbNewLine _ ＆vbNewLine＆_ “通话详细信息：”＆vbNewLine＆_ 我！TboDetail和vbNewLine _ ＆vbNewLine＆_ “余额：”和我！TboBal和vbNewLine和_ “拖欠期：”和我！TboDelqs

Me.PasteBox.SetFocus DoCmd.RunCommand acCmdCopy

Me.cmdcopy.SetFocus

Me.PasteBox.Visible = False Application.Echo True

Exit_cmdDuplicate_Click：退出子 Application.Echo True

Err_cmdDuplicate_Click： MsgBox错误说明 Application.Echo True 恢复Exit_cmdDuplicate_Click Application.Echo True 结束

使用VBA在Access中复制

1 个答案: