How to avoid MS Access error: the command or action Paste is not available now

Question

我刚刚从 MS Access 2013 升级到 2019，我的复制记录按钮已停止工作。我收到错误消息“粘贴命令或操作现在不可用”。已查看信任中心是否有任何可能会扰乱它的内容，但我什么也看不到。我使用复制记录向导创建了一个新按钮，但它有同样的问题。所以这不是我的代码。

Private Sub Command115_Click()
On Error GoTo Err_Command115_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste

Exit_Command115_Click:
    Exit Sub

Err_Command115_Click:
    MsgBox Err.Description
    Resume Exit_Command115_Click
    
End Sub

Answer 1

经过几个小时的拔毛。我已经到了解决办法。只需在粘贴前暂停一秒钟即可避免错误消息。所以似乎存在某种时间问题。可能是某种记录锁定问题，只发生在速度较慢的计算机上。

    Private Sub Copy_Record_Click()
On Error GoTo Err_Copy_Record_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
        Pause (0.1)
    DoCmd.RunCommand acCmdPaste

Exit_Copy_Record_Click:
    Exit Sub

Err_Copy_Record_Click:
    MsgBox Err.Description
    Resume Exit_Copy_Record_Click
    
End Sub

How to avoid MS Access error: the command or action Paste is not available now

How to avoid MS Access error: the command or action Paste is not available now

vba

ms-access

ms-access-2013