[Resolvido]DoCmd.RunCommand acCmdPasteAppend error 2046 como colocar mensagem nesse erro?

Boa tarde gente tudo bem com vocês, preciso de uma ajudinha nesse problema,

tenho um Formulário onde eu coloco os preços e preciso saber como faço pra quando a área de transferencia estiver vazia, mandar mensagem

tipo "não há itens na área de transferencia"

to usando esse código aqui no botão

Private Sub BTN_PASTE_RECORDS_Click()
DoCmd.SetWarnings False

  Dim strmsg As String
  Dim iResponse As Integer

  strmsg = "Não há itens da área de transferência" & Chr(10)
  iResponse = MsgBox(strmsg, vbExclamation, "AVISO")
  If iResponse = vbOK Then
  DoCmd.RunCommand acCmdPasteAppend
  Else
  End If
End Sub

Boa tarde tudo bem com vocês, eu preciso elaborar uma maneira de fazer esse error ser substituido por um Msgbox

esse é a ação do botão "Ao Clicar"

DoCmd.SetWarnings False

Dim strmsg As String
Dim iResponse As Integer

strmsg = "Copie primeiro antes de pressionar OK" & vbCrLf & "Use cabelhaço das colunas iguais os exemplos abaixo:" & vbCrLf & "Cod Alfatec | Preço" & vbCrLf & "PASTA01 | 50,00" & Chr(10)
iResponse = MsgBox(strmsg, vbInformation, "AVISO!")
If iResponse = vbOK Then
DoCmd.RunCommand acCmdPasteAppend
Else
End If

Tópico fundido. Mesmo autor, mesma dúvida.

Não duplique dúvidas no fórum. Fique atento às regras.

DoCmd.SetWarnings False

Dim strmsg As String
Dim iResponse As Integer

strmsg = "Copie primeiro antes de pressionar OK" & vbCrLf & "Use cabelhaço das colunas iguais os exemplos abaixo:" & vbCrLf & "Cod Alfatec | Preço" & vbCrLf & "PASTA01 | 50,00" & Chr(10)
iResponse = MsgBox(strmsg, vbInformation, "AVISO!")
If iResponse = vbOK Then
on error resume next
DoCmd.RunCommand acCmdPasteAppend
if err then
err.clear
call msgbox("ei, deu erro na hora de colar")
end if
Else
End If

obrigado!!

você é surpreendente ! realidade mesmo tinha um topico antigo que fui atrás mas não encontrei codigo lá

abraçoo

O fórum agradece o retorno. Sucesso.