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]Botão Salvar com Prompt de 3 escolhas Sim Não e Cancelar

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Botão Salvar com Prompt de 3 escolhas Sim Não e Cancelar Empty [Resolvido]Botão Salvar com Prompt de 3 escolhas Sim Não e Cancelar

    Mensagem  mfmaiafilho em 19/5/2020, 17:50

    boa tarde galera tudo bem com vocês? espero que sim !

    eu tenho uma dúvida cruel em relação formulários sujos que na maioria das vezes quando são fechados salvam mesmo o usuário não apertando um botão com comando salvar.

    a questão é a seguinte eu uso hoje esse código para um botão de "Salvar e Fechar", porém esse botão não tem "Não salvar"

    ele apenas faz a pergunta Salvar ? Sim ou Não, se responder "não" a ação não será fechar não terá ação nenhuma. porém se apertar sim ele salva e fecha a janela

    eu queria 3 respostas

    Sim / Não / Cancelar

    Sim = Fecharia a Janela e Salvaria os dados
    Não = Fecharia e Não salvaria nada
    Cancelar = Cancelava a ação do botão Salvar e Fechar

    eu uso o código abaixo:


    Private Sub BTN_SALVAR_Click()
      Dim strmsg As String
      Dim iResponse As Integer

      strmsg = "Deseja salvar e fechar?" & Chr(10)
      iResponse = MsgBox(strmsg, vbQuestion + vbYesNo, "Mensagem")
     
      If iResponse = vbYes Then
      DoCmd.Save
      DoCmd.Close
      Call DoCmd.OpenForm("Frm_Menu")
      End If
    End Sub


    Última edição por mfmaiafilho em 20/5/2020, 19:16, editado 1 vez(es)
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Botão Salvar com Prompt de 3 escolhas Sim Não e Cancelar Empty Re: [Resolvido]Botão Salvar com Prompt de 3 escolhas Sim Não e Cancelar

    Mensagem  FranklinJSP em 19/5/2020, 22:39

    Olá

    Em anexo

    Saludos
    Anexos
    [Resolvido]Botão Salvar com Prompt de 3 escolhas Sim Não e Cancelar AttachmentOpções (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (542 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
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 02/08/2018

    [Resolvido]Botão Salvar com Prompt de 3 escolhas Sim Não e Cancelar Empty Re: [Resolvido]Botão Salvar com Prompt de 3 escolhas Sim Não e Cancelar

    Mensagem  mfmaiafilho em 20/5/2020, 14:01

    Bom dia tudo bem? espero que sim

    eu tenho um problema, quando faço alteração no Form e fecho e digo "Não" no Prompt de salvar ele realmente não salva.

    já quando eu altero o subformulário não funciona no "Não Salvar"

    como posso resolver?





    Private Sub BTN_SAIR_Click()

    Dim strmsg As String
    Dim iResponse As Integer

    strmsg = "¿Deseja salvar e fechar?" & Chr(10)
    iResponse = MsgBox(strmsg, vbQuestion + vbYesNoCancel, "Mensagem")

    If iResponse = vbYes Then
    DoCmd.Save
    DoCmd.Close
    Call DoCmd.OpenForm("Frm_Menu")
    ElseIf iResponse = vbNo Then
    Form.Undo
    DoCmd.Close
    Else
    Exit Sub
    End If

    End Sub

      Data/hora atual: 2/7/2020, 09:24