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]Fechar Formulário ao sair de outro

    avatar
    Canastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 04/10/2018

    [Resolvido]Fechar Formulário ao sair de outro Empty [Resolvido]Fechar Formulário ao sair de outro

    Mensagem  Canastra Ter 09 maio 2023, 04:53

    Amigos,

    estou tendo problema, aparentemente simples, em um BD.

    Uso o MSOffice 365, 64 bits, WIn 10 e 11.

    Não consigo, ao siar de um formulário, fechar o outro.

    Já tentei tudo, mas não consigo.

    Segue BD modelo para avaliação dos senhores.


    Ao clicar no botão "IDENTIFICADOR", no primeiro formulário (FICHA_NECRO), abre-se outro formulário (SENHA. O FICHA_NECRO deveria ser fechado, mas não fecha).

    Na caixa do formulário "SENHA", a senha é "12345". Ao perder o foco nessa caixa abre-se um outro formulário (IDENTIFICADOR). O Formulário "SENHA" deveria ser fechado, mas não fecha. Se a senha for digitada incorretamente, ou ao clicar em "VOLTAR", o formulário "SENHA" deveria fechar, e abrir o formulário "FICHA_NECRO".

    Isso ocorre em todos os formulários do BD, e eu pretendo que apenas um formulário fique aberto de cada vez, para não poluir a tela, já que os formulários possuem tamanhos diferentes.

    Quanto à senha, é simples mesmo, só para o modelo.
    Anexos
    [Resolvido]Fechar Formulário ao sair de outro AttachmentMODELO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (130 Kb) Baixado 7 vez(es)
    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 12/01/2021

    [Resolvido]Fechar Formulário ao sair de outro Empty Re: [Resolvido]Fechar Formulário ao sair de outro

    Mensagem  Cristian Souza Ter 09 maio 2023, 14:00

    Olá Canastra Very Happy

    No seu botão "Papi" do formulário "FICHA NECRO", altere para o código abaixo:

    Código:


        DoCmd.Save
        DoCmd.Close
        DoCmd.OpenForm "SENHA"
        [Forms]![Senha]![Senha].SetFocus


    No seu evento"LostFocus" do campo "Senha" do Formulário "SENHA", altere para o código abaixo:

    Código:



        On Error Resume Next

        'Verifica se a senha está correta
        If Me.Senha.value = "12345" Or Me.Senha.value = "23456" Or Me.Senha.value = "34567" Or Me.Senha.value = "45678" Or Me.Senha.value = "56789" Then
            'Abre o formulário Identificador e fecha o formulário SENHA
            DoCmd.Save
            DoCmd.Close
            DoCmd.OpenForm "Identificador"
           
        Else
            'Fecha o formulário SENHA e abre o formulário FICHA_NECRO
           

           
            MsgBox "Senha incorreta!"
            DoCmd.Save
            DoCmd.Close
            DoCmd.OpenForm "FICHA_NECRO"

           
        End If



    Ao clicar no botão voltar, altere o código para:

    Código:


    On Error Resume Next

        Form.Undo
        DoCmd.Close
        DoCmd.OpenForm "FICHA_NECRO"



    avatar
    Canastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 04/10/2018

    [Resolvido]Fechar Formulário ao sair de outro Empty Re: [Resolvido]Fechar Formulário ao sair de outro

    Mensagem  Canastra Ter 09 maio 2023, 20:45

    Obrigado, Cristian!

    Funcionou!!

    Conteúdo patrocinado


    [Resolvido]Fechar Formulário ao sair de outro Empty Re: [Resolvido]Fechar Formulário ao sair de outro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 21 Nov 2024, 21:44