MaximoAccess

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

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
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 31/7/2013, 12: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.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 31/7/2013, 13: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.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 31/7/2013, 13: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.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 1/8/2013, 07: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




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em 1/8/2013, 10: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 28/1/2016, 08: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: 20/8/2017, 07:43