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]Voltar sem salvar informações nas tabelas

    avatar
    jvra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 22/12/2011

    [Resolvido]Voltar sem salvar informações nas tabelas Empty Voltar sem salvar informações nas tabelas

    Mensagem  jvra 17/5/2012, 21:21

    Fala pessoal. Minha dúvida é simples. Quero fazer um botão que volte de um formulário para outro formulário "menu principal" do meu BD sem salvar as informações que por um acaso o usuário esteja digitando. Já tentei alguns códigos, mas sem sucesso.

    DoCmd.RunCommand acCmdUndo
    DoCmd.Close

    Esse funciona um tempo, e depois começa a dar mensagem de erro.

    Alguém pode me ajudar?

    JVRA
    avatar
    Convidad
    Convidado


    [Resolvido]Voltar sem salvar informações nas tabelas Empty Re: [Resolvido]Voltar sem salvar informações nas tabelas

    Mensagem  Convidad 17/5/2012, 23:11

    Se não quer mesmo salvar, veja a dica do JPaulo e adpate;

    http://maximoaccess.forumeiros.com/t7651-so-salva-se-quiser








    avatar
    Convidado
    Convidado


    [Resolvido]Voltar sem salvar informações nas tabelas Empty Re: [Resolvido]Voltar sem salvar informações nas tabelas

    Mensagem  Convidado 18/5/2012, 07:08

    Boa noite colega Jvra. Veja o exemplo abaixo. Havendo adição ou alteração e no botão salvar o codigo pede para salvar ou não e se não quer salvar ou alterou e esqueceu de salvar ao clicar no botão fechar o codigo informa que houve alteração e pede para salvar ou não.

    http://speedy.sh/aeK2R/Exemplo.rar

    Obs: retorne para sabermos se é isso que procura ou não e se for click no resolvido.
    avatar
    jvra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 22/12/2011

    [Resolvido]Voltar sem salvar informações nas tabelas Empty Re: [Resolvido]Voltar sem salvar informações nas tabelas

    Mensagem  jvra 18/5/2012, 19:44

    Galera, valeu pelas opções enviadas, tentei implementá-las mas não consegui. Enfim, fuçando na internet acabei achando o código abaixo. Achei ele interessante, pois pergunta se queres salvar o registro ou não. O problema que percebi nele, é quando vc clica em sim, salvar, ele não volta pro formulário do comando, permanece no formulário atual, exibindo as informações que vc salvou.
    Sou iniciante no access e não sei muito bem editar códigos. Alguém se disporia a editá-lo de forma a sanar esse probleminha. Ou seja, clicando em sim ele salva e vai para o outro formulário. O clicando em não tá ok. Ele sai, vai para o outro formulário, fecha e não salva.
    segue o código:

    Private Sub Comando34_Click()
    If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, acMenuVer70
    DoCmd.Close
    Else

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    End If

    End Sub

    Desde já agradeço.

    JVRA.
    avatar
    Convidad
    Convidado


    [Resolvido]Voltar sem salvar informações nas tabelas Empty Re: [Resolvido]Voltar sem salvar informações nas tabelas

    Mensagem  Convidad 18/5/2012, 21:44

    Ben Hur

    Creio que por esse caminho não irá conseguir, pois o formulário está vinculado a tabela ou consulta.
    Então, se você mudar de registro,fechar ou sair do formulário, o registro é salvo automaticamente.
    Chegou a hora de ser programador.
    Para manipular dados em um formulário sem que seja refletido na tabela, devemos fazer um formulário desvinculado da tabela e usar código para quando for salvar ou não.
    Como já tem o formulário, desvincule todos os controles dele, eles ficarão não acoplado.
    Procure no repositório por formulário não acoplado, que você terá exemplos e verá que não é um bicho cabeludo e feio Laughing
    Qualquer dúvida, retorne.

    Abraços
    avatar
    jvra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 22/12/2011

    [Resolvido]Voltar sem salvar informações nas tabelas Empty Voltar sem salvar informações nas tabelas

    Mensagem  jvra 21/5/2012, 15:09

    Valeu meu caro! Vou tentar sua dica, mas antes, o código que postei acima começou a apresentar o seguinte problema: ERRO EM TEMPO DE EXECUÇÃO '2046'. O COMANDO OU A AÇÃO 'DESFAZER' NÃO ESTÁ DISPONÍVEL AGORA.

    Estava funcionando legal, agora começou isso. Alguém saberia dizer o que é?

    Ele também pede para depurar..

    JVRA.
    avatar
    Convidad
    Convidado


    [Resolvido]Voltar sem salvar informações nas tabelas Empty Re: [Resolvido]Voltar sem salvar informações nas tabelas

    Mensagem  Convidad 21/5/2012, 15:34

    Ben Hur

    Primeiro - Esses comandos que você está usando é do antigo Access 95 - versão 7.0.
    No Access 97 - Versão 8 - foi criado o Docmd.RunCommand para executar comandos do menu em substituição a esses que você está usando.
    Então esses comandos antigos foram mantidos somente para manter a compatibilidade entre as versões.

    Portanto: Se ainda quiser continuar a usar esse código, substitua as linhas em marron para as linhas em verde:
    =============================
    Private Sub Comando34_Click()
    If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, acMenuVer70
    Docmd.RunCommand acCmdUndo

    DoCmd.Close
    Else

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    Docmd.RunCommand acCmdSaveRecord
    End If

    End Sub
    ======================

    Segundo -Quanto ao método Undo, nunca o usei, pois nunca confiei nesse comando, posso estar errado, mas prefiro fazer isso através de código.

    Abraços
    avatar
    jvra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 22/12/2011

    [Resolvido]Voltar sem salvar informações nas tabelas Empty Re: [Resolvido]Voltar sem salvar informações nas tabelas

    Mensagem  jvra 21/5/2012, 16:14

    Pois então Balém, como havia dito num post acima, não havia problema com a opção não.
    O problema é com a opção sim, que estava salvando, mas não voltava para o formulário de menu. Dai bolei o seguinte código:

    Private Sub Comando34_Click()
    If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
    DoCmd.RunCommand acCmdUndo
    DoCmd.Close
    Else
    If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbYes Then
    DoCmd.RunCommand acCmdUndo
    DoCmd.Close
    End If
    End If

    End Sub

    Obviamente não está salvando, mas está voltando. Creio eu que seria necessário, substituir o comando que está em verde, por um de salvar.
    Tem alguma ideia?

    Att,

    JVRA.
    avatar
    jvra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 22/12/2011

    [Resolvido]Voltar sem salvar informações nas tabelas Empty Re: [Resolvido]Voltar sem salvar informações nas tabelas

    Mensagem  jvra 21/5/2012, 16:27

    Aew galera, to chegando lá! Ele já salva e volta, utilizei o save. Mas estou tendo que apertar duas vezes o botão sim.
    Alguma dica?

    JVRA.
    avatar
    Convidado
    Convidado


    [Resolvido]Voltar sem salvar informações nas tabelas Empty Re: [Resolvido]Voltar sem salvar informações nas tabelas

    Mensagem  Convidado 2/6/2012, 06:29

    Boa noite colega jvra. Você testou o exemplo que lhe passei??? Poderia comentar por gentileza.....
    avatar
    jvra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 22/12/2011

    [Resolvido]Voltar sem salvar informações nas tabelas Empty Voltar sem salvar informações nas tabelas

    Mensagem  jvra 4/6/2012, 19:36

    Olá cafpr, testei sim.. achei execelente solução elaborada por vc, mas já tinha adotado outra solução, na qual ao voltar no meio do cadastro incompleto de um registro, ou seja, sem salvar, o código pergunta se vc quer salvar ou não. De qualquer forma, muito obrigado pela ajuda.
    avatar
    michaeljosh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 02/02/2017

    [Resolvido]Voltar sem salvar informações nas tabelas Empty Estava com o mesmo problema e consegui resolver

    Mensagem  michaeljosh 3/3/2017, 13:54

    Usei o seguinte código

    Private Sub Comando34_Click()
    If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
    Docmd.RunCommand acCmdUndo

    DoCmd.Close
    Else

    Docmd.RunCommand acCmdSaveRecord
    DoCmd.Close
    End If

    End Sub

    Apenas acrescentei a linha "DoCmd.Close" que está em verde no código.

    Veja se também funciona contigo... abraços

    Conteúdo patrocinado


    [Resolvido]Voltar sem salvar informações nas tabelas Empty Re: [Resolvido]Voltar sem salvar informações nas tabelas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:44