[Resolvido]Campo Visivel com conflito

Boa tarde
Adaptando códigos deste fórum criei uma aplicação onde na guia fonte geradora gostaria que ao escolher a fonte pagadora o respectivo campo se tornasse visível.
Usando grupo de opção consegui apenas 3 fontes. A última não rodou.

Busquei utilizar a opção combobox.... e nada.]
rs
Alguém poderia dizer onde errei.
Obrigado

https://www.dropbox.com/s/ny1sgm5gnfq83je/Pagamento%203.mdb?dl=0

Mylton, confira seus codigos por favor:

Private Sub Opcao4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     
RotuloQuadro5.Visible = True
      Quadro5.Visible = True
      RotuloNomeTerceiros.Visible = True
      NomeTerceiros.Visible = True
      RotuloCPFTerceiros.Visible = True
      CPFTerceiros.Visible = True
      Rotulo277.Visible = True
      RotuloCNPJTerceiros.Visible = True
      CNPJTerceiros.Visible = True
      Rotulo281.Visible = True
      RotuloTexto_Valor_Pago_Terceiros.Visible = True
      Texto_Valor_Pago_Terceiros.Visible = True
      TxtVPE_Pago_Terceiros.Visible = True
       RotuloQuadro2.Visible = False
       Quadro2.Visible = False
       RotuloNomeAutor.Visible = False
       Combinacao_Nome_Autor.Visible = False
       CPFAutor.Visible = False
       RotuloValorPago.Visible = False
       Texto_Valor_Pago_Autor.Visible = False
       TxtVPE_Pago_Autor.Visible = False
       RotuloQuadro3.Visible = False
       Quadro3.Visible = False
       RotuloCombinacao_Nome_Justica.Visible = False
       Combinacao_Nome_Justica.Visible = False
       RotuloCNPJ.Visible = False
       CNPJJustica.Visible = False
       Rotulo2178.Visible = False
       Rotulo287.Visible = False
       Texto_Valor_Pago_Justica.Visible = False
       TxtVPE_Pago_Justica.Visible = False
        RotuloQuadro5.Visible = False
       Quadro5.Visible = False
       NomeTerceiros.Visible = False
       RotuloNomeTerceiros.Visible = False
       RotuloCPFTerceiros.Visible = False
       CPFTerceiros.Visible = False
       Rotulo277.Visible = False
       RotuloCNPJTerceiros.Visible = False
       CNPJTerceiros.Visible = False
       Rotulo281.Visible = False
       RotuloTexto_Valor_Pago_Terceiros.Visible = False
       Texto_Valor_Pago_Terceiros.Visible = False
       TxtVPE_Pago_Terceiros.Visible = False


Private Sub Combinacao_Fonte_Pagadora_AfterUpdate()
'Evento No Atual do Form:
...........................................................................

   If Me.Combinacao_Fonte_Pagadora.Value = "Terceiros" Then
           RotuloQuadro5.Visible = True
           Quadro5.Visible = True
           RotuloNomeTerceiros.Visible = True
           NomeTerceiros.Visible = True
           RotuloCPFTerceiros.Visible = True
           CPFTerceiros.Visible = True
           Rotulo277.Visible = True
           RotuloCNPJTerceiros.Visible = True
           CNPJTerceiros.Visible = True
           Rotulo281.Visible = True
           RotuloTexto_Valor_Pago_Terceiros.Visible = True
           Texto_Valor_Pago_Terceiros.Visible = True
           TxtVPE_Pago_Terceiros.Visible = True
           RotuloQuadro2.Visible = False
           Quadro2.Visible = False
           RotuloNomeAutor.Visible = False
           Combinacao_Nome_Autor.Visible = False
           CPFAutor.Visible = False
           RotuloValorPago.Visible = False
           Texto_Valor_Pago_Autor.Visible = False
           TxtVPE_Pago_Autor.Visible = False
           RotuloQuadro3.Visible = False
           Quadro3.Visible = False
           RotuloCombinacao_Nome_Justica.Visible = False
           Combinacao_Nome_Justica.Visible = False
           RotuloCNPJ.Visible = False
           CNPJJustica.Visible = False
           Rotulo2178.Visible = False
           Rotulo287.Visible = False
           Texto_Valor_Pago_Justica.Visible = False
           TxtVPE_Pago_Justica.Visible = False
          RotuloQuadro5.Visible = False
           Quadro5.Visible = False
           NomeTerceiros.Visible = False
           RotuloNomeTerceiros.Visible = False
           RotuloCPFTerceiros.Visible = False
           CPFTerceiros.Visible = False
           Rotulo277.Visible = False
           RotuloCNPJTerceiros.Visible = False
           CNPJTerceiros.Visible = False
           Rotulo281.Visible = False
           RotuloTexto_Valor_Pago_Terceiros.Visible = False
           Texto_Valor_Pago_Terceiros.Visible = False
           TxtVPE_Pago_Terceiros.Visible = False
       End If

Boa noite.
Desculpe a demora. tava no plantão.
vi. entendi. e obrigado.
Antes de finalizar...
Poderia explicar o porque ao escolher na opção esta não muda. Fica sempre marcada em uma unica opção? No caso a justiça?

Como assim? vou dar uma olhada porque fui direto no vba e fiz testes como novos registros e nao percebi isto.

Pronto. Na folha de propriedades do formulario, na aba "dados" defina "permitir edicoes" para sim.

Agradeço.
Já corrigi.
Precisa da opção false no grupo 4
Mas só marca o campo justiça.
Obrigado

Mylton veja minha ultima mensagem

ok. testo e volto.
só um instante

Feito. Na aba do form.
Valeu.
Muito obrigado.
Abs

o forum agradece.