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

3 participantes

    [Resolvido]Botao Fechar com msgBox no formulário e Subformulário

    avatar
    MRFELIPE
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/02/2014

    [Resolvido]Botao Fechar com msgBox no formulário e Subformulário Empty [Resolvido]Botao Fechar com msgBox no formulário e Subformulário

    Mensagem  MRFELIPE Ter 29 Dez 2020, 12:16 pm

    Boa Tarde Feras!!

    Tenho uma dúvida que para vocês deve ser muito simples, porém está me dando dor de cabeça.
    Tenho um formulário com o botão fechar, e dentro desse formulário tem um subformulário. Acontece que quando estou editando um registro ou inserindo um novo, e clico no  botão fechar, recebo a msbox  perguntando se quero sair sem salvar (isso ocorre com os campos do formulário) porém se eu estiver editando no subformulário ele fecha direto. gostaria que me ajudassem, para que o botão fechar me pergunte também caso esteja editando ou inserindo registros no subformulário.

    Desde já agradeço a todos!

    Segue o código que estou usando no formulário. Nota: o subformulário está em uma página.


    Private Sub Comando478_Click()
    Dim x As Integer
    Dim ctl As Control
    Dim StrName As String

    If Me.Dirty Then

    If MsgBox("Deseja sair sem salvar as alterações ?", vbYesNo) = vbYes Then

    For Each ctl In Me.Controls
    Select Case ctl.ControlType
    Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
    StrName = ctl.Name
    Me(StrName).Enabled = False
    End Select
    Next ctl
    DoCmd.CancelEvent
    Me.Undo
    DoCmd.ApplyFilter , "tabeladadoscadastrais.matricula=  " & Me.matricula
    Me.Comando593.Enabled = True 'novo'
    Me.Comando594.Enabled = True 'editar'
    Me.Comando595.Enabled = False 'cancelar'
    Me.Comando596.Enabled = False 'salvar'
    Me.Comando597.Enabled = True 'excluir'
    DoCmd.Close
    End If

    Else
    If Me.Dirty = False Then
    DoCmd.Close
    End If
    End If

    End Sub
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 383
    Registrado : 28/10/2010

    [Resolvido]Botao Fechar com msgBox no formulário e Subformulário Empty Re: [Resolvido]Botao Fechar com msgBox no formulário e Subformulário

    Mensagem  zcarloslopes Qua 30 Dez 2020, 7:08 am

    Bom dia MRFELIPE,

    O que parece estar a acontecer é que quando passas para os registos do subForm, os registos do Form são gravados, como tal: Me.Dirty = False.

    Assim não recebes a MsgBox, pois ela só corre quando: Me.Dirty = True.

    E sim, fecha o Form direto, porque é o código que corre quando: Me.Dirty = False

    Espero ter ajudado.
    avatar
    MRFELIPE
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/02/2014

    [Resolvido]Botao Fechar com msgBox no formulário e Subformulário Empty Re: [Resolvido]Botao Fechar com msgBox no formulário e Subformulário

    Mensagem  MRFELIPE Qua 30 Dez 2020, 3:41 pm

    Boa Tarde zcarloslopes!

    Na verdade, como sou novato em access estou com alguns gatilhos. por exemplo, os botões de navegação (novo, editar, cancelar, salvar e excluir) não consegui que funcionassem no sub, tive que criar novos dentro do Sub, e com relação ao formulário ele está assim: eu entro e se não estiver em modo insert, clico em fechar e ele fecha, agora se tiver editando ou inserindo novo registro, e clicar em fechar ele me pergunta se realmente quero executar a ação. Isso ocorre dentro do Formulário, porém o Sub não funciona, e é exatamente aí o meu problema, não sei como fazer funcionar. (Tenho um Sub dentro do formulário, porque tenho 4 paginas e cada uma com uma tabela diferente). Obrigado pela ajuda!!!
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 759
    Registrado : 11/12/2017

    [Resolvido]Botao Fechar com msgBox no formulário e Subformulário Empty Re: [Resolvido]Botao Fechar com msgBox no formulário e Subformulário

    Mensagem  Ismael Silva Qua 30 Dez 2020, 6:18 pm

    Felipe,

    Quem sabe posta o teu BD, creio que será mais fácil, uma solução.
    avatar
    MRFELIPE
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 04/02/2014

    [Resolvido]Botao Fechar com msgBox no formulário e Subformulário Empty Re: [Resolvido]Botao Fechar com msgBox no formulário e Subformulário

    Mensagem  MRFELIPE Qua 24 Fev 2021, 12:10 pm

    Boa Tarde !
    Ismael! agradeço demais sua ajuda, porém como tinha pouco tempo eu refiz os formulários e entreguei o arquivo ao dono, ahh! desculpe a demora para responder.

    Obrigados a Todos!!

      Data/hora atual: Seg 20 Set 2021, 9:43 pm