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

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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.]

    tauron
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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?

    tauron
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    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)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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

    tauron
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Campo Visivel com conflito

    Mensagem  tauron em Seg 15 Fev 2016, 23:19

    Mylton veja minha ultima mensagem

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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

    tauron
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    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: Seg 05 Dez 2016, 16:30