[Resolvido]Inserir imagem automaticamente

Ola amigos,eu gostaria de saber se é possivel:tenho um form de OS(Ordem de Serviços) nele eu escolho o nome do cliente e escrevo o nome do aparelho que chegou para conserto,tenho um botão que clico e escolho a imagem desse aparelho que fica gravado no form.
Dúvida,é possivel quando escrever o nome do aparelho e clicar em um botão ja aparecer a imagem desse aparelho?Tipo escrevo TVC clico enter ou em um botão aparece a imagem do televisor,notebook aparece sua imagem e assim por diante,claro que ja vou ter as imagens dentro de uma pasta. Sera possivel.

Abçs.

Aqui:
http://maximoaccess.forumeiros.com/t15904-resolvidoimagens-em-formulario-a-partir-de-uma-pasta

Obrigado Beto é assim mesmo, consegui fazer.
Muito abrigado mesmo.

 

coloca nos eventos após atualizar do campo "aparelho" e atual do formulário, isso:

   Select Case APARELHO
   Case Is = "Notebook"
   Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\not.jpg") ' Nome da imagem que representa notebook
   Case Is = "RADIOS"
   Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\radio.jpg") ' Nome da imagem que representa o radio
   Case Is = "DVD"
   Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\dvd.jpg") ' Nome da imagem que representa o dvd
   Case Is = "PARABOLICA"
   Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Parabolica.jpg") ' Nome da imagem que representa a parabólica
   Case Is = "Tanquinho"
   Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Tanquinho.jpg") ' Nome da imagem que representa o tanquinho
   Case Is = "RECEPTOR PARABOLICA"
   Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\receptor.jpg") ' Nome da imagem que representa o receptor
   End Select

Obs: colocar os outros case para outros aparelhos que existirem

Beto porque não deu certo

https://dl.dropboxusercontent.com/u/90217826/OSTeste.rar

É só seguir as orientações da minha penúltima msg.

Estais copiando o código e colando, o vba está entendo como uma única linha.

Bem com esse no atual

If IsNull(Me.APARELHO) Then
Me.imagem3.Picture = ""
ElseIf Me.APARELHO = "tvc" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\tvc.jpg")
End If
If Me.APARELHO = "Radio" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Radio.jpg") ' Nome da pasta com as fotos
ElseIf Me.APARELHO = "Ventilador" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Ventilador.jpg") ' Nome da pasta com as fotos
End If
If Me.APARELHO = "lcd" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\lcd.jpg")
End If

E esse no apos atualizar do campo,funciona,só tem que copiar o nome do aparelho certinho como ta,se estiver em maiúsculo e eu copiar em minusculo não da certo,tem como ignorar se é maiúsculo ou minúsculo.

If Me.APARELHO = "tvc" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\tvc.jpg")
End If
If Me.APARELHO = "Radio" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Radio.jpg") ' Nome da pasta com as fotos
ElseIf Me.APARELHO = "Ventilador" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Ventilador.jpg") ' Nome da pasta com as fotos
End If
If Me.APARELHO = "lcd" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\lcd.jpg")
End If

Sugiro que digites os nomes no vba com as iniciais em maiúsculo e faça também a conversão do campo "aparelho" para inicial maiúsculo colocando no evento pós atualizar desse campo essa linha: Me.APARELHO = StrConv([APARELHO], vbProperCase)

Ok Beto,resolvido obrigado mais uma vez.
Tudo de bom.

Saudações do fórum pelo retorno e fechamento do tópico.

Desculpa Beto mas aproveitando o assunto eu to usando esse código que vc me passou para quando eu inserir um nome de uma imagem que esta em uma pasta aparecer esta imagem,pois bem ta funcionando,mas não teria um outro código que fisese a mesma coisa sem ter que usar no Após Atualizar da caixa texto e no atual do formulario.Eu tenho muitas imagens, assim ficaria muito grande no código ou não teria importancia.



Após Atualizar
Private Sub APARELHO_AfterUpdate()
Me.APARELHO = StrConv([APARELHO], vbProperCase)
If Me.APARELHO = "Tvc" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Tvc.jpg")
End If
End Sub

No atual do formulário
Private Sub Form_Current()
If IsNull(Me.APARELHO) Then
Me.imagem3.Picture = ""
ElseIf Me.APARELHO = "Tvc" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Tvc.jpg")
End If
End Sub

Abç.

Cria uma função com o nome de Cap_Imagem, por exemplo, coloca os ifs (podes trocar pelo select case, já que são várias imagens) dentro da função e no evento após atualizar do campo "aparelho" e no atual do formulário chama a função:
Call Cap_Imagem

Beto seria essa da mensagem nº5 que me passou.
Não to conseguindo.

Kaynan, a função ficaria assim:

Function Cap_Imagem()
Select Case APARELHO
Case Is = "Tvc"
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Tvc.jpg")
Case Is = "Telefone"
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Telefone.jpg")
Case Is = "Computador"
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Computador.jpg")
Case Else
Me.imagem3.Picture = ""
End Select
End Function

e nos eventos que eu citei na msg anterior é só chamar a função:

Call Cap_Imagem

Beto coloquei a função no apos atualizar do campo aparelho que é uma combo onde eu escolho o aparelho a ser mostrado,e a chamada no atua do formulario.
Mas diz que ouve erro de compilação e que era esperado End Sub.
Se eu fecho e abro o formulario ai aparece a imagem,to fazendo algo errado.

posta os objetos

Veja Beto.


https://dl.dropboxusercontent.com/u/90217826/Osteste.rar

Estais colocando a função junto ao evento após atualizar da combo, a função tem que ficar fora e no evento após atualizar da combo coloca igual como colocastes no evento atual do formulário: Call Cap_Imagem

Perfeito Beto agora sim deu certo.
Beto se for preciso abro outro post,mas me diga tem como fazer um formulario só com o campo Aparelho pra cadastrar um aparelho que não esteja na combo,ou terei de ir colocando la na origem da linha da tabela.propriedades do campo, pesquisa.

Tens que colocar as figuras na pasta imagens e referenciá-las no select case para cada figura.

Bom dia Beto.As imagens estão na pasta certinho, oque me refiro é na combo Aparelho onde tenho o nome do aparelho,caso chegue um aparelho que não esteja cadastrado na combo,veja eu tenho que abrir a tabela REA8 no modo designe ir no campo Aparelho e colocar o nome na origem da linha da tabela.propriedades do campo, pesquisa.Tem como eu fazer um form para cadastrar o aparelho sem ter que fazer todas essas voltas.

Então, podes criar o formulário de cadastro dos aparelhos ou até mesmo ao digitar o nome e não tendo na lista da combo gravar direto na tabela, faz uma busca por esse tema que já tem alguns tópicos mostrando como fazer isso.

Beto não descobri esse código para quando digitar um aparelho na combo caso não tenha esse gravar na tabela RA8 campo Aparelho.
Se puder te deixo em paz por enquanto rsrs.

Kaynan tens que procurar minunciosamente, pois não lembro se é na sala de exemplos ou se é nos tópicos, aqui nesse siete tem como fazer, tanto para combo desacoplada como desacoplado.

http://msdn.microsoft.com/pt-br/library/office/ff845736(v=office.15).aspx

Beto com esse código grava na tabela mas não fica na combo.

https://dl.dropboxusercontent.com/u/90217826/Osteste.rar

Kainan, tens que criar uma tabela somente com o cadastro dos aparelhos para servir de alimentação a combo, pois falaste que são várias imagens e estais usando a combo como lista de valores, se continuar usando dessa forma terás que colocar o nome dos outro aparelhos na origem da linha da combo.

Valeu Beto consegui fazer oque queria,obrigado mais uma vez.

Ola Beto que ja estava me ajudando nesta lida ou outro colega.
Mudei a origem da linha pra outra tabela "Aparelho" e agora não consigo fazer com que apareça a imagem ao escolher o aparelho na combo,que estaria acontecendo gente.

https://dl.dropboxusercontent.com/u/90217826/Osteste.rar

Tens que mudar a origem da linha da combo para: SELECT DISTINCT [Código], [Aparelho] FROM Aparelho ORDER BY [Aparelho]; e mudar a função para.

Function Cap_Imagem()
Select Case APARELHO.Column(1)
Case Is = "Tvc14"
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Tvc14.jpg")
Case Is = "TVC20"
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Tvc20.jpg")
Case Is = "Receptor"
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\images.jpg")
Case Is = "Tvc Lcd"
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Tvc Lcd.jpg")
Case Is = "Furadeira"
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Furadeira.jpg")
Case Else
Me.imagem3.Picture = ""
End Select
End Function

Poxa amigo Beto voce é o cara, deu certinho,quando crescer quero ser igual a vc rsrsr.
Muito obrigado pela paciencia e dedicação de ajudar os menos entendidos.
Tenha uma boa noite e fica com Deus.
Obs.Que significa aquele "Case Else"