MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Salvar apenas ao clicar no botão

    avatar
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 82
    Registrado : 23/12/2019

    [Resolvido]Salvar apenas ao clicar no botão Empty [Resolvido]Salvar apenas ao clicar no botão

    Mensagem  carolinesilva115 em 9/6/2020, 15:52

    Oi, gente!
    Eu sei q esse é um problema comum, vi até alguns tópicos parecidos, mas não to conseguindo resolver...acho q por falta de conhecimento mesmo.

    Enfim, gostaria q os dados fossem salvos apenas ao clicar em "Salvar"...mas ele tá salvando sempre q fecho o formulário tbm e eu não queria que isso acontecesse. Criei um código aqui, mas tá dando errado. Vou anexar aqui

    Obrigada!

    Código:
    Option Compare Database
    'Ao clicar no botão Voltar, o código criará um campo em branco que será excluído pela sub Form_Close()
    Private Sub Comando45_Click()
    Dim BancoDados As DAO.Database
    Dim TabCriar As DAO.Recordset

        Set BancoDados = CurrentDb()
        Set TabCriar = BancoDados.OpenRecordset("TabArmador", dbOpenDynaset)

            TabCriar.AddNew
            
                TabCriar("Armador") = Null


            TabCriar.Update

    DoCmd.Close 'ao fechar, a Sub Form_Close() será chamado

    End Sub


    'Sub para evitar que o Access salve automaticamente um registro ao fechar formulário
    Private Sub Form_Close()

    DoCmd.GoToRecord , , acLast 'vai até ao ultimo registro
    DoCmd.SetWarnings False '  Desativa mensagem do access avisando que esta prestes a excluir um registro
    DoCmd.RunCommand acCmdSelectRecord 'selecionar
    DoCmd.RunCommand acCmdDeleteRecord 'deletar o último elemento
    Refresh
    DoCmd.SetWarnings True
    End Sub
    Anexos
    [Resolvido]Salvar apenas ao clicar no botão AttachmentDatabase6.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 4 vez(es)
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 359
    Registrado : 25/02/2016

    [Resolvido]Salvar apenas ao clicar no botão Empty Re: [Resolvido]Salvar apenas ao clicar no botão

    Mensagem  FranklinJSP em 9/6/2020, 18:21

    Olá Caroline!

    Espero que seja o que precisa (em anexo)

    Saludos
    Anexos
    [Resolvido]Salvar apenas ao clicar no botão AttachmentDatabase (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (57 Kb) Baixado 6 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 82
    Registrado : 23/12/2019

    [Resolvido]Salvar apenas ao clicar no botão Empty Re: [Resolvido]Salvar apenas ao clicar no botão

    Mensagem  carolinesilva115 em 10/6/2020, 16:33

    Oi! Obg pela ajuda!!
    Mas o botão de voltar não está funcionando e ele q tá me dando dor de cabeça kkk

    Aliás, eu preciso q ao apertar em "Voltar" o form seja fechado, mas sem salvar o que está escrito lá.

    Só pode salvar qd clicar em "Salvar".


    Outro detalhe: qd eu fecho pela aba do Access, ele salva tbm...
    avatar
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 82
    Registrado : 23/12/2019

    [Resolvido]Salvar apenas ao clicar no botão Empty Re: [Resolvido]Salvar apenas ao clicar no botão

    Mensagem  carolinesilva115 em 10/6/2020, 23:16

    Acabei deixando praticamente do jeito q vc colocou, mesmo com o form salvando qd fecho pela aba.
    Obrigada!
    Ficou assim:

    Código:

    Private Sub Comando45_Click()
    If Dirty Then
                If MsgBox("Deseja salvar as alterações?", vbYesNo, "Registros") = vbNo Then
                    Me.Undo
                    DoCmd.Close 'ao fechar, a Sub Form_Close() será chamado
                Else
                  DoCmd.RunCommand acCmdSaveRecord
                  Me.Undo
                  DoCmd.Close 'ao fechar, a Sub Form_Close() será chamado
                End If
    Else
    DoCmd.Close
    End If
    End sub

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Salvar apenas ao clicar no botão Empty Re: [Resolvido]Salvar apenas ao clicar no botão

    Mensagem  DamascenoJr. em 11/6/2020, 00:33



    .................................................................................
    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.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 359
    Registrado : 25/02/2016

    [Resolvido]Salvar apenas ao clicar no botão Empty Re: [Resolvido]Salvar apenas ao clicar no botão

    Mensagem  FranklinJSP em 11/6/2020, 18:13

    Que bom Caroline!!!

    lol! lol! lol!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: 8/7/2020, 09:47