[Resolvido]Caminho excluido em tabela, ao Abrir form mostra a exclusao no campo....

No meu aplicativo ImageView, postado no forum, adicionei um modulo de impressão da foto...
Para isso uso uma tabela temporaria que armazena o caminho a ser usado pelo rpt...

Esse caminho é gravado na tabela sempre ao clicar do arquivo a ser impresso...
Ao fechar do form tenho uma consulta que exclui o registro da tabela..

Mas se abro o form novamente, no campo texto desse caminho, aparece assim:
#EXCLUIDO

E da erro se quero visualizar uma foto, pois ao click da lstbox ela usa essa caoxa texto para armazenar o novo caminho..

Para conseguir. eu tenho que fechar novamente o form e reabri-lo

COmo excluir essa linha de excluido na tabela? como limpa-la ao fechar do form


Private Sub Form_Open(Cancel As Integer)
On Error Resume Next

Application.SetOption "Show Status Bar", False
TopDir_AfterUpdate
DoCmd.SetWarnings False
DoCmd.OpenQuery "QryExclui" (aqui exclui, mas se abro emseguida o form no campo aparece #EXCLUIDO)
DoCmd.SetWarnings True
End Sub

Mas por que está armazenando o caminho em tabela temporária e excluindo depois? Não seria só colocar um Me.NomeControleImagem.Picture = CurrentProject.Path & "\Imagens\" & Me.Código & ".jpg" ou algo parecido apenas para o report saber aonde está a imagem?

Elementar meu caro...
porque eu usei um modelo que fazia isso
kkkkkkkk

Mas como eu faria para nao usar a tebela?

porque o rpt esta lendo a tabela.. e a Imagem no rpt utiliza o caminho da tabela...

Como fazer sem a tabela..?



Ha.. Eu consegui eliminar a mensagem #excluido na Aba de propriedades, Dados
Entrada de dados = Sim..


Resolvi assim

mas agradeceria se me exlplicasse como fazer sem tabela


Mas as imagens não estao no dir do BD....

Eu as busco no HD ekm qualquer pasta

Grato

Fiz assim Amigão..

No Campo Caminho no Rpt, coloquei:

=[Formulários]![Frm_Image]![Caminho].[Valor]

Assim ele le o caminho do form...

Resolveu sem precisar da tebela...

Beleza..

Grato

Você as busca no momento da impressão apenas? Não seria melhor colocá-las em uma pasta fixa dentro da pasta do aplicativo? E renomeá-las pelo código do registro, se for vinculada a um registro. Ou o caminho só é usado no momento da impressão sem ficar armazenado em uma tabela?

Também concordo com o Criquio. Não vejo vantagem em fazer isso na hora de imprmir, se bem percebi.

E porque sao varias pastas..
cada Detento tem a pasta com o nome da sua ID (prontuario)
c:\Syspen\Imagens... pasta 01, 02 03, 03, 05 .......

Entao tenho no viauslizador a opcao de abrir as pastas, a medida que vou abrindo ele vai preechendo o caminho, que o rpt usa para preencher os dados da imagem


Grato

Ah, se cada detento tem uma pasta com o número do seu registro, então fica fácil, principalmente se a foto tambem tiver como nome esse número:

Me.SeuControleImagem.Picture = "C:\Syspen\Imagens\" & Me.Código & "\" & Me.Código & ".jpg"

Fica como dica para o futuro, ou talvez para o presente mesmo

A pasta tem a ID do detento, mas o nome é o proprio nome do detento, mas o form que estou abrindo as fotos nao esta vinsulada a nenhuma tabela....
quando clico na imagem, em uma caixa texto me mostra o caminho

c:\Syspen|Imagens\10\Fulano de tal.jpg

Como fazer sem a tabela?

Se o form não é vinculado, como você consegue o endereço da imagem? A imagem é incorporada?

Eu tenho lstBox que navegam nas pastas... e o exemplo que esta no repositorio..
eu navego como se estivesse no explorer, abro a pasta, e em uma listbox tenho os arquivos...
em uma caixa texto (da pasta) tenho o valor c:\syspen\imagens\10
Quando clico na lstBox onde esta o arquivo tenho uma caixa texto com o seguinte codigo

Me.CaixaTexto.Value = (caminhodaPasta) & (arquivona lstbox)

somando: c:\syspen\imagens\10 & Nome.jpg ou seja

C:\Syspen\Imagens\10\nome.jpg

Tai o caminho...

Essta caixa ntexto tem como origem a tabela caminho onde arquivo o mesmo temporariamente para usar no report ao fechar o form.. o excluo

entendeu amigao?

Então, se você já captura o caminho nessa caixa de texto, ao invés de enviar para uma tabela, pode usá-lo diretamente no relatório. Ficar criando e excluindo registros colabora para o inchaço do aplicativo e pode deixá-lo mais suscetível a danos. O controle imagem do relatório poderia capturar dessa caixa:

Reports!NomeDoRelatório!ControleImagem.Picture = Me.NomeDoCampo

eu aplicaria no evento do botão de abrir o report?

Por exemplo.

Testarei assim que eu estiver no pc que esta esse BD,
Ha.. Viera perdoe-me por nao ter participado ontem, mas onde me encontro as vezes isso não é possível

Grato

No problem, ontem eras tu a pagar o café, pagas a dobrar na próxima.

A seu comando sempre...
Saudações.. Um dia lhe esclareço toda a essa historia, por isso que estou a escrever o meu livro...

Tentei como a instrução do Criquio, mas não apareceu a imagem, a Picture não entendeu a igualação com o caminho..

No momento irei usando a tebela..

Grato

Na minha modesta opinião a melhor opção.

Acredito, e a logica esta corretissima.. mas a imagem nao apareceu...

Talvez você esteja fechando o formulário antes de aplicar a imagem. Não seria isso?

Não, mas estou deixando o form Visible = False..

porque não abro o report em Popup entao teria que deixar o Form ou Visible = False ou minimizá-lo

no momento ao clicar do Botao imprimir Form Visible = False