Início
Kaynan Qui 21 Out 2021, 23:18Ola pessoal,neste exemplo tem como eu digitar o nome da imagem e ela ja aperecer,do jeito que esta eu tenho que digitar ocaminho dela.
Obrigado.
dropbox.com/s/h6s2fcrmvy9gip5/foto.rar?dl=0
Obrigado.
dropbox.com/s/h6s2fcrmvy9gip5/foto.rar?dl=0
3 participantes
[Resolvido]Carregar imagem ao clicar enter.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 08/04/2012
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
Acompanhando o tópico, o que tenho aqui naonsei pq funciona
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 21/11/2016
As imagens e os nomes estarão sempre no mesmo caminho e terão sempre o mesmo formato?
Se sim, basta que seu código monte o caminho completo após você informar o nome.
"C:\PastFixa\" & me!ControleComNomeQueInformei & ".jpg"
Não há segredos.
Se sim, basta que seu código monte o caminho completo após você informar o nome.
"C:\PastFixa\" & me!ControleComNomeQueInformei & ".jpg"
Não há segredos.
.................................................................................
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.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 08/04/2012
Ola Damasceno.
Fiz assim mas não funcionou.
Private Sub nomeFoto_AfterUpdate()
Dim strCaminho As String, strPastaInicial As String
strCaminho = Buscar(Me.Hwnd, "Inserir foto", strPastaInicial, _
Arquivos gráficos (*.jpg; *.png)" & vbNullChar & "*.jpg; *.png")
If Len(strCaminho) > 0 Then
Me.localfoto = strCaminho
Me.localfoto = Me.localfoto
End If
Fiz assim mas não funcionou.
Private Sub nomeFoto_AfterUpdate()
Dim strCaminho As String, strPastaInicial As String
strCaminho = Buscar(Me.Hwnd, "Inserir foto", strPastaInicial, _
Arquivos gráficos (*.jpg; *.png)" & vbNullChar & "*.jpg; *.png")
If Len(strCaminho) > 0 Then
Me.localfoto = strCaminho
Me.localfoto = Me.localfoto
End If
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 21/11/2016
Anexe um exemplo.
.................................................................................
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.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 08/04/2012
dropbox.com/s/e9qgnb09zi1bzf4/foto.rar?dl=0
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 21/11/2016
Como dito, sem segredos.
- Anexos
![[Resolvido]Carregar imagem ao clicar enter. Attachment](https://2img.net/i/fa/attachment.png)
exCargaFotoAutomaticamente.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (218 Kb) Baixado 30 vez(es)
.................................................................................
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.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 08/04/2012
Damasceno sera que é eu que to ruim do "zóio" mas não ta fazendo nada esse ex.
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 21/11/2016
Abra o formulário, adicione o nome da foto (ex: foto3) e tecle enter que ela será carregada no devido controle.
.................................................................................
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.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 08/04/2012
Realmente,mas só funciona com jpg né ,e poderia me dizer o que foi feito pra funcionar com jpg.
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 21/11/2016
Explore. Confira a propriedade fonte do controle de onde a imagem aparece. Foi colocado a parte fixa que disse nas mensagens anteriores, só ajustei para que detecte o caminho atual do arquivo.
Para qualquer formato, tire o ".jpg" da fonte do controle e então o usuário também terá que informar, além do nome, o formato do arquivo.
Para qualquer formato, tire o ".jpg" da fonte do controle e então o usuário também terá que informar, além do nome, o formato do arquivo.
.................................................................................
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.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 08/04/2012
Perfeito amigo,aprendi mais uma,muito obrigado por tudo.
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 21/11/2016
O fórum agradece o retorno. Sucesso.
.................................................................................
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- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
o meu continua a dar problema.
Access não pode abrir o arquivo
Access não pode abrir o arquivo
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 08/04/2012
Crys...vc baixou o exemplo mas não consegue abrir é isso?
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
refeito.
Consegui aqui.
Consegui aqui.
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
Conteúdo patrocinado
Tópicos semelhantes
