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]Salvar apenas com botão de comando

    Luciana-bio
    Luciana-bio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 204
    Registrado : 16/02/2011

    [Resolvido]Salvar apenas com botão de comando Empty Salvar apenas com botão de comando

    Mensagem  Luciana-bio 13/7/2013, 20:48

    Meu problema atual é o seguinte:

    Eu tenho observado que os registros do BD são salvos automaticamente. Se eu editar um registro e sair do formulário, ele salva a modificação. Gostaria de um botão "SALVAR" onde se eu não apertar esse botão, nenhuma modificação no registro é feita. Quero condicionar o salvar a esse botão. Me entendem? Podem me ajudar?
    avatar
    Convidado
    Convidado


    [Resolvido]Salvar apenas com botão de comando Empty Re: [Resolvido]Salvar apenas com botão de comando

    Mensagem  Convidado 13/7/2013, 22:53

    Boas Luciana....

    No botão Salvar:


    If (Me.Dirty = True) Then
        Msg1 = MsgBox("Salvar registro no sistema ?", vbYesNo, "SALVAR")
        If Msg1 = vbNo Then
        Me.Undo
        Exit Sub
    Else
        RunCommand acCmdSaveRecord
        DoCmd.GoToRecord , , acNewRec
        MSG = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")
        Me.Requery
        Me.Refresh
        Exit Sub
    End If
    End If

    If (Me.Dirty = False) Then
        MsgBox "Registro já salvo...", vbCritical, "Atenção"
    End If



    Podes ver este exemplo também:

    http://maximoaccess.forumeiros.com/t13956-verifica-alteracao-de-dados-em-subformularios-possibilitando-reversao
    Luciana-bio
    Luciana-bio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 204
    Registrado : 16/02/2011

    [Resolvido]Salvar apenas com botão de comando Empty Re: [Resolvido]Salvar apenas com botão de comando

    Mensagem  Luciana-bio 14/7/2013, 03:29

    Boa noite Piloto!!!

    Com os códigos que me passou, quando eu clico em salvar ele me pergunta se quero salvar. Mas tem um problema: se eu mando sair sem salvar as alterações são feitas da mesma maneira. É isso que não quero.
    Luciana-bio
    Luciana-bio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 204
    Registrado : 16/02/2011

    [Resolvido]Salvar apenas com botão de comando Empty Re: [Resolvido]Salvar apenas com botão de comando

    Mensagem  Luciana-bio 14/7/2013, 03:55

    Acho que estou começando a entender o Access. kkkkkkkkkkkk

    Coloquei o seguinte código no campo "Antes de Atualizar" do formulário:

    On Error Resume Next
    If Me.Dirty Then
    If MsgBox("O Registo foi alterado ou incluído. Deseja salvar?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Else
    Me.Undo
    DoCmd.CancelEvent
    End If
    End If

    DEU CERTO!!!!



    avatar
    Convidado
    Convidado


    [Resolvido]Salvar apenas com botão de comando Empty Re: [Resolvido]Salvar apenas com botão de comando

    Mensagem  Convidado 14/7/2013, 05:37

    O Fórum agradece o Retorno.
    avatar
    cypriano
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 12/07/2013

    [Resolvido]Salvar apenas com botão de comando Empty Re: [Resolvido]Salvar apenas com botão de comando

    Mensagem  cypriano 23/7/2013, 21:27

    [Resolvido]Salvar apenas com botão de comando Dxlv

    Oi Luciana-bio e Piloto,
    tentei este seu código e comigo apareceu a mensagem da imagem...
    Uma vez deu certo e as seguintes deram todas erro...rss
    avatar
    Convidado
    Convidado


    [Resolvido]Salvar apenas com botão de comando Empty Re: [Resolvido]Salvar apenas com botão de comando

    Mensagem  Convidado 24/7/2013, 02:51

    Boas Amigo, salve teu projeto em 2003 e nos envie um modelo para que possamos ver isto pra ti.

    cumprimentos.
    avatar
    cypriano
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 12/07/2013

    [Resolvido]Salvar apenas com botão de comando Empty Re: [Resolvido]Salvar apenas com botão de comando

    Mensagem  cypriano 24/7/2013, 19:25

    Não estou conseguindo nem salvar em 2003 rss
    Não aparece a opção em salvar como, como faz?
    avatar
    Convidado
    Convidado


    [Resolvido]Salvar apenas com botão de comando Empty Re: [Resolvido]Salvar apenas com botão de comando

    Mensagem  Convidado 25/7/2013, 04:58

    Rapaz.. tenho visto alguns conseguindo.. porém nunca mexi com o 2010..
    Deve ser no botão do Access

    Qualquer coisa abra um novo tópico e poste em 2010, algum colega ou resolverá ou converterá para ti.

    Cumprimentos.

    Conteúdo patrocinado


    [Resolvido]Salvar apenas com botão de comando Empty Re: [Resolvido]Salvar apenas com botão de comando

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 15:10