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]Campo Visivel com conflito

    Compartilhe
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 522
    Registrado : 23/08/2010

    [Resolvido]Campo Visivel com conflito

    Mensagem  Mylton em Dom 14 Fev 2016, 18:45

    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

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 07/12/2011

    Re: [Resolvido]Campo Visivel com conflito

    Mensagem  tauron em Dom 14 Fev 2016, 20:36

    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
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 522
    Registrado : 23/08/2010

    Re: [Resolvido]Campo Visivel com conflito

    Mensagem  Mylton em Seg 15 Fev 2016, 23:01

    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?
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 07/12/2011

    Re: [Resolvido]Campo Visivel com conflito

    Mensagem  tauron em Seg 15 Fev 2016, 23:14

    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.



    Última edição por tauron em Seg 15 Fev 2016, 23:17, editado 1 vez(es)
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 522
    Registrado : 23/08/2010

    Re: [Resolvido]Campo Visivel com conflito

    Mensagem  Mylton em Seg 15 Fev 2016, 23:17

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 07/12/2011

    Re: [Resolvido]Campo Visivel com conflito

    Mensagem  tauron em Seg 15 Fev 2016, 23:19

    Mylton veja minha ultima mensagem
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 522
    Registrado : 23/08/2010

    Re: [Resolvido]Campo Visivel com conflito

    Mensagem  Mylton em Seg 15 Fev 2016, 23:20

    ok. testo e volto.
    só um instante
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 522
    Registrado : 23/08/2010

    Re: [Resolvido]Campo Visivel com conflito

    Mensagem  Mylton em Seg 15 Fev 2016, 23:22

    Feito. Na aba do form.
    Valeu.
    Muito obrigado.
    Abs
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 07/12/2011

    Re: [Resolvido]Campo Visivel com conflito

    Mensagem  tauron em Seg 15 Fev 2016, 23:23

    o forum agradece.

      Data/hora atual: Ter 21 Nov 2017, 04:37