MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]DoCmd.RunCommand acCmdSaveRecord - não funciona em Banco de Dados .accde

    Compartilhe

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    [Resolvido]DoCmd.RunCommand acCmdSaveRecord - não funciona em Banco de Dados .accde

    Mensagem  HARYSOHN em Qua 31 Jul - 13:20

    Tenho este seguinte código que após o case salva o registro. Funciona perfeitamente quando o arquivo está am accdb, porém ao convertê-lo em accde a função  >>> DoCmd.RunCommand acCmdSaveRecord <<<  não funciona e dá a seguinte mensagem de erro:

    Erro: 2046
    Descrição: o comando ou ação Salvar Registro não está disponível disponível agora.



    /220   If Me.Parent.SelContaRec = 0 Then
    230       MSG = MsgBox("Efetuar o pagamento desta parcela?", vbYesNo + vbQuestion, "PAGAMENTO")
    240   Else
    250       MSG = MsgBox("Efetuar o recebimento desta parcela?", vbYesNo + vbQuestion, "RECEBIMENTO")
    260   End If

    270   Select Case MSG
              Case vbYes
    280           DoCmd.OpenForm "Frm_Valor", acNormal, , , , acDialog
    290           Me.Val_parc.Value = Me.Resto.Value
    300           DoCmd.RunCommand acCmdSaveRecord
                  'Carrega a variável com o último pagamento válido
    310           StrValorPago = Me.ValorPago
    320               If Forms!Cadastro_ParcelasCns!ValorPago.Value > Forms!Cadastro_ParcelasCns!ValorTMP.Value Then
    330                   MsgBox "O valor do pagamento não pode ser maior que o valor do débito do Fornecedor !!!", vbOKOnly + vbExclamation, "AVISO"
    340                   Me.Val_parc = dblCampo1
    350                   Me.ValorPago = dblCampo2
    360                   Me.RecebeFoco.SetFocus
    370                   Me.Val_parc.Value = Forms!Cadastro_ParcelasCns!ValorTMP.Value
    380               Else
    390                   Call CodigoQuitacao
    400                End If
    410       Case vbNo
    420           Me.Quitada = 0
    430           Me.RecebeFoco.SetFocus
    440   End Select


    O que fazer para resolver isto?

    Grato pela ajuda.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]DoCmd.RunCommand acCmdSaveRecord - não funciona em Banco de Dados .accde

    Mensagem  HARYSOHN em Qua 31 Jul - 14:21

    Bem amigos, não sei o porque aconteceu o erro, novamente converti o sistema em accde e agora funcionou perfeitamente.

    Obrigado.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]DoCmd.RunCommand acCmdSaveRecord - não funciona em Banco de Dados .accde

    Mensagem  HARYSOHN em Qua 31 Jul - 14:41

    Ao converter o aplicativo em accde ele é executado após a conversão em sua forma accde, nesta primeira execução o comando funcionou, apartir da segunda execução do sistema o código produziu o mesmo erro.

    modifiquei para DoCmd.save... e continuou com o mesmo tipo de erro.

    Resolvi então modificar o código e desabilitar a linha em questão.


    Caso alguem tenha solução para este caso, fique a vontade para comentar.


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]DoCmd.RunCommand acCmdSaveRecord - não funciona em Banco de Dados .accde

    Mensagem  JPaulo em Qui 1 Ago - 8:24

    Olá;

    Invocar DoCmd.RunCommand, é a mesma coisa que você utilizar um item do menu para esse efeito, que em certos momentos fica desabilitado e ae provoca erros.

    Pode tentar utilizar o DoCmd.RunCommand acCmdSave, mas se você quiser evitar o DoCmd.RunCommand, pode utilizar o If Me.Dirty Then Me.Dirty = False




    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]DoCmd.RunCommand acCmdSaveRecord - não funciona em Banco de Dados .accde

    Mensagem  HARYSOHN em Qui 1 Ago - 11:13

    Irei testar assim que possível e retorno.

    Obrigado JP.


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    alexandredneto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 18/01/2016

    Exibi erro ao cancelar a exportação do relatório Access para o Excel

    Mensagem  alexandredneto em Qui 28 Jan - 9:10

    É exibido um erro ao cancelar a exportação do relatório Access para o Excel.

    Uso o DoCmd.OutputTo .

    Para não exibir o erro do cancelamento, testei:
    On Error Resume Next 'caso você cancele ?
    If Me.Dirty Then Me.Dirty = False
    'DoCmd.RunCommand acCmdSave 'acCmdOutputToExcel 'acCmdExportExcel

      Data/hora atual: Dom 4 Dez - 16:22