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


    Caixa de combinação com valores que faz serviços diferentes.

    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 27/02/2018

    Caixa de combinação com valores que faz serviços diferentes. Empty Caixa de combinação com valores que faz serviços diferentes.

    Mensagem  alantardivo em 10/12/2018, 04:05

    Olá pessoal, bom dia!

    Eu estou trabalhando na construção de um formulário de cadastro de produto e hoje gostaria de tirar uma dúvida. Tenho hoje um caixa de combinação chamada "Produto_Servico. Nela o funcionário deve informar se o que ele está cadastrando agora é um produto ou serviço. Caso selecione "produto" dessa caixa de combinação, todos os campos permaneceram visíveis, agora, se ele selecionar a opção "serviço" alguns campos gostaria de poder coloca-los como invisíveis.

    Alguém poderia me ajudar?

    caixa de combinação = "Produto_Servico
    campos que gostaria de ocultar se selecionar "Serviço" : EstoqueMinimo, EstoqueAtual, DataValidade, ControlarEstoque, PrecoCusto, % Lucro, Tabela2, % Lucro2, Tabela3, % Lucro3.

    Desde já agradeço! santa
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    Caixa de combinação com valores que faz serviços diferentes. Empty Re: Caixa de combinação com valores que faz serviços diferentes.

    Mensagem  JPaulo em 10/12/2018, 09:51

    Olá;

    Será assim;

    Código:
    Private Sub Produto_Servico_AfterUpdate()
        Select Case Produto_Servico.Column(0)
            Case Is = "Produto" 'se escolher produto
                Me.SeuCampo1.Visible = True 'torna visivel o campo 1
                Me.SeuCampo2.Visible = True 'torna visivel o campo 2
                Me.SeuCampo3.Visible = True 'torna visivel o campo 3
                Me.SeuCampo4.Visible = False 'oculta o campo 4
                Me.SeuCampo5.Visible = False 'oculta o campo 5
            Case Is = "Serviço" 'se escolher serviço
                Me.SeuCampo1.Visible = False 'oculta o campo 1
                Me.SeuCampo2.Visible = False 'oculta o campo 2
                Me.SeuCampo3.Visible = False 'oculta o campo 3
                Me.SeuCampo4.Visible = True 'torna visivel o campo 4
                Me.SeuCampo5.Visible = True 'torna visivel o campo 5
        End Select
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Caixa de combinação com valores que faz serviços diferentes. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Caixa de combinação com valores que faz serviços diferentes. Folder_announce_new 102 Códigos VBA Gratuitos...
    Caixa de combinação com valores que faz serviços diferentes. Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 17/6/2019, 16:16