[Resolvido]Imagem de qualquer extensão.

Boa noite amigos.
Bom, dei uma ajuda a um de nossos colegas sobre puxar imagem no formulário, mas tem que ser somente de uma extensão.
Eu quero saber com puxar de qualquer extensão, ou seja, não precisa especificar para o código que tem quer, independente da extensão puxar a imagem.
Fiz esse código aqui, mas fica um trabalho danado achar ou converter a imagem para jpg

Código:

Private Sub txt1_AfterUpdate()
Dim caminhoDaFoto
caminhoDaFoto = "C:\" & Me.txt1 & ".jpg"  
If Len(Dir(caminhoDaFoto) & "") > 0 Then
   Me.img1.Picture = caminhoDaFoto
Else
   Me.img1.Picture = ""
   MsgBox " A figura não está na pasta"
End If
End Sub

Basta trocar

isso
caminhoDaFoto = "C:\" & Me.txt1 & ".jpg"

por isso
caminhoDaFoto = dir$("C:\" & Me.txt1 & ".*")

Assim, um arquivo com o nome indicado será retornado, independente da extensão. Contudo, há o risco de não ser um arquivo válido para imagem.

Por exemplo, apontar c:\minhaPasta\televisão.* pode dar problema se existir mais de um arquivo com o mesmo nome nessa pasta: televisão.mp3, televisão.jpg, televisão.exe, televisão.ico, televisão.docx. etc

Como o código saberia qual arquivo retornar?

ele não esta retornando a imagem diz que não existe a foto

Mostre como ficou o código que você adaptou.

Código:

Private Sub txt1_AfterUpdate()
Dim caminhoDaFoto
caminhoDaFoto = Dir$("C:\" & Me.txt1 & ".*")
If Len(Dir(caminhoDaFoto) & "") > 0 Then
  Me.img1.Picture = caminhoDaFoto
Else
  Me.img1.Picture = ""
  MsgBox " A figura não está na pasta"
End If

Código:

Private Sub txt1_AfterUpdate()
Dim caminhoDaFoto
caminhoDaFoto = Dir$("C:\" & Me.txt1 & ".*")
If Len(caminhoDaFoto) > 0 Then
Me.img1.Picture = "C:\" &  caminhoDaFoto
Else
Me.img1.Picture = ""
MsgBox " A figura não está na pasta"
End If

Uma explicação Damasceno
Se a foto já está sendo importada no caminhoDaFoto que já está todo o local feito, porque tem que concatenar mais uma fez com o C ?

A função dir no código verifica que há um arquivo na pasta indicada, se houver, ela retorna só o nome do arquivo, retirando o caminho completo, por isso é preciso indicar o caminho completo de novo.

Vamos linha a linha

Código:

a linha abaixo é a declaração do procedimento/função'
Private Sub txt1_AfterUpdate()

'a linha abaixo cria uma variável dentro do procedimento
Dim caminhoDaFoto

'a linha abaixo, com a função dir, verifica se existe algum arquivo com o nome que atenda
'aos critérios juntamente com o uso do coringa asterisco, se existir, retorna apenas o nome do arquivo
'para ser armazenado na variável caminhoDaFoto
caminhoDaFoto = Dir$("C:\" & Me.txt1 & ".*")

'a linha abaixo verifica o comprimento da variável caminhoDaFoto,
'se for maior que zero, isto é, se algo foi atribuido a ela, então
If Len(caminhoDaFoto) > 0 Then

'aqui, na linha abaixo, como eu tenho na variável caminhoDaFoto apenas o nome do arquivo, e não mais o caminho completo
'preciso então remontar o caminho completo
Me.img1.Picture = "C:\" &  caminhoDaFoto

'senão, isto é, se a variável caminhoDaFoto não tem comprimento maior que 0
'então ela não recebeu nenhum valor, pois não existiu arquivo no diretório que atendesse
'aos critérios aplicados juntamente com o coringa asterisco
Else

'então com a linha abaixo limpo qualquer caminho de imagem apontado para o controle img1
Me.img1.Picture = ""

'e aqui emito uma mensagem
MsgBox " A figura não está na pasta"

'aqui o fim da estrutura condicional que verificou o comprimento da variável caminhoDaFoto
End If

Entendi.
O coringa eu tentei refaze-la de várias formas, mas ela só foi útil pelo $ da dir.

Entendi.

Mas enfim, o código sugerido resolveu? Consegue puxar qualquer extensão?

Resolveu, obrigado pela atenção

Boa noite, Damasceno não consigo abrir a imagem
se eu colocar Dim caminhoDaFoto
caminhoDaFoto = Dir$("C:\Controle de Mesa\icon\" & Me.nomeDocampo & ".*") ele não abre a imagem
caminhoDaFoto = Dir$("C:\Controle de Mesa\icon" & Me.nomeDocampo & ".*") ele não abre a imagem
Se eu remontar o caminho ele não consegue abrir o C
sendo que estão no mesmo caminho e consegui abrir no anterior, mas agora o mesmo dá erro

A variável pega a imagem, mas não coloca no lugar

Código:

Dim caminhoDaFoto
caminhoDaFoto = Dir$("C:\Controle de Mesa\icon\" & Me.nomeDocampo & ".*")

If Len(caminhoDaFoto) > 0 Then
  Me.quadroDaFoto.Picture = caminhoDaFoto
Else
 
End If
End Sub


Mudando de códigos e voltando para o mesmo e não funciona.

Não, amigo, você não voltou para o mesmo.

Seu código atual é:

Dim caminhoDaFoto
caminhoDaFoto = Dir$("C:\teste" & Me.nomeDocampo & ".*")

If Len(caminhoDaFoto) < 0 Then
 Me.quadroDaFoto.Picture = "c:\" & caminhoDaFoto
Else
Me.quadroDaFoto.Picture = "c:\" & caminhoDaFoto

End If

Observe que você usa um sinal com símbolo de menor.
E também não há uma barra após a palavra teste.

Não conheço sua estrutura de arquivos aí, mas certamente "teste" é uma pasta, sendo assim, precisa ter uma barra para diferenciá-la como pasta.

caminhoDaFoto = Dir$("C:\teste\" & Me.nomeDocampo & ".*")

Boa Trade, então, mesmo usando o sinal de maior somente com o C ou com uma sub pasta ele não funciona

Desisto. Aguardemos que outro membro veja o que não estamos vendo.

Bons estudos, boas práticas.

up

Projeto refeito e entendido o motivo do erro.

o fórum agradece o retorno. Sucesso.