[Resolvido]Imagem para impressao

Caro Vieira,
Fiz o download do seu arquivo imagemform.mdb disponibilizado em resposta a outros usuários com a questão de imagens.
Aconteceu o seguinte:
1) Criei o campo foto na minha tabela.
2) No meu Formulário: Inseri o campo foto e coloquei os comandos no evento "Após atualizar"
3) No meu Formulário: Coloquei os comandos no botão comando174 (Imagem: Inserir)
4) No meu Formulário: Coloquei os comandos nas propriedades do Formulário no evento "No Atual"
5) No meu Relatório: Coloquei o campo imagem3 na seção Cabeçalho do Relatório (igual ao seu)
Na propriedade Filtro coloquei o comando: (CodPessoa= Forms!F30_LDBPessoas!CodPessoa), em substituiçao e adaptado do seu.
6) Copiei os seus Módulos: móduloimagem e mdlGeneral

No entanto, a imagem não aparece no Relatório, que por sua vez é baseado em uma consulta. Faltou algo?

Aproveitando a ocasião gostaria de saber sobre o botão com a imagem "Gravar" cliquei no mesmo, mas, não entendi a sua função.

Envie o modelo modificado para que possamos encontrar uma solução.

Cumprimentos.

Caro Harysohn, segue em anexo o arquivo (Formato ZIP), com as seguintes observações:

1) Na tabela T30_LDBPessoas tem um campo "FotoPessoa" tipo Objeto OLE, que era usado para vincular as fotos, o qual estou substituindo pelo campo "foto" junto com a rotina de Vieira.

2) Nesta mesma tabela existe outro campo "ArquivoMapa" que também é um Objeto OLE, o qual também pretendo substituir da mesma forma como no item acima, o procedimento seria o mesmo, tanto no Formulário como no Relatório?

3) Existe também outra tabela T31_PessoaAnexos que serve como subtabela, ou seja, para colocar arquivos anexos a tabela principal, conforme relacionamento entre ambas. Estou usando o campo "ArqAnexado" tipo objeto OLE. A minha intenção também é de substituir este campo como no item 1, a diferença é que usado como formulário contínuo, e que além de imagens também pode anexar um arquivo tipo PDF, quais seriam então os procedimentos ?

4) Segue junto algumas fotos para ajudar no entendimento do projeto.

Obrigado.

Deve ter faltado copiar o controle imagem3 para o relatório. se o colocou como diz, colocou o código?

Nào veio nada amigo.

Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(Caminho) Then
Imagem3.Picture = Caminho
Else
Imagem3.Picture = ""
End If
End Sub

Caro Vieira,
Realmente não coloquei os comandos no cabeçalho do Relatório, mas agora quando coloquei apareceu a mensagem : "Variável não definida" apontando para "caminho" ...

Prezado Harysohn,
Posso mandar para seu e-mail, pelo que vi deve ser o tamanho que mesmo compactado está com 9 Mb ?

Amigão

Poder Caminho, pode ser foto, sei lá? Como se chama a caixa de texto que leva o link da foto e que tem que estar no form e no relatório? coloque aí o nome.

O vieira ja está a judá-lo... Creio que é o mais indicado por se tratar de um exemplo dele..

Saudações.

Foi isso mesmo, Vieira, coloquei foto (campo onde é gravado o caminho da foto) e funcionou perfeitamente.
Aproveitando ainda o mesmo tema, ou devo outro tópico?
Para usar outro campo nesta mesma tabela, formulário e relatório, o procedimento é o mesmo ? pois não ?

Tenho outra tabela relacionada a esta do exemplo, onde uso um campo tipo objeto OLE, o qual pretendo substituir da mesma forma que esta em questão, sendo que nesse caso uso um formulário contínuo, pois o relacionamento é de 1 para vários, onde seriam "gravadas" imagens e também arquivos tipo PDF. Nesse caso quais seriam os procedimentos para o subformulário e relatório ?

Mais uma vez, obrigado e muita Paz.

PS: Valeu Harysohn

No formulário é o mesmo, mas tenha o cuidado de chamar Imagem4, por exemplo. No relatório, copie o código e envie para a secção detalhe assim:

Private Sub SecçãoDeCabeçalhoDePágina_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(Foto1) Then
Imagem4.Picture = Foto1
Else
Image4.Picture = ""
End If

Coloque o controle imagem4 no detalhe

Vieira, valeu a orientação, mais tarde faço os testes e informo o resultado, para dar como resolvido, ok?

Antes que esqueça, o controle com a imagem "Gravar" no seu formulário, é preciso clicar nele, visto que tem o evento, com o comando: foto_AfterUpdate. Qual a sua função ?

Para subform o Access 2007 tem uma facilidade a mais que o 2003...No repositório tem um exemplo do Criquio..

Cumprimentos

Isso deve ter sido engano meu, o botão gravar só tem a função inerente, gravar.

Prezado Vieira,

Quanto ao Formulário, ou melhor, SubFormulário (modo formulário contínuo) fiz da mesma forma, o controle imagem coloquei como imagem2, no entanto, aconteceu o seguinte:

1)Inclui 4 registros. Quando fiz a inclusão através do botão "Inserir" ele mostra a mesma imagem em todos os 4 registros quando clico no registro inserido, por exemplo: No registro 1 inseri um arquivo JPG, no registro 2 inseri um arquivo BMP, no registro 3 inseri um arquivo GIF, no registro 4, inseri um arquivo PDF. Ao clicar no registro 1, o mesmo é mostrado em todos os demais registros, se clico no registro 3, a mesma coisa, e assim por diante.

Como faço para cada registro mostrar apenas seu arquivo correspondente ?
Observaçao: Quando incluo um arquivo PDF, o mesmo não visualiza nenhuma imagem, é possível mostrar ou não esse tipo de arquivo nessa rotina ?

Meu caro

Se é num subformulário e o relacionamento é de 1 para muitos, lógico que a foto a mostrar será sempre a mesma. O que eu entendi acima é que queria meter mais controles fotos no formulário e mostra-los a todos num relatório,o que implicava passar o código para a secção detalhe.

Quando abre um registo, este apresenta no sub form os dados referentes a esse registo.

Não tenho certeza , mas no repositório de exemplos deve ter algo parecido com o que pretende. Não sei se funciona em sub form.

Caro Vieira,

Na verdade minha intenção eram as 2 coisas: colocar mais um controle de foto no mesmo formulário e Relatório e também no Subformulário. No formulário e relatório funcionou perfeitamente com mais de 1 controle foto, quanto ao subformulário vou fazer uma nova busca para ver se encontro algo a respeito. Muito obrigado.

Caro Harysohn, no momento, estou usando apenas o Access 2003, mas valeu a dica.

Parece que resolveu o problema com as imagens. Abraço e bom trabalho.

Vieira,
Realmente eu ia encerrar este tópico para iniciar outro, pois resolvi parcialmente a questão, isto porque quanto ao subformulário não consegui achar nada neste e nem em outros fóruns, depois abro outro tópico com mais detalhes sobre o assunto.

Obrigado.