Sempre dê preferência a sites com Certificados de Segurança.
O CERT.BR informou a corrência de 39.419 tentativas de fraudes o ano de 2019, representando 87% das notificações referentes a esta categoria. Sempre dê preferência a sites que apresentem Certificados de Segurança válidos e expedidos por unidades certificadoras. Na barra de navegação, os sites deste tipo iniciam os endereços por “https://”, aparecendo no lado esquerdo a imagem de um cadeado. Ao clicar no cadeado é possível visualizar os dados da unidade certificadora que garante a autenticidade do site visitado. Cuidado com os certificados “auto assinados”, pois não existe uma unidade certificadora por trás. Portanto, nenhum órgão garante sua confiabilidade. Também é possível um site iniciar por “https://”, pertencendo legitimamente a algum órgão ou instituição com o certificado expirado. Neste caso, procure se informar da legitimidade do serviço que você deseja. Tanto os “auto assinados” quanto os expirados são exibidos na respectiva barra de navegação com uma informa...
Comentários
O procedimento descrito na minha postagem, se, como você disse realizou todo o procedimento, deve ter observado que o campo de nome "caminho" recebe um valor automaticamente, conforme postei: Me.caminho.Value = “C:\fotos\” & N & “.jpg”, onde apenas "N" recebe um valor variável (N = id), querendo dizer que "N" recebe o valor do campo "id". Então, voltando a string “C:\fotos\” & N & “.jpg”, observe que ".jpg" é a extensão que a imagem vinculada deverá ter, sendo diferente de ".jpeg", conforme seu comentário. Assim, tente salvar novamente a imagem em ".jpg", ou altera a citada linha para a extensão de imagem que você queira utilizar (jpeg, png, gif, bmp etc).
Espero ter compreendido seu problema e tenha respondido a contento. Continuo no aguardo para mais detalhes.
Um forte abraço e até a próxima.
Aguardo ancioso por esta resposta. Um cordial Abraço!
Juliano
Aguardo ancioso o post deste!
Um cordial abraço!
Juliano
Desculpe mas não entendi qdo vc disse sobre imprimir todos os forms gerados? A imagem colocada no formulário ela é dinâmica, se alterando de acordo com a modificação da variável N, que recebe o valor do campo Id, q por sua vez é único para cada registro. Assim, cada vez q um formulário é aberto, se altera a imagem vinculada. Talvez esteja faltando apenas o entendimento quanto a empregabilidade. Uma solução seria, deve ser testado para confirmar, a colocação do campo caminho no formulário gerado para a exibição dos dados, fazendo q a imagem dinâmica procure a imagem correspondenter e não a geral. Apenas uma idéia. Retorne por favor.
Abraços!
não sei se recebeu meu mail, mas em todo caso estou postando de novo...
Na verdade é o seguinte, fiz um sisteminha de impressão de crachás e estava incorporando a imagem com um objeto OLE . criei uma macro para imprimir todos os crachas gerados e como a imagem está incorporado ele imprime para cada registro a foto correspondente.
Seguindo seu totorial, vi que realmente é a maneira mais correta em se tratando de banco de dados. O caminhao está certo, pois qdo visualizo e ando nos registros, ele muda as fotos de acordo com o caminho cadastrado no banco de dados. Ex.: funcionário 1, o caminho da foto é "c:\fotos\1.jpg", até ai tudo bem; mas suponha que tenha populado com uns 10 registros (1,2,3...10.jpg), pra visualizar beleza, dá tudo certinho, mas quando mando imprimir ele imprime os 10 registros com uma mesma foto, geralmente a que estou visualizando no momento da chamada da impressão. Não sei se fui claro, mas se puder ajudar...
no mais, mais uma vez agradeço pela atenção e um cordial abraço!
Juliano
Queria-lhe dar os parabéns por um artigo muito bem escrito.
Recentemente fui confrontado com o problema das bases de dados com imagens ole dependentes e que crescem muito rapidamente. Sendo assim, fui obrigado a fazer as coisas bem, feitas. No seu artigo, há algo que não compreendo muito bem qaando diz "....Me.image.picture = Me.caminho ‘procedendo a substituição da imagem qualquer que estiver no formulário pela respectiva do registro armazenada na pasta “C:\fotos\”...muito bem, eu procedo à substituição directa da imagem, no entanto quando tento acrescentar um registo, o access me informa que "O Microsoft Access..não consegue abrir o ficheiro \.......jpg" que está na nossa rede: portanto o caminho será algo tipo \\server2k\fotos
O que será que estou fazendo mal?
Já funciona! Era um problema de extensão de ficheiro. O meu unico problema é que após a a validação do registo, assim que salto para um novo registo, o access exibe a mensagem: Run Time Error 94. Invalid use of Null. Existe solução? Mais uma vez obrigado.
Com relação a msg de erro é porque existe algum campo que não está se atualizando e esta ficando vazio. Assim, sugiro que revise as rotinas do sistema, principalmente se está sendo criado um Id (identificador) que é usado para vincular a foto com o registro.
Abraços e retorne os resiltados por favor.
Acho que é a mesma dúvida do Juliano, é necessário fazer algum código no relatório? Se for pode me passar?
Agradeço muito obrigada.
Cileide
Parabens por este seu esclarecimento, esta optimo, e da muito jeito ;)
Isto é possivel para para Pdf?
Eu tentei fazer com abrir uma aplicação ( abrir o AcrobatReader ) Depois inseri o caminho da pasta onde estao os Pdf, mas ele diz q nao encontra :\
Será q da para fazer ?
Codigo:
Dim stAppName As String
Dim N
N = Numero_AITPDF(Nome do ficheiro que pretendo)
stAppName = "\\server\Documentos\Gerais\- Obras EDP -\TET-MT-Lig\READER\AcroRd32.exe \\server\Documentos\Gerais\- Obras EDP -\TET-MT-Lig\AIT" & N & ".pdf"
Veja se me pode dar aqui uma ajuda.
Obrigado
image.picture=me!caminho
lembrando que "image" é o nome do nosso campo onde a imagem será colocada e "caminho" o endereço onde está.
Abraços
Private Sub CmdAbrir_Click()
On Error GoTo fim
Set fs = Application.FileSearch
With fs
.LookIn = Me.Paste
.FileName = Me.ANEXO & ".pdf"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " arquivo encontrado com Sucesso. ", , "Ok"
For i = 1 To .FoundFiles.Count
Dim arquivo As String
Dim dir1 As String
Dim doc1 As String
dir1 = Me.Paste & "\"
doc1 = Me.ANEXO & ".pdf"
arquivo = dir1 & doc1
Application.FollowHyperlink arquivo
Next i
Else
MsgBox "Nenhum Arquivo com esse Nome.", , "Erro"
End If
End With
fim: Exit Sub
End Sub
Mas atenção, vc deve criar dois campos ocultos em seu formulário, um de nome "paste" e outro "ANEXO", sendo o primeiro para quardar o local de origem dos pdf e o segundo o nome do mesmo. No mais é tranquilo.
Abraços!
Achei seu post...e preciso exatamente disso so que tenho...uma tabela vinculada a um formulario que estão vinculados a um relatorio, o formulario abastece a tabela e preciso imprimir usado o relatorio atravez de uma consulta...até beleza tranquilo...o problema e que preciso pegar uma imagem de uma pasta, vicular a um campo da tabela e puxar para o relatorio...ai q o chico chora...pode me dar um help ?
Agradeço e fico no aguardo...
Encontrei seu post...e preciso de uma luz...tenho uma tabela vinculada a um formulario...e a um relatorio...ai que esta o problema...preciso vincular uma imagem a um codigo de produto dentro desta tabela...mas to apanhando demais...por favor...pode me ajudar ?
Abraço e aguardo retorno!
Então tenho um "sistema" que criei para minha empresa...assim é bem amador...e estou tentando desenvolver uma ferramenta para auxiliar na emissão de alguns relatorios para determinados produtos, vamos ver se consigo te explicar o que está acontecendo.
Tenho a seguinte situação
Uma tabela
Um formulario que é atrelado a essa mesma tabela para abastecimento de dados;
E um relatorio que é atrelado a tabela tbm.
Gostaria de fazer o vinculo das imagens criadas nessa tabela atraves do formulario aparecessem no relatorio quando esse fosse acionado.
Tentei aproveitar de todas as formar sua explicação para adaptação ao meu caso...sem sucesso
pq exitem momentos que não sei onde faço os comando no VB se no formulario ou no relatorio...
Bom primeiro agradeço muito seu retorno e aguardo ancioso seu retorno...forte abraço ao amigo !
Acho que não deu tempo de vc ler meu post de ontem, mas, assim nem se preopupe em responde-lo, prestei mais atenção em alguns pontos...e finalmente consegui fazer funcionar !!! Estou muito feliz com meu feito...feito esse que sem sua generosidade de compartilhar seus conhecimentos nada tinha conseguido, agradeço muito a ajuda do amigo !!! E tenho certeza que um mundo melhor se constroi com atitudes iguais as suas...sucesso a vc amigo !!!
Satisfação novamente amigo. Realmente, apenas agora vi suas duvidas e que bom que conseguiu atingir seu objetivo. Sei que tudo parece difícil mas qdo se compreende a idéia tudo se resolve.
Parabéns e fico feliz em poder colaborar, pelo menos, difundindo o pouco que aprendi nesses anos de luta.
Abraços.
Este seu artigo esta muito bom e até eu que sou principiante nestas matérias consegui utilizar com sucesso.
Preciso apenas de uma pequena ajuda que dentro das minhas limitações vou tentar explicar:
Na minha BD por vezes insiro registos dos quais ainda não tenho foto e acontece que quando entro nesses registos aparece um erro pois na pasta das fotos não existe nenhuma com o nome daquele Id.
Pretendia saber como posso fazer para que quando entre nos registos onde ainda não há foto não apareca qualquer erro e no sitio da foto não apareça nada , ou apareça "sem foto" ou um "X", ou "no image" etc.
Espero que me tenha conseguido explicar.
Cumprimentos, Vitor.
O seu artigo esta muito bom, até eu que sou principiante nestas materias consegui utilizar com sucesso.
Preciso apenas de uma pequena ajuda que vou tentar explicar:
Na minha BD por vezes insiro registos dos quais ainda não tenho foto e como tal assim que entro nesses registos apareçe um erro visto não existir nenhuma foto para aquele Id.
Como é que eu posso fazer para eliminar esse erro e para que quando entro em registos que não tenham foto apareça qualquer coisa do genero "sem imagem" "no picture" ou não apareça mesmo qualquer imagem.
Cumprimentos, Vitor
O seu artigo esta muito bom, até eu que sou principiante nestas materias consegui utilizar com sucesso.
Preciso apenas de uma pequena ajuda que vou tentar explicar:
Na minha BD por vezes insiro registos dos quais ainda não tenho foto e como tal assim que entro nesses registos apareçe um erro visto não existir nenhuma foto para aquele Id.
Como é que eu posso fazer para eliminar esse erro e para que quando entro em registos que não tenham foto apareça qualquer coisa do genero "sem imagem" "no picture" ou não apareça mesmo qualquer imagem.
Cumprimentos, Vitor
Dim N
N = id
Me.Caminho.Value = “C:\Cadastro de Orquideas\fotos orquideas” & N & “.jpeg” está ocorrendo o seguinte erro:
Erro de compilação:
era esperado: numero de linha ou rotulo ou instrução ou fim da instrução
Será que vc poderia me ajudar a corrigir ou encontrar o erro?
Obrigado!
Private Sub Nome_AfterUpdate()
Dim N
N = Nome
Me.Caminho.Value = "C:\fotos\" & N & ".jpg"
Me.imagem.Picture = Me!Caminho
End Sub
Abraço
Anderson
Picture1.Picture = LoadPicture("Z:\Fotos\1.bmp")
Ao passar o mouse sobre "Picture1.Picture" aparece a legenda:
Picture1.Picture = "(nenhuma)"
Isto acontece com imagem bmp e jpg. Já com png, informa erro 481: Figura inválida.
Será que precisa adicionar alguma biblioteca, fazer alguma declaração a mais no código.
Não sei mais o que fazer.
Na linha de código:
Picture1.Picture = LoadPicture("Z:\Fotos\1.bmp")
Substitui por:
Picture1.Picture = "Z:\Fotos\1.bmp"
A imagem apareceu normal.
Na linha de código:
Picture1.Picture = LoadPicture("Z:\Fotos\1.bmp")
Substitui por:
Picture1.Picture = "Z:\Fotos\1.bmp"
A imagem apareceu normal.
Um abraço.
Wanderson
Sou iniciante e aprendendo através de consultas na internet. Faz já um tempo q preciso inserir imagem no cadastro e nada q encontrei ate agora deu certo. O mais perto q cheguei foi com sua explicacao, muito clara alias, portando está aparecendo a seguinte msg:-) Erro de compilacao: metodo ou membro de dados nao encontrado. Por favor, o que stou fazendo errado. desde ja agradeco pela sua generosidade em compartilhar seu conhecimento. Abc
Valeria Gomes