MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

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

    avatar
    RegisBorda
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  RegisBorda 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 : Respeito às Regras 100%

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

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

    Mensagem  hiperjohn 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!
    avatar
    RegisBorda
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  RegisBorda 11/9/2021, 19:42

    Prezados,

    Utilizei o código e consegui resolver.

    Grato pela ajuda.

    Abs,

    Regis

      Data/hora atual: 18/9/2021, 18:50