MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Ajuda com erro de macro ao duplicar registro

    fsouza32
    fsouza32
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 22/01/2013

    [Resolvido]Ajuda com erro de macro ao duplicar registro Empty [Resolvido]Ajuda com erro de macro ao duplicar registro

    Mensagem  fsouza32 28/9/2017, 20:24

    Olá a todos!
    Preciso de uma ajuda com um erro que começou a aparecer em meu formulário.

    Tenho um formulário de cadastro e por várias vezes preciso criar uma nava reserva para a mesma pessoa, porém alguns campos não são iguais, por exemplo o  campo código que em minha tabela é a chave e numeração automática e nesse formulário tenho um botão que duplica esse registro para um novo usando uma função que peguei aqui no forum (o JPaulo quem me passou), mas não o salva, pois se a pessoa desistir clico no botão desfazer e deste modo não preciso ficar excluindo o registro depois. No mesmo formulário tenho uma caixa de combinação que busca pelo código o registro e me mostra. Tudo isso funcionava muito bem, mas hoje parou de funcionar e começou a mostrar o erro de macro (imagem abaixo), percebi que se eu removo a caixa de combinação o erro aparentemente para.

    O que pode ser?

    Desde já agradeço!  Smile

    Código do botão de duplicar
    Public Sub DuplicaReserva()
    Dim resultado As VbMsgBoxResult

    resultado = MsgBox(Format(Form_frm_entrada.txtOperador, ">") & vbCrLf & vbCrLf & "Você escolheu DUPLICAR uma reserva já existente! Deseja prosseguir?", vbInformation + vbYesNo, "Duplicando Reserva Existente")

    If resultado = vbYes Then
    On Error GoTo fim
       DoCmd.RunCommand acCmdSelectRecord
       DoCmd.RunCommand acCmdCopy
       DoCmd.RunCommand acCmdPasteAppend
       Call LimpaCamposAoDuplicar ' limpa os campos que não podem ser repetidos após a execução da cópia, não apaga o campo código
       Call LimpaAreaTransferencia ' limpa a área de transferência para não emitir mensagem ao fechar o formulário
       
           Else
           MsgBox Format(Form_frm_entrada.txtOperador, ">") & vbCrLf & vbCrLf & "Ação CANCELADA!", vbInformation, "Ação Cancelada"
           End
           
    End If
    fim:
    End Sub
     

    Imagem do erro o cboBuscaNumReserva refere-se a caixa de combinação
    [Resolvido]Ajuda com erro de macro ao duplicar registro Erro_n10
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com erro de macro ao duplicar registro Empty Re: [Resolvido]Ajuda com erro de macro ao duplicar registro

    Mensagem  DamascenoJr. 5/11/2021, 01:43

    Fabio, conseguiu resolver?

    Aguardamos...


    .................................................................................
    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.
    fsouza32
    fsouza32
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 22/01/2013

    [Resolvido]Ajuda com erro de macro ao duplicar registro Empty Re: [Resolvido]Ajuda com erro de macro ao duplicar registro

    Mensagem  fsouza32 5/11/2021, 13:04

    Caro DamascenoJr.

    Esse erro ocorria com uso da macro, comecei a utilizar direto no VBA e com mais experiência com tempo aprendi a filtrar meu código e isso parou de ocorrer

    Desculpe pela demora na resposta

      Data/hora atual: 30/11/2021, 00:14