[Resolvido]Erro: 438 - O Objeto não aceita esta propriedade ou método

Boa tarde,

Estou utilizando o código do Professor Gilberlanio, mas está dando o seguinte erro:

438 - O Objeto não aceita esta propriedade ou método, o que me impede de carregar a foto no meu projeto. O que pode ter de errado?


On Error GoTo PROC_ERR


   
   'verifica se o nome do cliente foi digitado
   If Len(Me.Nome_Func & "") = 0 Then
       MsgBox "Falta o nome do Funcionário, campo obrigatório.", vbInformation, ""
       Me.Nome_Func.SetFocus
       Exit Sub
   End If
   
   ' Requer referencia a Microsoft Office 11 Object Library
   Dim fd As FileDialog
   Set fd = Application.FileDialog(msoFileDialogFilePicker)
   
   fd.Title = "selecione o arquivo da imagem"
   fd.Filters.Add "Arquivos de imagem", "*.bmp; *.png; *.jpg", 1

   fd.Show
   
   If (fd.SelectedItems.Count > 0) Then
       Dim strPathFileOrigem, strImagens As String
       
       'arquivo escolhido
       strPathFileOrigem = fd.SelectedItems(1)
       
       'caminho destino e nome arquivo para copia de arquivo das imagens
       strImagens = Application.CurrentProject.Path & "\Fotos\" & Me.Id & "_" & Me.Nome_Func & Right(strPathFileOrigem, 4)
     
       'copiar
       FileCopy strPathFileOrigem, strImagens
       MsgBox "Arquivo arquivado em: " & vbCrLf & vbCrLf & strImagens, vbInformation, "Operação concluída."
   
       'actualiza dados form
       Me.txtCaminho = Mid(strImagens, InStrRev(strImagens, "\") + 1)
       Me.imagemCliente.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho
       DoCmd.Save
   Else
       
       MsgBox "Não foi escolhido nenhum Arquivo", vbInformation, ""
   
   End If
   
   
PROC_EXIT:
   Exit Sub
   
PROC_ERR:
   DoCmd.Hourglass False
       MsgBox Err.Number & " - " & Err.Description
   Resume PROC_EXIT


Vi que tem uns exemplos parecidos aqui no Fórum, mas eu não consegui resolver.

Boa noite, o erro aponta para qual linha?

Marcelo, bom dia

Debuguei o código, e ele apresente o erro quando chega nesta sintaxe:

Resume PROC_EXIT

A referencia a Microsoft Office xx Object Library
Onde xx é a versão do access, está marcada?

Sim Marcelo,

Eu habilitei a referência, pois antes mesmo de dar esse erro, tinha dado outro, conforme abaixo

' Requer referencia a Microsoft Office 11 Object Library
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker),

Só depois disso, deu esse erro 438, que não consegui resolver, mas o que me intriga, é que em outro projeto que eu tenho, tenho o mesmo código, e não apresenta nenhum erro, carrega as fotos normalmente.

Tem alguma campo conflitando aí... Pode postar o banco para ver?
Mas antes, veja se não há nenhum módulo de código, função, sub que tenha nome igual a algum outro objeto....

Marcelo

Segue link aí

Não sei como vai abrir aí pra ti, pois toda vez que abro em algum PC diferente a tela nunca fica na mesma dimensão.

https://www.dropbox.com/s/dwo5cyw8m407zuu/Gest%C3%A3o%20de%20Funcion%C3%A1rios.accdb?dl=0

Frm_Lancamentos

Botão Comando 19

Obrigado

Então...
imagemCliente não possui a propriedade Picture, pois é um Quadro de Objeto Não Acoplado

Basta usar um controle Imagem e por o mesmo nome que já resolve seu problema.

Mas que coisa mesmo, tão simples...Aprendizado para as próximas.

Muito obrigado Marcelo

Resolvido!

Ótimo que resolveu! O fórum agradece o retorno!

podem postar uma copia do banco com o problema resolvido? estou na mesma situação e nao sei o que fazer.