只需双击即可复制和粘贴

Question

ERROR MSG they are wired up我正在access2010中创建字典意大利语（A）-英语（B）。我创建了一个代码，只需双击即可从（A）蒙版复制ID。 （通过dblclick：事件例程上的ID>属性>）。但是，我还需要将复制的ID立即粘贴到称为“ cboinglese”的（B）蒙版组合框中。 到目前为止，这是我的代码，不要过多地输入密码和密码，因为我从互联网上复制了很多密码（VBA不是我常用的编程语言）。

Private Sub ID_DblClick(Cancel As Integer)
    With Me.ID
       .SetFocus
       .SelStart = 0
       .SelLength = Len(.Text)
     End With
     If Me.ID.SelLength = 0 Then
         MsgBox "Nessuna Password è stata generata!", vbCritical, "VERIFICA BENE"
  Exit Sub
Else
    RunCommand acCmdCopy
 End If
 End Sub

感谢大家等待着您的宝贵答案

Answer 1

如果您只需要将ID中的值复制到名为cboinglese的组合框，则根本不需要使用Windows剪贴板。您可以在正在使用的ID_DblClick事件中执行以下操作：

Me.cboinglese.Value = Me.ID.Value

单行代码会将ID的值传输到组合框。

为防止在双击ID时出现空白而导致不良后果，可以将其增强为以下内容：

If Len(Me.ID.Value) > 0 Then
    Me.cboinglese.Value = Me.ID.Value
End If

这样，只有当ID双击时，组合框的值才会更新。

通常，除非您需要在Microsoft Access应用程序之外的另一个应用程序中使用该值，否则无需将其复制到Windows剪贴板。

从OP更新新信息

@ tksweb4freelrn-您不能将VBA代码直接放入表单的属性对话框中。您必须从属性对话框中删除该文本，然后单击省略号按钮并选择Code Builder在表单后面的模块中创建VBA事件代码。

然后，您应该能够将上面的代码添加到事件过程中，该过程类似于以下内容：

Private Sub ID_DblClick(Cancel As Integer)

    If Len(Me.Id.Value) > 0 Then
        Me.cboinglese.Value = Me.id.Value
    End If

End Sub