MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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

    knaomitk
    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 Empty [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  knaomitk em 26/4/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
    [Resolvido]Subformulário visível/invisível a partir de função If Attachmentplanj.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (699 Kb) Baixado 11 vez(es)
    ruggerib
    ruggerib
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  ruggerib em 27/4/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
    [Resolvido]Subformulário visível/invisível a partir de função If AttachmentRuggeri.zip
    Anexo
    Você não tem permissão para fazer download dos arquivos anexados.
    (698 Kb) Baixado 30 vez(es)


    Última edição por ruggerib em 27/4/2016, 01:46, editado 1 vez(es) (Razão : Faltou Anexo)
    knaomitk
    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 Empty Re: [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  knaomitk em 27/4/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
    ruggerib
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  ruggerib em 28/4/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
    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 Empty Re: [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  knaomitk em 28/4/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
    messias_rf
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  messias_rf em 1/5/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
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  rubenscouto em 1/5/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
    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 Empty Re: [Resolvido]Subformulário visível/invisível a partir de função If

    Mensagem  knaomitk em 2/5/2016, 13:43

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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 01:53