[Resolvido]Relacionar Combobox com imagens

Boa tarde!
Tenho uma base de dados com uma combobox relacionada com uma imagem, ou seja, quando selecciono uma opção na combobox aparece a respectiva imagem.
O que eu queria saber era se é possível relacionar uma combobox com duas imagens, isto é, quando selecciono a opção na combobox aparecerem duas imagens.
O meu exemplo consiste numa combobox com os produtos. O meu objectivo é fazer aparecer uma imagem com a imagem do produto e outra imagem com a folha com as dimensões do meu produto.

Abraço

Como a imagem é referenciada no código? Ela tem como nome o código do produto? Se puder colocar o vba usado ou outro procedimento adotado, ajuda tambem.

Eu fiz o seguinte:

Código

Private Sub CaixaCombinação1_Change()
Me.Imagem16.Picture = Me.CaixaCombinação1.Column(2)
End Sub

Na origem de linha da caixa de combinação fiz o seguinte:

SELECT [Produtos].[ID], [Produtos].[NomeProduto], Application.CurrentProject.path & "\ImagensProdutos\" & [ImagemProduto] AS Expr1 FROM [Produtos] ORDER BY [NomeProduto];


Isto foi o que fiz e resultou para uma imagem.
Agora eu queria fazer isto para duas imagens.

Para tal, você precisará incluir mais uma coluna na combo, seguindo duas opções:

1° - Você precisa ter essas imagens nomeadas com alguma coisa mais o código da imagem por exemplo. Algo como flh1, flh2, flh3. flh1 seria a imagem do registro 1. Então você incluiria na origem da combo assim:

SELECT [Produtos].[ID], [Produtos].[NomeProduto], Application.CurrentProject.path & "\ImagensProdutos\" & [ImagemProduto] AS Expr1, Application.CurrentProject.path & "\ImagensProdutos\flh" & [ImagemProduto] AS Expr2 FROM [Produtos] ORDER BY [NomeProduto];

Outra seria armazenando o caminho na tabela, mas eu prefiro a primeira, apesar de que tem uma forma que acho melhor ainda. Nessa, você só precisaria colocar o código e o nome do registro na combo. As imagens teriam o código como nome para a primeira e flhCódigo para a segunda. No "Após atualizar" da combo, você colocaria assim:

Me.Imagem16.Picture = CurrentProject.Path & "\" & Me.CaixaCombinação1.Column(0) & ".jpg"
Me.Imagem17.Picture = CurrentProject.Path & "\flh" & Me.CaixaCombinação1.Column(0) & ".jpg"

Eu tenho as imagens em duas pastas, ImagensProdutos e DesenhosProdutos. As imagens estão em formato .png

Eu experimentei o seguinte e não resultou:

SELECT [Produtos].[ID], [Produtos].[NomeProduto], Application.CurrentProject.path & "\ImagensProdutos\" & [ImagemProduto] AS Expr1, Application.CurrentProject.path & "\DesenhosProdutos\" & [DesenhoProduto] AS Expr2 FROM [Produtos] ORDER BY [NomeProduto];

A sua 3ª opção parece-me bem mas não compreendi a parte dos flh

O flh seria o início do nome mais o o código do registro. Mas se você tem as imagens em pastas diferentes, então não precisa do flh, pode usar igual para ambas, apenas mudando a subpasta.

Obrigado. Vou experimentar e ver o que dá.

Bem, isto fez um progresso mas não exactamente o que eu queria.
Consegui fazer com que a caixa de combinação fizesse aparecer duas imagens. Mas são iguais. São as imagens da Pasta ImagensProduto. Não consigo fazer com que a 2ª imagem seja da pasta DesenhosProduto.

Fiz o seguinte através da sua 1ª opção:

Código

Private Sub CaixaCombinação1_Change()
Me.Imagem16.Picture = Me.CaixaCombinação1.Column(2)
Me.Imagem17.Picture = Me.CaixaCombinação1.Column(2)

End Sub

Na origem de linha da caixa de combinação fiz o seguinte:

SELECT [Produtos].[ID], [Produtos].[NomeProduto], Application.CurrentProject.path & "\ImagensProdutos\" & [ImagemProduto] AS Expr1, Application.CurrentProject.path & "\DesenhosProdutos\" & [DesenhoProduto] AS Expr2 FROM [Produtos] ORDER BY [NomeProduto];


Poderia explicar-me a alteração do número de colunas. Foi o que me faltou mas não percebi como fazer.

Nas propriedades da sua combo, aba Formato, linha "Número de colunas", especifique o número total de colunas e na linha "Largura das colunas", coloque todas com 2cm por exemplo e veja que nomes aparecem nessas colunas adicionadas. Se for 4 colunas, ficaria 2cm;2cm;2cm ou pode ser 0cm;0cm;2cm;2cm para exibir apenas as duas últimas colunas.

ok

Eu tinha 2 colunas, 1 para o ID e outra para o Nome do produto.
Como eu só queria que aparecesse o nome do produto, eu tinha a 1ª coluna a 0cm e a 2ª a 2,54cm.
Eu fiz essa alteração que disse mas aparecem-me coisas que eu não quero.
Eu não percebi ainda o que vai fazer a alteração do número de colunas para resolver o problema.

Já consegui! Alterei o campo coluna vinculada e resolveu. Tinha 1 e passei para 2 e resultou!

Muito obrigado!!! Podem fechar

A intenção ao exibir todas as colunas,era para ver que dados estavam sendo carregados em cada coluna, para visualizar se estava fazendo tudo certo. Como vê, com esse procedimento você matou a charada do número de colunas

Vou colocar o Resolvido, lembrando que você mesmo pode fazê-lo, bastando clicar no botão escrito Resolvido, logo acima de onde clica para enviar a mensagem, à direita.