[Resolvido]Carregar caixa de combinação com duas colunas no Subformulário

Boa tarde,

Como faço para que no Form_Entrada, no Subformulário, na coluna cód, onde tem uma caixa de combinação com duas colunas, assim que eu escolher um valor, carregar a coluna Item com o valor respectivo?

Obrigado, se alguém puder ajudar.


https://www.dropbox.com/s/sfbnngvk686uo2a/Controle%20de%20Uniformes.accdb?dl=0

Prezado Ismael,

envio o BD com a sua solicitação efetivada.

A título de orientação, sugiro que dê uma verificada na modelagem, estrutura e nos relacionamentos das tabelas do seu sistema.
Somente olhando rapidamente a sua BD notei a tabela Tbl_Cad_Fornecedor não está relacionada e não possui o campo adequado para relacioná-la com a tabela Cad_Produtos. Seguindo uma linha de raciocínio lógica diríamos que: um fornecedor pode fornecer vários produtos e haveria um relacionamento 1->n (um para muitos).

Sucesso, Delson

delsonk,

Vou verificar a sua dica, mas de ante-mão lhe digo que a minha dúvida foi resolvida com a sua ajuda, muito obrigado!

Mas o que era o meu erro que não estava dando certo?

Ismael

Veja no modo estrutura qual o código (campo Item) se faz para acoplar uma segunda coluna.

A fonte de controle =[CódItem].[column](1) ou seja a coluna acoplada exibida na Combo CódItem é a coluna 0 (zero) então acoplamos a coluna 1 que será exibida no campo Item. Se você preferir pode alterar de Combo para Caixa de texto.
Também alterei a largura das colunas no campo Largura das colunas: 0,752cm;2cm.

Abraço, Delson

Ismael boa noite,

Enquanto estava verificando seu sistema, o nosso caro colaborador Delsonk postou a solução para o seu sistema.

Aproveitando a oportunidade, segue em anexo a alteração que voce solicitou, conforme abaixo:



Fiz uns ajustes no formulário porque estava muito grande.

Conforme o Delson mencionou, é necessário fazer alguns ajustes na modelagem do sistema.
Existem campos com acentuação(CódItem) e, se porventura vc migrar o banco Access para um outro DB (MySQL, MariaDB), com certeza vai gerar alguns problemas.

Espero ter ajudado.

[]'s

Obrigado Alexandre e delsonk,

A princípio funcionando de acordo com o que preciso, qualquer nova dúvida, peço ajuda.

Valeu Ismael...obrigado pelo retorno.

Valeu Delson.

[]'s a todos

Senhores,

Só voltando rapidamente neste tópico, pois tentei seguir a mesma lógica para o Frm-Saída, inserindo este código abaixo, porém diz que o valor não é válido.

Neste caso estou usando como critério a tabela de entrada, considerando que eu só vou conseguir dar saída de um produto, se em algum momento tiver entrada do mesmo. Não sei se minha lógica está correta.


Me.Item_Saída = DLookup("[Item]", "Tbl_Entrada_Detalhada", "[CódItem] = " & Me.Cód_Item.Value & "")

Bom dia.

Pergunto se a dificuldade que você está tendo está no Frm_Saída, quando na Combo selecionar o Item preencher você  quer seja automaticamente também preenchido o Cód_Item.

Abraço, Delson

Isso mesmo Delson

Prezado Ismael,

segue o BD com a alteração solicitada.

Abraço, Delson

Delson, muito obrigado!