[Resolvido]Imagens em formulario a partir de uma pasta

Por exemplo: ao digitar um valor num campo do formulario o objeto ole exibe a imagem no formulario correspondente ao valor. modelo 0102 = imagem 0102.jpg.

Grato!

Faça uma busca no fórum. Há vários tópicos resolvidos sobre o assunto.

eu olhei todos sobre imagens mas não encontrei nenhum que eu possa adaptar para isso

vc poderia me passar um exemplo?

Criquio desculpe a intromissão. Fernando, no evento após atualizar do campo que vc digita o valor para buscar a imagem vc digita:
If Me.SeuCampoASerDigitado] = "0102" Then
Me.SeuCampoQueVaiFicarImagem = Me.Imagem0102
ElseIf Me.SeuCampoASerDigitado] = "ValorDaOutraImagem" Then
Me.SeuCampoQueVaiFicarImagem = Me.CampoDaOutraImagem
End If

por exemplo:

mas com este script ele mudaria a figura?
se eu digitar outro modelo ele buscaria no diretorio?

vou montar um e compactar para ilustrar melhor

Seria mais ou menos isso que esta no .rar

desculpe não aceitava .rar agora ta zip!

Bom dia, você esta indo pelo caminho errado, veja esses exemplos.

exemplo 1

exemplo 2


Não use a caixa de texto, mas, uma combobox.

Bons estudos e sucesso a ti.

segundo exemplo é muito bom creio que consigo modificar.
mas como neste caso, terei que ter pré cadastrado todos os modelos para que se refiram às imagens.
não tem como o formulario pesquisar pelo digitado no modelo a imagem referente sem previo cadastro?
assim as imagens são baixadas previamente e utilizadas sem previo cadastro.
sabendo que elas são apenas para ilustração do modelo escolhido.

Fernando jeito até que tem. Mas, perde-se a essência de ser um banco de dados.

A função de um banco de dados, é reunir o maior número possível de informações sobre tal produto e coloca-las a disposição de quem esta usando o mesmo.

Eu fiz um catalogo eletrônico para um cliente meu que hoje está com mais de mil imagens e todas cadastradas e catalogadas.

Sei que dá um trabalho fazer isso, mas o resultado final compensa.

Abraços.

não consigo editar seu formulario para saber como fazer

Fernando, não são meus esses exemplos mas sim, retirados aqui do nosso fórum.

Para abri-los no modo edição, deve-se manter a tecla Shift pressionada, ao apertar a tecla Enter.

Fernando, verifica ai se é dessa forma que deseja. Digita no campo modelo 01320, 01020 e 01120 pra ver o que acontece

http://www.4shared.com/rar/6rMVceGe/bd-Teste_Alterado.html

exatamente isso que eu queria!
como fez referencia pelos codigos às imagens?
porque pelo nome não tem haver com os codigos fornecidos.

encontrei como fez, mas ai todo o processo de cadastro de novos produto seriam manuais?
uma vez que só no modo designe adiciono novos itens.
Não teria como a imagem ex. 1010.jpg ser exibida quando digitado 1010 no campo modelo?
Pois assim os para novos modelos seriam apenas inseridas novas imagens na pasta imagens.

Bom dia Fernando, vc vai ter que colocar as imagens na pasta que estão essas do exemplo que mandei ou então vc cria uma do seu jeito e faz a referência via código do jeito que está no exemplo indicado o nome da imagem que vai ser identificado por cada modelo, implemente primeiro de acordo com sua idéia e qualquer dúvida é só apitar dai. Da forma que está nesse exemplo tem a facilidade de vc não armazenar imagens no seu banco deixando bastante pesado.

Bom dia ! Então todas terão que ser descritas no script?

sim, vc precisa identificar as imagens pelo modelo pra quando vc digitar esse modelo no formulário possa identificar a imagem certa, a não ser que vc queira inchar seu bd ai vc armazena as imagens em uma tabela.

tentei fazer o seguinte:

Private Sub modelo_AfterUpdate()
If Me.modelo = "[nome do campo modelo]" Then
Me.Imagem1.Picture = (CurrentProject.Path & "\Imagens\[nome do campo modelo].jpg")
End If

End Sub

--------------------------



é posivel um tipo de ação assim?
pois desta forma não precisaria cadastrar de um a um.

Fernando no lugar do nome da campo vc tem que colocar o valor que vc vai digitar no campo, exemplo: se vc vai digitar no campo modelo 02010, vc coloca:

If Me.Modelo = "02010" Then
Me.Imagem1.Picture = (CurrentProject.Path & "\Imagens\NomeDaFigura.jpg")
End I

jpg é a extensão da figura, observe que no exemplo que te passei tem jpg, png e bmp, pois são 3 formatos diferentes se suas imagens estiverem em formato jpg, vc mantém a extensão.

SIM!

PARA OS OUTROS EX.

If Me.Modelo = "02010" Then
Me.Imagem1.Picture = (CurrentProject.Path & "\Imagens\NomeDaFigura.jpg")
End IF

If Me.Modelo = "02011" Then
Me.Imagem1.Picture = (CurrentProject.Path & "\Imagens\NomeDaFigura.jpg")
End I

If Me.Modelo = "02012" Then
Me.Imagem1.Picture = (CurrentProject.Path & "\Imagens\NomeDaFigura.jpg")
End I

?

sim, mas use assim:

If Me.Modelo = "02010" Then
Me.Imagem1.Picture = (CurrentProject.Path & "\Imagens\NomeDaFigura1.jpg")
ElseIf Me.Modelo = "02011" Then
Me.Imagem1.Picture = (CurrentProject.Path & "\Imagens\NomeDaFigura2.jpg")
End If

If Me.Modelo = "02012" Then
Me.Imagem1.Picture = (CurrentProject.Path & "\Imagens\NomeDaFigura3.jpg")
ElseIf Me.Modelo = "02013" Then
Me.Imagem1.Picture = (CurrentProject.Path & "\Imagens\NomeDaFigura4.jpg")
End If

e assim sucessivamente quantas figuras vc desejar colocar

ok ! vou fazer desta forma.