[Resolvido]Erro em foto no relatório

Grandes Mestres, estou de volta

Antes de postar aqui já verifiquei tudo que possível sobre o tópico. Tem muitos post sobre o assunto, com problema praticamente o mesmo e todos conseguiram resolver suas broncas, menos eu.
Tenho um relatório que deve exibir a foto do cadastro que está numa pasta (fotos JPEG) e na tabela tem o endereço da foto. Para exibei uso:

Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo Err_Detalle_Format
If Not IsNull(LocalFoto) Then
ImagemFoto.Picture = LocalFoto
Else
ImagemFoto.Picture = ""
End If
Exit_Detalle_Format:
Exit Sub
Err_Detalle_Format:
Resume Exit_Detalle_Format

End Sub

Tem vários campos LOCALFOTO vazios e no relatório, desde o primeiro registro é exibido uma foto que não tem nada haver com aquele cadastro, incluisive os que tem o campo vazio aparece esta foto (sempre a mesma) até encontrar um outro registro que tem endereço em LOCALFOTO e vai exibindo a nova foto até encontrar ou endereço diferente para fazer a mesma coisa.
Onde está o meu erro?

Vale adiantar que já coloquei o mesmo código no cabeçalho do grupo, cabeçalho da página, detalhe, etc. e sempre exibe o mesmo erro.

Se se trata de um Relatório com fotos diferentes, basta adicionar o código no detalhe e a caixa de texto que leva o caminho da foto

Como complementei, já fiz desse modo e nada. Quer que eu lhe envie para observar o problema?. Se sim, para onde mando?

sergiovieirasoft@gmail.com

Enviado. O relatório é apenas um rascunho rápido, o verdadeiro relatório vem de uma consulta que tem muitos relacionamentos e tal. Fazendo este enviado é o bastante.

Muito grato

Recebido. Aguarde por favor

Você tem todo tempo do mundo.

Amigo

Desculpe a demora, mas o meu access deu o tilt. Agoar está tudo bem.

Se me permite:

Só trabalhei com a tabela Mala. Fiz delete ao campo foto e passou a chamar-se foto. Atenção que vão módulos juntos na aba módulos

Criei um form basico para recolher a foto de cada um. Tem um botão "Abrir Relatório Filtrado", neste caso abre o relatório como se fosse uma ficha individual.

O botão "Abrir Relatório não filtrado", abre com todos os registos. Agora você deve colocar as fotos de cada um. Não precisa de estar em C:- pode colocar a BD aonde entender.

http://dl.dropbox.com/u/8157744/Ricardo%20Costa.rar

Grande Mestre

Baixei o enviado e ainda está com problema. Quando o campo do endereço da foto está vazio ele repete a última foto até encontrar outro endereço e faz a mesma coisa.

Muito grato

Pois deve estar. O problema não é o enviado, mas a sua Tabela Mala. Para ser sincero consigo aquilo é um terror. E para provar tem dentro da pasta que lhe envio um aoutra BD...Cópia da sua. Agora veja se funciona ou não. Ah, claro que eliminei quase todos os campos da tabela Mala na cópia, para poder experimentar. Nem sei como a BD funciona com tantos índices, tantos campos requeridos e afins,etc.

experimente agora na cópia
http://dl.dropbox.com/u/8157744/Ricardo%20Costa.rar

Meu Caro Mestre

Não entendi as observações sobre campos requeridos ou quantidade de índices em relação ao relatório. Estou aprendendo agora e gostaria de saber para evitar maiores problemas no futuro.
Mesmo com outra tabela que você criou se o campo FOTO estiver vazio ele repete a foto anterior. Este é meu grande problema. Desculpe-me por ser tão persistente.

Grato pelas observações

Abraços

Não repete não. Você abriu a BD cópia de banco de foto? Clique em relatório não fltrado. Existem 2 registos e 2 fotos e é isso que é mostrado no relatório. Ora verifique.

Exatamente isto. Cadastre mais um registro sem foto e teste.

Claro que não pode estar nulo. Escolha uma foto padrão para quando um cadastro não tiver foto ser-lhe atribuída uma.

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(foto) Then
Imagem3.Picture = foto
Else
Imagem3.Picture = "C:\Documents and Settings\VieiraSoft\Ambiente de trabalho\Ricardo Costa\Ricardo Costa\11.JPG"
End If
End Sub

Substituir o meu caminho pelo seu

Não tem como criticar se a foto for nula deixa moldura vazia?

Não amigão. Você já deve ter reparado em sites que quando não existe foto aparece uma foto padrão.Aqui é igual. Você quer uma foto padrão para esse efeito. Eu tenho isso.


_________________________________________________________________________
Se mandarem os Reis embora, hão-de tornar a chamá-los!" - Alexandre Herculano (escritor português século 18)

Claro que aceito seu brinde.

Muito grato

Relativamente à tabela Mala, vou refaze-la como deve ser e envio tudo junto. Aguarde então.



--------------------------------------------------------------------------------------

Se mandarem os Reis embora, hão-de tornar a chamá-los!" - Alexandre Herculano (escritor português século 18)

Esta tabela TbMala é a principal de um sistema que roda em gabinete político em que tem seus colaboradores e estes tem os seus eleitores e caso um mesmo colaborador tenha mais de um eleitor com mesmo nome altera-se o campo homônimo para 1, 2, 3... Esta índice poderia ser o CPF ou o próprio número do título de eleitor (que são únicos) mas nem sempre estamos com estes documentos.
Abaixo desta tabela temos os pleitos referente aquele eleitor e também acompanhamentos jurídicos com controle de audiências e tudo mais. Reconheço que este sistema necessita ser redefinido. Começou um cadastrinho para para mala direta e criou-se uma perninha para isso, outra para aquilo e foi crescendo. Muitas pernas que não estavam previstas no plano original. Esse sistema está muito grande e com muitos clientes.

Abraços

Então é assim:

Não está perfeita a tabela Mala1 na BD cópia, mas foi o melhor que se pode arranjar. Não faça indexação aos campos a torto e a direito. Quanto maior a indexação, pior o desempenho da BD. Um campo como Endereço, por exemplo não faz sentido estar indexado. A bd vai ficar mais rápida.

Evite pré-definições na tabela. Se queremos checar se o registro já existe temos código vba para isso. Veja como fiz no formulário1 , no evento antes de actualizar do campo Solicitante.

Ainda nas pré-definições, criei caixas de combinação que substituem algumas pré-definições , não complicam e permite seleccionar o que entender.

Outra pré-definição que só originava problemas é Ricardo aparecer como colaborador antes que um registro é efectivo. Fazemos isso por VBA. Depois de preencher o solicitante, ao sair preenche o campo Colaborador. Evitamos aquela mensagem de que o Windows não pode guardar o registro.....blá,blá).

Mesmo assim a tabela está enorme e podia ser fraccionada em sub tabelas, mas acho que ficou melhor.

Não esquecer que a tabela modificada está na BD cópia e tblMala1

A foto padrão chama-se nofoto e está na pasta da aplicação

http://dl.dropbox.com/u/8157744/Ricardo%20Costa.rar

Grande Vieira

Muito agradecido pelos ensinamentos. Como já lhe disse, sou um eterno aprendiz e é com GRANDES MESTRES como você que vamos enriquecendo mais e mais nossos conhecimentos.
MUITO OBRIGADO POR TUDO!

Grande Abraço

Abraço para você também e se precisar apite






____________________________________________________________________________________
Se mandarem os Reis embora, hão-de tornar a chamá-los!" - Alexandre Herculano (escritor português século 18)

Grande Mestre

Fiz assim e achei interessante lhe mostrar para não colocar foto padrão quando campo estiver vazio e deu certo. Se tiver o endereço da foto, imprime, caso contrário não exibe nada.

If Not IsNull(LocalFoto) Then
ImagemFoto.Visible = True
ImagemFoto.Picture = LocalFoto
Else
ImagemFoto.Visible = False
End If

Abraços

òptimo, amigão. Tentando é que a gente aprende e aqui aprendemos uns com os outros.