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

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")

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.

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?

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?

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?

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.

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.

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