MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Subformulário visível/invisível a partir de função If

    Compartilhe

    knaomitk
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 29/03/2016

    [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  knaomitk em Ter 26 Abr 2016, 22:44

    Oi galera! Preciso de uma ajuda...

    Coloquei 2 subformulários dentro de um formulário (Acerto_despesas; Acerto_receitas).
    Quero que o subformulário Acerto_despesas fique visível quando constar na caixa de texto "A receber" (e consequentemente o subform Acerto_receitas fique invisível). E vice versa para "A pagar".

    Já procurei alguns códigos, testei e nenhum deu certo...alguém consegue uma solução?

    Segue o projeto anexado (no caso, é o formulário "06aa_ACERTO_ADMTOS")
    Anexos
    planj.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (699 Kb) Baixado 8 vez(es)

    ruggerib
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 14/01/2014

    RE: Subformulário visível/invisível a partir de função If

    Mensagem  ruggerib em Qua 27 Abr 2016, 01:45

    Boa noite,
    Pensei em duas maneiras de ajudar vc nesta questão

    1) Pra ter dois SubFormulários(Do jeito que você pediu)

    If textbox1 = "A receber" Then
    SeuSubSformulario1.Visible = True
    SeuSubSformulario2.Visible = False
    Else
    If textbox1 = "A pagar" Then
    SeuSubSformulario1.Visible = False
    SeuSubSformulario2.Visible = True
    Else
    MsgBox "Opção nao disponível"

    End If
    End If

    2) O jeito que eu acho mais interessante que vai deixar seu projeto mais enxuto, que eh alterar o SubFormulario pelo codigo, assim vc evitar ficar redimensionando largura/altura dos dois Subs ou deixar um sub em cima do outro, e foi o que eu anexei. Usei ao invés de texbox(para ususario nao marcar opção que não exista) botão de opção e ao invés de if usei Select Case.


    Private Sub Quadro48_Click()
    Select Case Quadro48
    Case 1
    Filho45.SourceObject = "06aab_SUB_ACERTO_ADMTO_DESPESAS"
    Case 2
    Filho45.SourceObject = "06aac_SUB_ACERTO_ADMTO_RECEITAS"
    End Select



    End Sub


    Espero ter ajudado, Abs.
    Anexos
    Ruggeri.zip
    Anexo
    Você não tem permissão para fazer download dos arquivos anexados.
    (698 Kb) Baixado 20 vez(es)


    Última edição por ruggerib em Qua 27 Abr 2016, 01:46, editado 1 vez(es) (Razão : Faltou Anexo)

    knaomitk
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 29/03/2016

    Re: [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  knaomitk em Qua 27 Abr 2016, 23:07

    Oi Ruggerib! Obrigada pelo retorno!

    Na verdade a intenção é não ter mesmo a opção para o usuário selecionar, então teria que ser mesmo a primeira opção que você escreveu.
    Eu já tentei esse mesmo jeito de VBA, mas não deu certo...onde devo colocar? Estava colocando no "Após atualizar" da caixa de texto...talvez estava no lugar errado...
    Ah! uma dúvida: por que às vezes colocam o "Me." no começo? O significa isso?

    ruggerib
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 14/01/2014

    RE: Subformulário visível/invisível a partir de função If

    Mensagem  ruggerib em Qui 28 Abr 2016, 03:56

    Boa noite,
    Acho que no Ao Sair, mas ai jah eh com vc, ou usar listbox e criar o evento ao alterar.
    Chegastes a abrir o anexo que eu passei?

    knaomitk
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 29/03/2016

    Re: [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  knaomitk em Qui 28 Abr 2016, 14:52

    oi! Abri sim! Mas como disse antes, a intenção é não deixar escolha para quem está preenchendo o formulário.
    Tentei colocar no "ao sair" mas tb não deu certo...teria mais alguma opção?

    messias_rf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 28/03/2016

    Re: [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  messias_rf em Dom 01 Maio 2016, 05:12

    Tente colocar no Evento Ao perder foco da caixa de teexto.
    Lembrando que você deve prever todas as possibilidades de escrita pelos usuários.


    Espero ter ajudado.

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 549
    Registrado : 02/10/2011

    Re: [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  rubenscouto em Dom 01 Maio 2016, 22:23

    Crie uma Caixa de combinação não acoplada e como fonte de controle desta uma "lista de valores" contendo as opções "A receber" e "A pagar" e no evento "após atualizar" desta caixa de combinação o comando de mostrar ou não os subs.

    knaomitk
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 29/03/2016

    Re: [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  knaomitk em Seg 02 Maio 2016, 13:43

    Oi!! Obrigada a todos pelas sugestões!
    Consegui colocando o código no "Ao perder o foco"! Very Happy

      Data/hora atual: Ter 06 Dez 2016, 05:43