MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho em 31/3/2020, 18:36

    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
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho em 1/4/2020, 18:25

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 1/4/2020, 21:07

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

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 1/4/2020, 21:37

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho em 2/4/2020, 14:24

    obrigado!!

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

    abraçoo
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 3/4/2020, 00:42

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 29/11/2020, 13:55