[Resolvido]Formulario com Imagem (foto)

Olá a Todos do Fórum.

Preciso de ajuda para resolver esta questão.

Adaptei o Modulo CataFoto no meu formulario, tenho uma consulta com os seguintes campos: IdAutor, Nome, Alcunha e Foto: catafoto([Nome])

No meu formulario ao clicar em Novo, abre-se um outro formulário (frmNovoInfrator):

DoCmd.GoToRecord , , acNewRec
DoCmd.OpenForm "frmNovoInfrator"
Call Form_Load

Este formulario traz uma lista de infratores cadastrados, um botão salvar, um botão limpar e um acaixa de texto, meu problema esta na listagem, pois quando dou o duplo clik em um infrator cadastado para edita-lo, aparece todos os dados menos a Foto correspondente.

Segue código que estou usando na listagem.

Private Sub Lista_DblClick(Cancel As Integer)
Forms!frmInfrator.Filter = "idAutor = " & Me!Lista.Column(0)
Forms!frmInfrator.FilterOn = True
Forms!frmInfrator!txtAlcunha.SetFocus
DoCmd.Close acForm, "frmNovoInfrator"

Meu é Access 2007 com service Pack 2.
Sistema Operacional Win 7.

No Aguardo.

Informe-nos o nome das fotos e a relação das mesmas com seus respectivos registros. Essas fotos ficam na pasta pasta do sistema? Ou ficam em uma subpasta dentro da pasta do sistema? Ou em outro local do disco? A foto é nomeada de acordo o dado de algum campo do seu respectivo registro? Por exemplo, elas tem como nome o código do registro? Vamos supor que as fotos estejam em uma subpasta chamada Imagens, essa pasta está dentro da pasta do sistema, cada foto tem como nome o código do registro e a extensão jpg. Nesse caso, você poderia colocar na origem do controle imagem:

=CurrentProject.Path & "\Imagens\" & [NomeCampoDoCódigo] & ".jpg"

Olá Criquio

Tenho uma Subpasta chamada de FotosInf que fica dentro da pasta do sistema. Tenho as seguinte fotos (Ana.Jpeg; Passos.jpeg; SemFoto.Gif) além de outras. A relação se dá atraves de uma consulta (cnsFotos) onde tenho os campos Nome, Alcunha e Foto. A foto é nomeada de acordo com o nome do registro.: Exemplo Ao cadastrar um novo infrator a foto fica salva com o nome dele dentro da subpasta FotosInf.

Modulo Cata Foto:

Public Function CataFoto(Nome)
If Len(Dir(CurrentProject.Path & "\FotosInf\" & Nome & ".jpg")) > 0 Then
CataFoto = CurrentProject.Path & "\FotosInf\" & Nome & ".jpg"
Else
CataFoto = ""
End If
End Function


No evento ao carregar do meu Formulario Cadastro tenho o seguite código:

Private Sub Form_Load()
If IsNull(Me.txtNome) Or Me.txtNome = "" Or Len(Dir(CurrentProject.Path & "\FotosInf\" & Me.txtNome & ".jpg")) = 0 Then
Me.ctlImagem.Picture = CurrentProject.Path & "\FotosInf\" & "SemFoto.gif"
Me.btnImagem.Caption = "Adicionar imagem"
ElseIf Len(Dir(CurrentProject.Path & "\FotosInf\" & Me.txtNome & ".jpg")) > 0 Then
Me.ctlImagem.Picture = CurrentProject.Path & "\FotosInf\" & Me.txtNome & ".jpg"
Me.btnImagem.Caption = "Trocar imagem"
End If

End Sub

O problema esta no formulario para cadastrar novo infrator ou seja no Formulário cadastro ao clicar no Botão Novo, ira abrir um novo formulário para cadastrar ou editar os infratores. Nesse formulario tenho os seguintes campos: Caixa de Texto não Acoplada, um btSalvar, um btLimpar e uma Lista (serve para verificar se ja existe um infrator cadastrado). Meu Problema não é Cadastrar novo, meu problema é editar um usuário cadastrado ao clicar (duplo click) na lista de infratores.

Ex.: Entro no Formulario Cadastro e Clico no botão Novo (abre o frmNovoInfrator) começo a digitar o nome para cadastro, a lista mostra que o infrator já está cadastrado, então eu clico em cima do nome duas vezes, o infrator é filtrado e aparece as informações no Formulário de cadastro, porém a foto do infrator não vêm junto.

Lembrando que adaptei um exemplo seu chamado (SubformsComImagens), porem no meu BD a Foto é salva com o nome, já no seu a foto é salva com código.
No aguardo.


Access 2007

Em primeiro lugar, eu aconselharia a mudar para o código ou algum dado exclusivo da pessoa. O nome pode dar confusão, pois pode ter mais de uma pessoa com mesmo nome. Quando você seleciona a pessoa na lista, essa pessoa tem o código. Poderia usar esse código para achar a imagem correta mais ou menos conforme a dica da minha primeira mensagem.

Ok Criquio vou trocar pra ver....

Depois retorno o resultado.

Olá Mestre Criquio

Fiz o que você indicou e deu Certo, Muito Obrigado.

Obs.: Gostaria de saber se tem algum jeito de salvar com o nome da foto.

Vou colocar como resolvido.

Sucesso...

Não entendi. Salvar o registro com o nome da foto?

Deixa eu tentar explicar.

Ao invés de salvar a foto com o número do Código, queria que a foto ficasse com o nome que eu cadastrar.

Exemplo.: Adiciono novo cadstro, Cadastro um infrator de nome Fulano, gostaria que na pasta fotos aparecesse o nome Fulano ao invés do número(Código).

Eu até tinha colocado assim (aparecendo o nome) porém não consegui fazer aparecer a foto na hora de editar, conforme minha primeira mensagem.

Espero ter expressado bem o que eu quero.

Sucesso.

Access 2007

O problema é o que eu já falei anteriormente. Se tiver dois ou mais Fulano da Silva Sauro, como iria ter duas ou mais imagens com o mesmo nome? Uma saída seria você colocar o código e o nome:

25 - Fulano da Silva Sauro
38 - Fulano da Silva Sauro

Nesse caso, bastaria alterar tambem para preencher o controle imagem:

=CurrentProject.Path & "\Imagens\" & [NomeCampoDoCódigo] & " - " & [NomeDoCampoNome] & ".jpg"

Ok Criquio

Vou tentar, depois retorno.

Criquio

Fiz o que você indicou( =CurrentProject.Path & "\Imagens\" & [NomeCampoDoCódigo] & " - " & [NomeDoCampoNome] & ".jpg" )

Mas não consegui.

Pergunto se tenho que alterar no Módulo e no Formulário também.

No aguardo