[Resolvido]Caixa de Combinação com 2 tabelas

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

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!

Prezados,

Utilizei o código e consegui resolver.

Grato pela ajuda.

Abs,

Regis