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]Descartar alterações no formulário

    avatar
    jadsln
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2011

    [Resolvido]Descartar alterações no formulário Empty Descartar alterações no formulário

    Mensagem  jadsln 12/7/2011, 13:52

    Olá pessoal.

    É o seguinte... eu tenho um formulário para entrada de dados.

    Quando eu altero algum dado de um registro do formulário e alterno entre registros ou crio um novo para inserir novos dados os dados do registro antigo são salvos automaticamente.

    Eu gostaria de apenas salvar as alterações de um registro quando eu clicar em salvar e se eu não salvar quando eu mudar de registro que as alterações sejam descartadas.

    Desde já agradeço.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Descartar alterações no formulário Empty Re: [Resolvido]Descartar alterações no formulário

    Mensagem  vieirasoft 12/7/2011, 14:12

    Dim strMsg As String
    strMsg = "Foram efectuadas alterações"
    strMsg = strMsg & "...Deseja gravar as alterações?"
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
    'do nothing
    Else
    DoCmd.RunCommand acCmdUndo

    End If
    avatar
    jadsln
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2011

    [Resolvido]Descartar alterações no formulário Empty Re: [Resolvido]Descartar alterações no formulário

    Mensagem  jadsln 12/7/2011, 22:01

    Eu já tinha imaginado que usaria o comando "acCmdUndo".

    O problema é que não sei onde inserir esse código.

    Eu tenho uma caixa de pesquisa e eu inseri um código parecido com esse nessa caixa de pesquisa. O código funciona se eu tiver alterado alguma coisa, mas se eu não tiver alterado ele diz que o comando "acCmdUndo" não pode ser executado em uma caixa de mensagem e eu não quero isso.

    Gostaria de saber onde inserir esse código no meu formulário.
    E também gostaria que só me fosse perguntado se eu quero salvar ou não se eu tiver alterado alguma coisa.

    Desde já agradeço.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Descartar alterações no formulário Empty Re: [Resolvido]Descartar alterações no formulário

    Mensagem  vieirasoft 13/7/2011, 11:49

    Desculpe, pensei que sabia o evento

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
    strMsg = "Foram efectuadas alterações"
    strMsg = strMsg & "...Deseja gravar as alterações?"
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
    'do nothing
    Else
    DoCmd.RunCommand acCmdUndo

    End If
    End Sub
    avatar
    jadsln
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/05/2011

    [Resolvido]Descartar alterações no formulário Empty Re: [Resolvido]Descartar alterações no formulário

    Mensagem  jadsln 14/7/2011, 20:08

    Obrigado Vieirasoft!

    Funcionou perfeitamente.

    Muito obrigado!
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Descartar alterações no formulário Empty Re: [Resolvido]Descartar alterações no formulário

    Mensagem  vieirasoft 14/7/2011, 20:10

    Bom trabalho.

    Conteúdo patrocinado


    [Resolvido]Descartar alterações no formulário Empty Re: [Resolvido]Descartar alterações no formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 07:13