[Resolvido]Vincular fotos via código

boas tardes
tenho uma bd em acess2003 com o peso de cerca de 700mb, tudo por causa de ter fotos incorporadas pelo metodo OLE
a duvida que ponho aos vossos conhecimentos, e pelo que já consegui entender no que li,é que poderei dividir a bd em diversas bd´s ( tipo back-end e front-end).
qual as vossas opiniões.
aguardo

mirsofy

Sugiro não dividi-la a menos que ela tenha muitos campos que podem virar outra, como datas por exemplo. Dividindo-a ou não o tamanho não vai mudar. Sugiro fazer uma revisão das fotos utilizando um programa de miniaturas que reduz os arquivos para mais ou menos 1 kb.
Fiz um sistema aqui na empresa para o RH e caí nesse pepino. Ficou enorme o arquivo mbd. Usei esse programa e o tamanho diminuiu mais de 50%. Se quiser ele me dê um toque.

boas
e grato pela rapidez
agradecia então se não for abuso a disponibilização da tua bd
aguardo
mirsofy

Bom dia Manuel;

Veja em todos os tópicos que temos aqui, que nunca se deve incorporar as imagens, deve coloca-las numa pasta e por código relaciona-las, assim o seu banco passará a ficar sempre pequeno em peso.

http://www.google.com/search?hl=pt&as_q=&as_oq=fotos&as_sitesearch=maximoaccess.forumeiros.com

boas jpaulo
já em diversas vezes tentei e foi-me ajudado com exemplos a tentativa de corrigir este meu problema.
a bd que tenho necessidade de consultar tem em media de movimento cerca de 600 pessoas que tem a obrigação de ter incorporado a respectiva foto,tem entre outras funcionalidades a saida de um relatório com fotos e numca consegui por a dar como deveria ser.
esta a razão desta minha questão
a base está a ter o problema de aumentar com o decorrer do tempo.
mirsofy

http://dl.dropbox.com/u/58104242/ficha%20com%20fotos.rar

se puderem verificar o que estou a fazer mal e corrigir agradeço
mirsofy

pessoal
ainda preciso de ajuda
aguardo
mirsofy

Ola Manuel bom dia !

A título de curiosidade, tenho um banco com fotos de funcionarios, que tem (1) um milhão e duzentos mil registros, e apenas tem 812 Megas, porque apenas se armazena o caminho.

O Ms Access pode ir até 2 Gigas.


Agora vamos ao que interessa;

Duas questões importantes para o seu projeto;

1º O objecto OLE que você inseriu no relatorio, faz com que o banco cresça e muito, eu alterei para ObjectImagem.

2º O seu banco deve estar com o Compactar ao fechar ligado.

Fiz modificações no seu relatório, veja os códigos e como está a funfar blz.

https://dl.dropbox.com/u/771097/ficha%20com%20fotos_OLD.rar

Nota:
Eu marquei a referencia VBA, Microsoft Office 12.0 Object Library, porque o meu Office é o 2007, altere para o seu.

grato jp
vou testar depois digo como está
mirsofy

Valew, aguardo.

http://dl.dropbox.com/u/58104242/Fichas.rar

depois de adicionar a bd original continua a nao dar
no formulário funciona como sempre funcionou, agora quando quero o relatório não aparece as fotos que adiciono
envio a base com 3 fotos para teste
aguardo apoio
mirsofy

Fiz algumas modificações para ver sem funfa ao seu gosto;

No código do getfile, alterei para inserir na tabela apenas o nome da foto;

Me![PastaFoto].Text = Mid(fileName, InStrRev(fileName, "\") + 1)

001.jpg, 002.jpg, etc....

No currente do formulario, alterei para ir buscar a imagem na PastaFotos que deve estar sempre junta do MDB;

If Not IsNull(Me![Fotos]) Then
fName = CurrentProject.path & "\PastaFotos\" & Me.Fotos


Teste;
https://dl.dropbox.com/u/771097/Fichas_OLD.rar

http://dl.dropbox.com/u/58104242/print.rar

vê o que me está a acontecer nestes prints
que envio
mirsofy

Entre no VBA do seu relatório, faça Debug e Compile, veja se marca algum erro.

Aqui funfa 100%

Testado no XP Ms Access 2003 e Windows Seven com Ms Access 2007.

boas jp
apos realizar o que mandas-te fazer no debug
aparece o seguinte erro no sub getfileName()

(msoFileDialogFilePicker)sublinhado

o que devo mais fazer

mirsofy

correção
apos verificar as referencias tive de activar Microsoft Office 12.0 Object Library
( problema de andar a trabalhar com o ficheiro em diversos pc´s)

agora fazendo o debug, não aparece mensagem nenhuma
o que posso mais fazer uma vez que na tua máquina dá
ainda não testei num pc com office2007 todos os testes são em maq. com o Office2003

mirsofy

Agora que não tem erros no Debug, tem de funcionar.

Fiz varios testes em 2003 e 2007 e todos funcionaram.

Sugestão:

Apague todos os dados da tabela e depois faça 2 ou 3 registos novos pelo formulario com fotos e veja o relatorio.

boas tardes
fiz o que mencionas-te , apagando todo o registo existente
como se tivesse iniciando a base
apos adicionar 2 registo e 2 fotos ao verificar o relatório continua a não mostrar a foto
mirsofy

Nesse caso, vamos aguardar que alguem por aqui faça o teste.

Como lhe disse aqui funciona blz.

Vou mover o tópico para a Sala de VBA.

grato pelo apoio
aguardo novidades

mirsofy

Bom dia Amigão,

Fiz o teste no Office 2007 e funciona perfeitamente.

Você marcou a referência Microsoft Office 11.0 Object Library para

usar com o 2003?

Sds,

boas tardes
grato pelo apoio
no meu VBA só encontro o microsoft office 12.0 Object Library e está activo
ja testei desativar e dá erro no debug quando quero adicionar foto.

mirsofy

bons dias malta
ainda não consegui resolver o meu problema
alguem puderia aqui dizer quais as referências que devo ter acionadas?

aguardo apoio

mirsofy

Veja as referencias que estão marcadas no banco de exemplo na mensagem Nº 12.

BD corrigida com esta solução

http://maximoaccess.forumeiros.com/t8321-resolvidorelatorio-sim-nao-com-foto

grato pelo apoio

mirsofy

Resolvido é Resolvido.

Mas eu pessoalmente não fazia desse jeito.

Faça o teste com diversos registros, uns com outros sem algemas e veja se é o resultado esperado, se for, então está mesmo Resolvido.

bons dias
como apos adicionar a BD original, está a surgir erros
reabro aqui o meu problema
continuando a precisar de apoio


mirsofy

respondendo ao topico 24
a referencia do post 12 aparece como microsoft office 11.0 e
a referencia da minha base aparece como microsoft office 12.0
esta é a unica diferença de resto é tudo por igual

mirsofy

Vamos lá resolver isto de vez;

1ª Pergunta
Qual a versão do Ms Access que está a usar ? 2003 como disse acima, ou 2007 ?

2ª Pergunta
O Banco está junto à PastaFotos ?

Ou seja tem a pasta das fotos no mesmo diretorio do banco ?
O banco não pode estar dentro da pasta fotos.

Fiz o teste no Access 2003 e também não funciona.

E tenho a referência Microsoft Office 11.0 Object Library marcada.

Carlos, seja bem vindo ao fórum.

Pode detalhar o que é que não funciona ?

Manuel, descarregue novamente e abra apenas o relatório.

Veja se o mesmo carrega as imagens.

https://dl.dropbox.com/u/771097/Fichas_OLD.rar

Deixa eu dar a minha contribuição com a permissão de todos.
Quando tenho que colocar fotos no formulário ou no relatório eu informo apenas o caminho e ele vincula por um campo chave que você iria indicar, exemplo:

Em uma tabela que chamo de TblConfiguracao, tenho um campo de nome: CaminhoFotos nele eu informo o caminho onde esta a pasta contendo as fotos.
Algo assim: T:\caminho das fotos\PastaFotos\

No meu formulário, tenho uma Imagem de nome ImagemForm.
Bem em uma combox eu busco a matricula dos funcionário da empresa onde trabalho e após atualizar uso o código


On Error Resume Next
Dim CaminhoImagem As String
CaminhoFotos = DLookup("[CaminhoFotos]", "[TblConfiguracao]")
CaminhoFotos = CaminhoFotos & Me!TxtMatricula & ".jpg"
If Len(Dir(CaminhoFotos) & "") > 0 Then
Me.ImagemForm.Picture = CaminhoFotos
Else
Me.ImagemForm.Picture = ""
End If
Ou seja, através do numero da matricula TxtMatricula eu busco a foto que esta na pasta de fotos, o único detalhe é que a foto deve ter o mesmo nome do que ela ira procurar

Ou seja: Matricula de Nº 30055, na pasta de fotos deve conter uma foto com essa nome.

Bom é isso

Resumindo.....

O exemplo que passei está funcional.

boas tardes
respondendo aos topicos:

(topico 29)
1º sim estou a trabalhar com 2003.
2º a BD está dentro de uma pasta que contem a pasta das fotos.

(topico 32)
abrindo so o relatório depois de descomprimir o zipado, continua sem dar.

ps:
tinha dado por resolvido uma vez que a outra situação que estou a ser ajudado nos relatórios a situação rola com as fotos, só tenho de ter em atenção a maneira como coloco as fotos dentro da PastaFotos.
toda a ajuda é bem vinda

mirsofy

Pode por favor enviar-me um print screen, em que apareça toda a sua area de trabalho, com o relatorio sem aparecer as fotos, para eu ver os se o problema está nos caminhos ?

estou no serviço e os pc´s estão bloqueados , havendo locais onde não consigo entrar
quando chegar a casa já envio, queria tambem acrescentar que a BD quando estiver OK é para ficar alojada num servidor local que existe aqui no serviço com atalhos pelos diversos pc´s.


mirsofy

Boas JPaulo,


Alterei o codigo na propriedade ao formatar (do relatório) e coloquei o código da função CImagem e já funciona:

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
'ao formatar o relatorio, insere a imagem no objecto
Dim StringImagem As String
On Error GoTo PictureNotAvailable
'coloca na variavel o caminho da imagem
StringImagem = CurrentProject.path & "\PastaFotos\" & DLookup("Fotos", "[FICHA RECLUSO]", "[Nº MECANOGRÁFICO]='" & Me.Nº_MECANOGRÁFICO & "'")
'insere a imagem no objecto
Me.FOTOGRAFIA.Picture = StringImagem

PictureNotAvailable:
StringImagem = ""
Me.FOTOGRAFIA.Picture = StringImagem

weuros
testei e não me dá
puderias fazer a alteração no ficheiro que enviei pelo drop


http://dl.dropbox.com/u/58104242/print.rar

espero que possas verificar jpaulo

mirsofy

Não consigo perceber pelas imagens, os caminhos, porque não vejo a pasta.

Vejo que tem o Windows 7, vou testar aqui num PC com o Windows 7 e Access 2003.

Aguarde.

Veja agora se funciona.

Alterei a tabela, acrescentando um ID em auto-numeração para melhor identificação no DLookup e modifiquei os códigos no relatorio.

https://dl.dropbox.com/u/771097/Fichas_OLD_II.rar

bons dias

utilizando a BD que enviaste corre bem, agora exportando para a minha BD principal dá-me o erro que envio.

http://dl.dropbox.com/u/58104242/erro-recreio.rar

aguardo apoio

mirsofy

Precisamente, porque eu esqueci de lhe dizer, que na tabela, campo Foto, deve ter o Valor por defeito "SemFoto.jpg"

Que é a nova foto que está na pasta, quando não existir.

O campo foto não pode estar vazio, daí o valor por defeito.

5*****
agora já funciona
está impecável
agora ponho a seguinte questão dentro do mesmo problema.
as fotos tem de estar dentro da pasta com a identificação 001.jpg , 002.jpg e por ai fora.
qual a hipotese de estarem identificadas como 001-1234.jpg , 002-4356.jpg , 003-4390.jpg e por ai fora, ou melhor os 3 primeiros numeros serem sequenciais e os 4 restantes variarem, a separação pode ser com hifen, underscore ou virgula.

grato mais uma vez pelo apoio

mirsofy

Não tem problema algum,

Agora que já funfa aí, melhorei o codigo no relatório e usando a função FileExist, já pode ter o campo Foto, vazio na tabela, que se não encontrar não dá mais erro e coloca o SemFoto.jpg.


Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
'ao formatar o relatorio, insere a imagem no objecto
On Error Resume Next
Dim emptyImg As String
'variavel vazio, coloca o SemFoto.jpg
emptyImg = CurrentProject.path & "\PastaFotos\" & "SemFoto.jpg"

If Not FileExists(CurrentProject.path & "\PastaFotos\" & DLookup("Fotos", "[FICHA RECLUSO]", "[ID]=" & Me.ID.Value)) Then
'se não existir, coloca a imagem da variavel
Me.FOTOGRAFIA.Picture = emptyImg
Else
'se existir, coloca a imagem certa
Me.FOTOGRAFIA.Picture = CurrentProject.path & "\PastaFotos\" & DLookup("Fotos", "[FICHA RECLUSO]", "[ID]=" & Me.ID.Value)
End If
End Sub


https://dl.dropbox.com/u/771097/Fichas_OLD_III.rar

Funfou ?

Podemos dar como Resolvido ?

boas de novo
como finalmente se acertou com o pretendido, peço que não se encerre o topico uma vez que com o trabalho já alcançado,tinha a necessidade de expandir a minha BD onde iram aparecer novo relatório com fotos, assim sendo agradecia o tempo disponibilizado.
estou a fazer umas alterações na BD e assim que puder solicito aqui ajuda.
mais uma vez grato

mirsofy

Vou encerrar este e alterar o titulo, para facilitar a buscar de quem tiver a mesma duvida.

Se tiver nova duvida, é seguir o ditado deste fórum: Nova duvida, novo tópico.

Sucesso