MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Imagem de qualquer extensão.

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Imagem de qualquer extensão.

    Mensagem  crysostomo 24/7/2021, 00:31

    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


    Última edição por crysostomo em 14/8/2021, 01:27, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3066
    Registrado : 22/11/2016

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  DamascenoJr. 24/7/2021, 02:46

    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?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  crysostomo 24/7/2021, 02:58

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3066
    Registrado : 22/11/2016

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  DamascenoJr. 24/7/2021, 03:08

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  crysostomo 24/7/2021, 03:11

    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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3066
    Registrado : 22/11/2016

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  DamascenoJr. 24/7/2021, 03:15

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  crysostomo 24/7/2021, 03:19

    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 ?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3066
    Registrado : 22/11/2016

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  DamascenoJr. 24/7/2021, 03:36

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  crysostomo 24/7/2021, 03:53

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3066
    Registrado : 22/11/2016

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  DamascenoJr. 24/7/2021, 03:55

    Entendi.

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  crysostomo 24/7/2021, 03:56

    Resolveu, obrigado pela atenção


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  crysostomo 14/8/2021, 00:47

    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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  crysostomo 14/8/2021, 02:58

    Mudando de códigos e voltando para o mesmo e não funciona.
    Anexos
    Imagem de qualquer extensão. AttachmentPuxando foto de qualquer extensão.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (105 Kb) Baixado 6 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3066
    Registrado : 22/11/2016

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  DamascenoJr. 14/8/2021, 04:16

    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 & ".*")


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  crysostomo 14/8/2021, 20:58

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3066
    Registrado : 22/11/2016

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  DamascenoJr. 14/8/2021, 21:30

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

    Bons estudos, boas práticas.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1814
    Registrado : 23/01/2018

    Imagem de qualquer extensão. Empty Re: Imagem de qualquer extensão.

    Mensagem  crysostomo 19/8/2021, 22:53

    up


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 23/9/2021, 01:41