[Resolvido]Erro no código para abrir caixa de localizar arquivo

Bom dia! Tenho um formulário com um campo "foto" no formato Objeto OLE e criei um botão com o código abaixo para abrir a caixa abrir arquivo mas ao clicar em uma foto para adicionar dá o seguinte erro:
"Erro em tempo de execução '438'. O objeto não aceita esta propriedade ou método".
O erro indicado está em negrito.

Private Sub btnLocalizar_Click()
Dim strCaminho As String, strPastaInicial As String
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
Me.foto = strCaminho
Me.foto.Picture = Me.foto
End If

Alguém sabe como corrigir isso?
Obrigado!

Substitua esse objeto OLE por um controle de imagem

Você diz trocar o formato do campo? Este campo está na tabela. Qual seria então?

O controle que está no form ou report.

Esse controle está no formulário e é acoplado, baseado na tabela.
Vou testar aqui e dou um retorno.
Obrigado

Não deu. Esse campo é baseado na tabela e ele já veio com a formatação de objeto OLE. Não tem o item "Formato" nas propriedades.

Com esse objeto na tabela nunca trabalhei, até porque, é melhor o uso de campo texto para armazenar o caminho da imagem e um controle para imagem no form ou no report. Temos inclusive aqui no fórum ótimos exemplos publicados.

Talvez fosse viável mudar esse esquema que criou.

Analise.

Creio que quando o objeto OLE vem de uma tabela e encontra-se em um formulário para enserir imagem, tente apertar no malse do lado direito que vai aparecer apções de inserir imagem BMP

Obrigado Dilson mas não entendi uma coisa: ao criar um relatório ou consulta, como associo esse campo à tabela? Como é exibido o relatório se o campo não existe associação?

João, eu uso muito esse método e fiz um ajuda para o usuário inserir a foto. O arquivo BMP quadruplica o tamanho do banco então optei em copiar-colar uma foto no formato JPG previamente editada em tamanho menor. Instalei um programa que cria miniaturas em lotes, todas com 1kb em média mas só eu posso fazer isso e não é o ideal.

Veja esse exemplo do amigo Plínio Mabesi muito simples e fica excelente até em relatório.



http://www.4shared.com/file/jQobXcTF/BdImagem.html

Veja esse outro link do forum.


http://maximoaccess.forumeiros.com/t4731-arquivar-fotografias-atraves-de-hiperligacao

O Dilson tem razão. Deve colocar um objecto imagem no form ou relatório. Na tabela deve colocar um campo de nome "Caminho", ou outro, que irá recolher o caminho da imagem. Mas tem no repositório muitos métodos para isso.

Tópico Resolvido.