[Resolvido]Fotos em fomulário continuo

Olá amigos
Utilizo no meu sistema fotos para os clientes, e vi que no forum tem diversos exemplos, no entanto eu preciso que seja exibida a foto de cada cliente em um formulário continuo.
consigo fazer a operação em um relatório e no formulario simples. Porém no continuo to quebrando cabeça.
Modo de armazenamento: Tenho um campo na tabela que armazena o nome do arquivo e seu caminho.(o exemplo mais usado no forum)
versão do access: 2003

Abraços

Olá Sergio

Dê uma olhada nesse exemplo

Seria bom ler todo o tópico, para sanar possíveis dúvidas.

[ ]' s

Noob

Caro Noobezinho
Obrigado pelo retorno
Estudei todo o tópico e baixei todos os exemplos.
As maneiras informadas no formulário e no relatório eu ja utilizo.

Na minha dúvida postei que preciso que funcione em um formulário "continuo", ou seja, na tela ira aparecer 8 clientes , cada um com a sua devida foto.
Nos exemplos funcionam em relatório(ja utilizo desta maneira).
Os formulários dos exemplos são todos "simples", se os mesmos exemplos transformarmos em formulários contínuos não da certo.

Abraços

Sergio

1 - Se não tiver o Formulário contínuo, crie-o.

2 - Após colocar todos os controles, coloque um controle imagem.

3- Na Fonte do controle, do controle imagem (na folha de propriedades) digite o nome do campo que contem o caminho para a imagem.

   Caso não consiga colocar o nome do controle, coloque o cursor dentro da propriedade então  pressione  Shift+F2
   e digite o nome do controle na janela que se abre e de OK.

Caro Noobezinho
Obrigado novamente pelo retorno.

Para o controle do  tipo imagem não existe na propriedade a opção "Fonte do Controle", ele aceita apenas o caminho onde esta a imagem, para ficar fácil tentei fazer a adaptação do seu próprio exemplo, conforme ficou nas telas abaixo.

Veja:

Isso é um formulário contínuo:

Sergio - Clique aqui para ver as imagens:

Caro Noobezinho
pelo que percebi na tela versão do seu access é superior a 2003. E o meu é 2003, não tem esta propriedade.
em anexo o arquivo.
Abraços

Realmente meu amigo, problema de versões.

Infelizmente, não sei como ajudar no momento.

Vou pesquisar, se encontrar algo, retorno nesse tópico


[ ] 's

Noob

Sergio

Só para concluir esse tópico.

Pesquisei na net, e fotos em formulários contínuo somente com Access 2007 +.
Nessa versões como já sabe, o controle imagem tem a propriedade Fonte do registro.

[ ]'s


Noob

obrigado Noobezinho, sabia que nativo não havia nada minha esperança era, ou melhor, é encontrar uma alternativa

Abraços

Se é esse formulário é imprescindível, melhor migrar para o 2007 +

[ ]'s

Obrigado pelo retorno amigo
A migração no momento não é possível por questões internas, deverei migrar para o 2013 até o final de 2016, precisava do formulário funcionando antes disso.

Abraços

Olá a todos.
No 2003 é mesmo isso.
No entanto como é em formulário, será para consulta dos utilizadores.
Sei que não é o pretendido, mas pode ser uma solução.
Abraço

ExemploImgensForm2003.zip

Obrigado Amigo pela contribuição.
no meu caso preciso que todos sejam exibidos simultaneo.
Tive uma idéia de solução mas nao estou conseguindo colocar em prática:

Considerem que foto não está armazenada no meu banco, na verdade esta apenas o caminho da foto: exemplo: c:\fotos\luis.jpg
Considerem que trabalho com back e front end
Considerem que o máximo de registros a serem exibidos são 16

Pensei em colocar no Front end uma tabela local que receberia estes 16 registros do servidor.
Esta Tabela local terá um campo pára armazenamento da imagem, e não do caminho da imagem como no servidor
Depois de receber os 16 registros a imagem seria armazenada nesta tabela local.(Este é o desafio, fazer isso via código)

o Armazenamento de imagens no banco aumenta o tamanho consideravelmente, mas neste caso, seria apenas nos 16 registros consultados localmente.

Abraços

Olá, veja se ajuda a mensagem nº 3:
http://www.access-programmers.co.uk/forums/showthread.php?t=169056

Quanto à migração, verifique internamente, repare que a partir do 2007 o Runtime é gratuito e não obriga a licenciamento e pode manter os seus projectos na mesma em MDB/MDE.

Abraço

Obrigado pelo retorno amigo
Importante as colocações colocadas sobre o s 2007, agora não poderei trabalhar com ele ainda assim, sobre o exemplo estou estudando em cima, pra ver se consigo

Abraços

Sergio

Dei mais algumas pesquisadas, o que se pode fazer é

criar um relatório e exibi-lo no modo de visualização de impressão.

Desse modo irão aparecer todos os registros com as respectivas fotos.

Mas acredito que isso também não irá ajudar,pois creio que você gostaria

de manipular esses registro.


[ ]'s

Noob

Novamente Agradeço o Retorno

Você esta certo, onde diz que irei manipular os dados, então o relatório não funciona para mim. Obrigado

Abraços

Sergio

Tentando achar uma solução

Você pode instalar o Runtime do Access 2007 ou 2010 nos pc's da tua empresa?
Se sim, poderia desenvolver a aplicação no pc de tua casa  ou notebook e ...

[ ]'s

Olá Noob, tudo bom.
Concordo, acho que seria a solução mais rápida.
Aqui na empresa ainda esta tudo em 2003, mas num pc de administrador com w8, a solução foi essa runtime 2007 com sp2.
A aplicação continua a ser desenvolvida e compilada em 2003 formato MDB/MDE.
Pode ser necessário uns ajuste, mas facilmente controlavel pela versão a rolar.
Abraço a todos

Olá, entretanto fiz uma pesquisa pela net, veja se ajuda:
http://www.granite.ab.ca/access/imagehandling.htm
http://accdevel.tripod.com/imaging.htm
Abraço

Amigos Obrigado pelo retorno
Realmente nao posso abrir mão do 2003(nem com o runtime) porém no exemplo do ahTexieira http://accdevel.tripod.com/imaging.htm é mostrado como vincular a foto automático, irei tentar fazer esta adaptação.
Não sei se a foto incorporada no banco funciona a exibição, mas é o caminho que estou tentando.

Abraços

Olá, sim, já testei e funciona como pretende.
Acho é que o formato ao guardar tem que ser em BMP, mas confirme no formato que tem se não der teste colocar manualmente.
Abraço

Sergio, sinto dizer
Mas eu vi o que nosso amigo indicou, mesmo antes dele indicar.

Vejam bem
São ocx pagas que  irão funcionar por 30 dias (Trial).
Depois só pagando e os preços são salgados.

Como não vi tudo, pode ser que tenha algo "di gratis"

[ ]' s

Pessoal Obrigado
Voces estão fazendo um esforço grande, mas OCX paga fica um pouco dificil pra mim.
continuo batendo cabeça

Abraços

Olá Sérgio, o caminho é o que relatou na mensagem n.º 22 (http://accdevel.tripod.com/imaging.htm).

Ou seja a solução é mesmo:
1º Criar tabela temporaria com campos necessários e campo OLE para a imagem, de preferencia ligada para não "inchar" o seu front-end e ter que estar volta e meia a compactar.
2º Despejar imagens pretendidas para o form e dados.
3º Rectificar origem dos dados do seu form para a tabela temporaria.
Não sei qual é o formato das suas imagens, mas testei o campo OLE com BMP e funfou.
Abraço

Grande Amigo ahteixeira
Que legal, não estava aparecendo a imagem porque o formato que estava testando era jpg.
Com bmp funcionou perfeito, o grande desafio se tornou que as fotos são todas jpg


Obrigado

Olá Sérgio, aí vai, coloque antes de importar o ole

Código:

Private Sub jpg_para_bmp_Click()
Dim Pict As IPictureDisp
Set Pict = stdole.LoadPicture("C:\Temp\temp\rui.jpg")
stdole.SavePicture Pict, "C:\Temp\temp\rui.bmp"
End Sub

Abraço

Obrigado ahteixeira
Vou fazer os testes, na verdade estou agoniado pra fazer logo e agora onde estou não posso fazer.
Abraços Amigo

Caro Amigos

Fiz o teste o nosso amigo ahteixeira, para modificar a extensão do arquivo e funcionou perfeitamente, um arquivo de 143 kb(jpg), ficou com 900 kb(bmp) após a conversão.
Resolvi fazer um teste de renomear o arquivo usando o filecopy, o qual ficou com mesmo tamanho em jpg quanto em bmp. E por incrível que pareça no access funcionou a leitura do arquivo.

não consegui colocar em prática ainda mas esta aí uma devolução dos resultados

abraços

Sergio

Se puder colocar parte desse aplicativo onde está manipulando essa imagens, talvez a gente
pudesse ajudar.


[ ]'s

Noobezinho

Olá a todos.
Sérgio é só converter as imagens necessárias que vão ser incluídas no OLE temporario.
Deverá efectuar a conversao antes do passo nº 1 da mensagem nº 26.

Depois se poder postar o código do tratamento dos ficheiros, agradecemos.
Abraço

Quero Agradecer aos amigos ahteixeira e Noobezinho que me ajudaram neste desafio.
Funcionou como uma luva.
o procedimento foi sugerido pelos amigos
1º Cria uma tabela temporária com os registros que serao exibidas as fotos
2º Verifica se o arquivo de imagem é BMP, se não for renomeia
3º Vincula como objeto ole a foto (já em formato BMP)
4º exibe o formulario em formato continuo
5º ao fechar exclui todos os dados da tabela temporária, para não ficar pesado o front and

Comando que vinculou o objeto ole
Me![nomedocampofoto].OLETypeAllowed = acOLEEmbedded
Me![nomedocampofoto].SourceDoc = nomedoarquivobmp
Me![nomedocampofoto].Action = acOLECreateEmbed


Obrigado a Todos


Abraços

Olá Sérgio, obrigado pelo retorno e partilha do código.
Abraço

ahteixeira

Como foi o mentor da ajuda da qual foi solucionado o tópico,
sugiro que faça um exemplo para colocar no repositório
do fórum.

Olá Noob,
De momento estou acabar um projecto que tenho atrasado para entregar.
No entanto, se o colega Sérgio não disponibilizar pequeno exemplo da técnica deste tópico, fica prometido da minha parte assim que possível.
Abraço a todos.

Caro ahteixeira
Monto um exemplo sim com o maior prazer. como meu sistema é especifico vai levar um tempinho pra bolar, mas faço este compromisso
Abraços

Obrigado Amigo Sérgio.
Noob de uma forma ou outra, vamos ter exemplo.

Ótimo Pessoal

A intenção é enriquecer o fórum, já que muita gente ainda usam o Acess 2003,
seja por qual motivo.
Assim, poderão encontrar esse exemplo, já que na internet até onde procurei
não existe.

Abraços aos dois

Amigos
Desculpe a Demora em publicar o exemplo.
Mas acredito que não pode ser publicado na sala de exemplos pois não está funcionando corretamente.
Fiz o projeto conforme ajuda dos meus amigos e funcionou perfeitamente no meu notebook, porém quando fui colocar no "Cliente" funcionou apenas em 2 computadores, nos outros 5 não funcionou. Aparece apenas um ícone da imagem.
removi e instalei o office 2003 com todos os recursos e ainda assim não funcionou.
O exemplo que criei aqui para o fórum é da mesma maneira, em alguns funcionam em outros não.

obs.: o exemplo tem que ficar na unidade C:

Abraços

Olá Sérgio, ainda não vi exemplo, estou no telemovel, mas para despistar deverá ver as versões e service Pack instalado para tentar verificar o que se passa.
Não sei como está a fazer a cópia, mas num dos meus postes usa uma biblioteca que normalmente instala por defeito, não sei o nome de momento,mas acho que é "stole".
Tente ver as referências que o seu projecto utiliza.
Abraco

Obrigado pelo retorno amigo ahteixeira
Sobre a versão do office, todas utilizam o mesmo, sem service pack.(11.5614.5606)
sobre esta parte que você comentou eu não entendi
"Não sei como está a fazer a cópia, mas num dos meus postes usa uma biblioteca que normalmente instala por defeito, não sei o nome de momento,mas acho que é "stole""
Os Front And são idênticos, por segurança chequei em um modulo VBA as referencias, que estão todas iguais, inclusive com a opção "ole automático" ativado


Abraços

Ola, sou da opinião de instalar o servicepack , num dos que não estiver a funcionar.
Só para despistar.
Quanto à psrte que não percebeu, ignore, ja vi o seu exemplo e utiliza o filecopy.
De momento não tenho tempo, ficou a "piscar" assim que possa, vou tentar fazer de outr maneira.
Abraço

Caro amigos
Fiz o procedimento do nosso amigo ahteixeira de instalar o service pack 3 do office 2003. Porém não funcionou.
Em alguns estudos que fiz vi que poderia ser a ausência do Photo Editor(consta esta mesma resposta em alguns fóruns e no site da Microsoft), também não tive êxito.
No principio deste post, parecia que não tinha solução e conseguimos. Agora este desafio parece que esta mais dificil.

Abraços

Ola, verifi entre pc que funciona e pc que não funciona:

A) instalaçao de programas do office adicionar/alterar/remover , fazer alterar e comparar as funcionalidades instaladas.

B) comparar programas instalados da Microsoft, verifica em especial o "o Microsoft compatibility..." Que permite abrir documentos (docx e xlsx) com office 2003.

Força ai.

Abraço

Caro ahteixeira obrigado pelo retorno
Todas as instalações office 2003 foram feitas completas, todas as ferramentas, justo temendo que isto poderia acontecer.
o "Microsoft compatibility.."não o conhecia, vou me atentar a ele, embora por ter sido completa ele deve estar instalado.

Abraços

Olá, hoje arranjei um pouco de tempo e estive a tentar fazer exemplo.
A minha ideia era fazer o processo todo por código.
No entanto nos exemplos que tentei não consigo colocar a imagem no campo OLE de forma que depois seja visualizado no form.
Segue abaixo exemplo do meu teste,não se aplica para este tópico:

Código:

Private Sub cmdTeste_Click()

Call fncCriarLigarTmp
DoEvents

Dim db As Database
Dim RS1, RS2 As Recordset
Dim strFicheiro, strImagens, strTmpPath

Set db = CurrentDb
Set RS1 = db.OpenRecordset("tbl_clientes")
Set RS2 = db.OpenRecordset("tbl_tmpFotos")

'definir caminhos
strImagens = Application.CurrentProject.Path & "\Imagens\"
strTmpPath = Environ$("Temp") & "\"

    'percorre registos de clientes
    If RS1.RecordCount <> 0 Then
        RS1.MoveFirst
        Do While Not RS1.EOF
            'verifica se tem ficheiro de imagem
            If Dir(strImagens & RS1.Fields(2)) <> "" Then
              FileCopy strImagens & RS1.Fields(2), strTmpPath & "tmp" & RS1.Fields(0) & ".bmp"
                   
                    RS2.AddNew
                    RS2.Fields(0) = RS1.Fields(0)
                    RS2.Fields(1) = strTmpPath & "tmp" & RS1.Fields(0) & ".bmp"
                    RS2.Update
            End If
            RS1.MoveNext
        Loop
   
    End If
   
    RS2.Close
    RS1.Close
    db.Close
    Set db = Nothing

End Sub

Vou adaptar o exemplo com base na solução do colega sergio, abrindo primeiro um form escondido para carregar os dados.
Abraço

Olá, conforme prometido, segue abaixo exemplo.
Neste exemplo a tabela temporária é criada numa base de dados à parte para não "inchar" o Front_end

Sérgio, relativamente aos postos que não está a dar, poderá ser algum erro de caminho.
Verifiquei no seu exemplo que tem "On error resume next", para despistar e verificar o que se está a passar, será melhor retirar e colocar algum tratamento de erros.
Acho que o problema pode estar nas configurações do caminho das imagens.
Abraço

ExemploImgensFormV2.zip

Atualizado com exemplo MS Photo Editor (mensagem nº 60)

Obrigado pelo retorno ahteixeira
Estive viajando final desde sexta, vou fazer os testes e devolvo o resultado

Abraços

Caro amigo ahteixeira
Obrigado pelo exemplo, fiz os testes e não funcionou. ficou da mesma forma do exemplo que eu havia publicado, ou seja, no computador que funciona o meu exemplo funciona o seu, e o no computador que não funciona o meu, também não funciona o seu exemplo.
É perceptível que seu exemplo, nos computadores que funciona ele demora um pouco a processar, já nos computadores que não funciona é muito mais rápido.

Conforme sugestão do amigo retirei o next no tratamento de erro pra ver se ele apontava qual era erro, mas não aconteceu nenhum erro nos códigos

Abraços