MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : 16
    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 : 97
    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: 17/1/2021, 19:59