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 2 tabelas

    avatar
    RegisBorda
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 07/02/2014

    Caixa de Combinação com 2 tabelas Empty Caixa de Combinação com 2 tabelas

    Mensagem  RegisBorda em 8/4/2019, 19:26

    Prezados,

    Tenho um Form (Form_FormulacaoProdAcabado)

    Campos :

    CodPAMP (1-PA;2-MP)
    CodMP (Caixa de Combinação)
    Descrição
    ValPerc
    TotKg
    PrCusto

    Eu formulo um produto

    Ex: 22,00 (Produto Granel) = Graut XML
    Utilizo as Matérias Primas 2000 = Agua, 2010 = Soda e 2020 = Ácido

    Preciso Fabricar outro Produto
    Ex: 25,00 (granel) = Graut JKM
    Utilizo o Produto 22,00 e as Matérias Primas 2000 = Água e 2020 = Ácido

    Este seria o conceito de forma bem resumida.

    Na Propriedade Origem de Linha do campo (CodMP) Tenho o seguinte :
    SELECT [TbMateriaPrima].[CodMP], [TbMateriaPrima].[Descricao], [TbMateriaPrima].[PrCusto] FROM TbMateriaPrima ORDER BY [TbMateriaPrima].[CodMP];

    Porém preciso que, se o campo (CodPAMP) = 1
    SELECT [TbProdutoAcabado].[CodPA], [TbProdutoAcabado].[Descricao], [TbProdutoAcabado].[PrCusto] FROM TbProdutoAcabado ORDER BY [TbProdutoAcabado].[CodPA];

    Se o campo (CodPAMP) = 2
    SELECT [TbMateriaPrima].[CodMP], [TbMateriaPrima].[Descricao], [TbMateriaPrima].[PrCusto] FROM TbMateriaPrima ORDER BY [TbMateriaPrima].[CodMP];

    É possível isso ?

    Como seria o código na propriedade Origem de Linha ? ou em outra propriedade.

    Alguém poderia me ajudar

    Muito Grato,

    Regis Borda
    hiperjohn
    hiperjohn
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 92
    Registrado : 06/06/2013

    Caixa de Combinação com 2 tabelas Empty Re: Caixa de Combinação com 2 tabelas

    Mensagem  hiperjohn em 10/4/2019, 19:31

    Regis, supondo que a caixa de combinação se chame cboTipo, você pode colocar no evento Ao receber foco dessa caixa de combinação o seguinte código:

    Código:
    If CodPAMP = 1 Then
        Me.cboTipo.RowSource = "SELECT [TbProdutoAcabado].[CodPA], [TbProdutoAcabado].[Descricao], [TbProdutoAcabado].[PrCusto] FROM TbProdutoAcabado ORDER BY [TbProdutoAcabado].[CodPA];"
    ElseIf CodPAMP = 2 Then
        Me.cboTipo.RowSource = "SELECT [TbMateriaPrima].[CodMP], [TbMateriaPrima].[Descricao], [TbMateriaPrima].[PrCusto] FROM TbMateriaPrima ORDER BY [TbMateriaPrima].[CodMP];"
    End If

    Abraços!

      Data/hora atual: 27/6/2019, 09:49