[Resolvido]inserir foto

meus amigos, coloquei um campo para inserir fotos no formulário, não consigo.
Eu consigo abrir uma janela para que consigo pegar a foto, mas ele não coloca a foto ele não grava.


Private Sub InserirFotos_Click()

 

 
  Dim strCaminho As String, strPastaInicial As String
  Dim CopiaSegura As Object
  Dim Caminho As String
  Dim fso As Object
  Dim cam As String
  Dim strCaminnhoPasta As String
 
  strCaminnhoPasta = DLookup("[LocalFoto]", "tblConfig")
   
  strPastaInicial = "C:\Meus Documentos"
  strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
  "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
  If Len(strCaminho) > 0 Then
     
  cam = strCaminnhoPasta

 Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
 CopiaSegura.CopyFile strCaminho, cam & Me.paciente.Value & ".jpg" sempre fica com essa linha dando erro
 
 Me.paciente = cam & Me.paciente.Value & ".jpg"
 Me.img.Picture = Me.paciente
   
   End If


End Sub
Private Sub Comando11_Click()
On Error GoTo Err_Comando11_Click


   DoCmd.GoToRecord , , acPrevious

Exit_Comando11_Click:
   Exit Sub

Err_Comando11_Click:
   MsgBox err.Description
   Resume Exit_Comando11_Click
   
End Sub
Private Sub Comando12_Click()
On Error GoTo Err_Comando12_Click


   DoCmd.GoToRecord , , acNext

Exit_Comando12_Click:
   Exit Sub

Err_Comando12_Click:
   MsgBox err.Description
   Resume Exit_Comando12_Click
   
End Sub

Private Sub Form_Current()
On Error GoTo Limpa

   If IsNull(Me.paciente) = False Then
       Me.img.Picture = Me.paciente
   Else
       Me.img.Picture = ""
   End If

Sai:
   Exit Sub
   
Limpa:
  Me.paciente = Null
   Me.img.Picture = ""
   Resume Sai
End Sub
Private Sub Comando13_Click()
On Error GoTo Err_Comando13_Click


   DoCmd.GoToRecord , , acNewRec

Exit_Comando13_Click:
   Exit Sub

Err_Comando13_Click:
   MsgBox err.Description
   Resume Exit_Comando13_Click
   
End Sub

Private Sub Form_Load()
'Se não existir cria a pasta
On Error Resume Next
Dim fso As Object
Dim Pasta As String
Pasta = DLookup("[LocalFoto]", "tblConfig")
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Pasta) Then ' verifica se já existe a pasta
Else
MkDir Pasta ' se não existir cria
End If
End Sub

Veja essa aula sobre foto em formulário
Copiei e cole o endereço abaixo no seu navegador

youtube.com/watch?v=U1I2JY38DOM

ja vi deu erro , ja escrevi o código igual está no vídeo , mas da erro , como local  não encontrado, to quase parando de colocar foto no formulário , estou desde cedo mexendo com isso, mas fico com medo de colocar elas como anexos e depois o bd inchar ai vai dar muito erro de execução

ola mestre gilberlanio,
também acompanhei as tuas videos aulas e tambem está me dar erro, acho por uma parte do código não estar visível a partir do Right...
por favor, mestre gilberlanio podes anexar aqui este grande exemplo?
Obrigado.

Está na sala de repositório:

https://www.maximoaccess.com/t33336-cadastro-de-cliente-com-foto

aqui nos pc do empresa barraram o dropbox, por favor, pode enviar como anexo, sff.
obrigado.

Segue arquivo solicitado:

Selecionei a referencia e continua o mesmo problema ja habilitei até o database

Verificou se ativou a referência correta?

sim o meu é office 2007 e verifiquei o Microsoft Access 12 Object library, se quiseres posso manda pra você ou você me entra remotamente no meu pc, estou mexendo nesse campo faz 4 dias e não consigo inserir foto com que salve em uma pasta

Veja que não é Microsoft Access 12 Object library e sim Microsoft Office 12 Object Library

gilberlanio , estou desde 13:00hs fazendo um sistema e estou um pouco com dor de cabeça , vou descansar um pouco , depois eu  voltou a mexer ou amanha , permita-me te chamat depois , se caso da erro de novo. eu te chamo nesse tópico aqui , pode-ser?

estou tentando puxar a foto de um funcionario já cadastrado na tabela tbl_Funcionarios para o formulario frmRegEntrada não está a funcionar.
por exemplo: após digitar o codigo de barra do funcionario "ex: 123" no frmRegEntrada gostaria que aparecesse a foto dele.
estou tentando o codigo abaixo e o bd em anexo.

Private Sub txtCodBarra_AfterUpdate()
If Right(Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho, 1) = "\" Then
       Me.imagemFuncionario.Picture = Application.CurrentProject.Path & "\Fotos\" & "NaoExiste.png"
   Else
       Me.txtCaminho = DLookup("caminhoImagem", "tbl_Funcionarios", "CodigoBarraFun = '" & Forms!frmRegEntrada!txtCodBarra & "'")
       Me.imagemFuncionario.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho
   End If
End Sub

desde já agradeço ajuda de todos.

gilberlanio Ja esta marcada , ai tem hora que ele mostra que o método .Picture não foi encontrado

Veja se é isso que quer.

É isso vieira, So não consigo entender porque o programa deixa inserir foto,mas o meu continua o mesmo problema . para que depois de outra criação de sistema continuar o mesmo problema

Boa tarde. A única forma de ajudar é enviar o seu programa ou a parte que está a dar erro, pois me parece que é o seu access, ou então estará a fazer algo errado???. Se preferir envie para aqui. Atenção: No formato 2003 mdb, please.

Ok, eu vou ver e depois retorno

eita cliquei em um ícone" joina" sem querer

Pois então é assim: Peço-lhe desde já desculpa, mas preferi pegar no  seu form e na tabela pacientes e TipoConsulta e refazer. O que estava mal?

1- Não se compreende existirem tantas tabelas que eu presumo terem o mesmo efeito. Qual a diferença entre tabela de pacientes e tabela de clientes, pois esta última é que tinha o campo foto e três únicos campos...??? desculpe a minha ignorância, mas paciente e cliente não é o mesmo? Refiz a tabela pacientes.

2- A tabela dos convênios (TipoConsulta) é uma lista de valores, então para quê usar numeração automática??? Basta digitar os valores e fazer a chamada para a caixa de combinação com SQL, assim: strSQL = "SELECT tbltipoconsulta.NomeDoConvenio FROM tbltipoconsulta;"   Me.cboConvenio.RowSource = strSQL. Simples!

3- Os nomes das tabelas devem começar por tblpacientes ou tblclientes etc. Não deve haver qualquer espaço nos nomes. Nos campos da tabela igual. Não deve usar "Nome do Cliente", mas sim, "NomeCliente", por exemplo. Os nomes dos campos no formulário devem seguir a nomenclatura do MSAccess. txtPaciente e cboConvenio, por exemplo. Tudo foi refeito.

4- Se  caminho da foto não existe e, se existe, está no formulário como independente, isto é, sem conexão com um campo do mesmo nome na tabela PACIENTES e não Clientes, é mais que óbvio que não vai funcionar.

5- Entre muitas outras coisas, o formulário faz:

   5.1 - Coloca correctamente a foto ou elimina-a através de botões (neste caso labels)
   5.2   Preenche as caixas de combinação através do método Sub preencher(com a funcionalidade .AddItem).
   5.3   Envia um email ao destinatário presente no campo "Email"
   5.4   Acrescentei um calendário. Agora pode seleccionar uma data no calendário e passa-la automaticamente para o campo Data de Nascimento ou outra qualquer
   5.5 Leva um conjunto de DLL que necessita para que a sua aplicação funcione correctamente. No entanto, com outras funcionalidades que possam ser acrescentadas, podem existir mais DLL necessárias.
E mais outras coisinhas para você estudar e aprender. Tente perceber o código.


Aqui o link para download

dropbox.com/s/93sy9onz13wqvs6/Programa.zip?dl=1

vieira hoje a noite vou dar uma estudada nas suas explicações (á voltar da faculdade) desde ja te agradeço assim como todos os outros, passei só o olho pois estou em estrada , sobre a tabela cliente é porque eu  usei outro esboço e esqueci de exclui-la, mas ao voltar vou dar uma estudada, qualquer duvida que eu tiver eu vou voltar nesse tópico.

Vi aqui suas explicação , , no meu programa ele não funciona , misericórdia, porque eu  não queria passar os códigos de um projeto para outro , queria saber cada parte do código fizesse , mesmo tendo que copiar e colar dar erro porque um "membro desconhecido".
\Queria saber o que que está dando errado.