[Resolvido]Capturar o Caminho da Imagem com GetOpenFilename

Boa tarde a todos.
Encontrei um código em VBA para capturar o caminho de imagens que são visualizadas em um form, ou seja, armazeno o caminho da imagem na tabela, enfim, quando clico no botão que executa o código o mesmo está dando um erro, é destacado o comando GetOpenFileName e apresenta a seguinte mensagem "Método ou membro de dados não encontrado", alguém saberia me responder o porque desta mensagem.

O código está abaixo.

Public Function CapturarCaminhoImagem() As String
Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
' Define o filtro de procura dos arquivos
Filter = "Arquivos IMAGENS (*.jpg),*.jpeg,"
' O filtro padrão é *.*
FilterIndex = 3
' Define o Título (Caption) da Tela
Title = "Selecione um arquivo"
' Define o disco de procura
ChDrive ("C")
ChDir ("C:")
' Abre a caixa de diálogo para seleção do arquivo com os parâmetros
Filename = Application.GetOpenFilename(Filter, FilterIndex, Title)
' Reseta o Path
ChDrive (Left(Application.DefaultFilePath, 1))
ChDir (Application.DefaultFilePath)
End With
' Abandona ao Cancelar
If Filename = False Then
MsgBox "Nenhum arquivo foi selecionado."
Exit Function
End If
' Retorna o caminho do arquivo
OpenFileDialog = Filename
End Function

Muito obrigado.

Verifique nas referências se está marcada a referência Microsoft Access 12.0 Object Library, aonde 12.0 é a versão do 2007. Se o seu for anterior, será menor e se for o 2010, será 14.0

Ou então procurara junto de quem fez o exemplo. às vezes é o simples.

Pois é Vieira, quem me dera se eu tivesse essa informação, realmente seria muito mais simples.

Se você pesquisar no help do vba do Access por FileOpen ou FilePicker, encontrará uma solução praticamente pronta. Será só adaptar.

Você pretende colocar as fotos num form?

Edson ...
É bem simples, esta msg se da por falta da declaração o GetOpenFileName. Veja como utilizo em minhas aplicações.
Em um Módulo
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustomFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_PATHMUSTEXIST = &H800
Const cTAMANHO = 11
Public Declare Function GetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Public Function Buscar(lngHwnd As Long, strTítulo As String, strPastaInicial As String, strFiltro As String) As String

Dim filebox As OPENFILENAME
Dim result As Long
With filebox
.lStructSize = Len(filebox)
.hwndOwner = lngHwnd
.hInstance = 0
.lpstrFilter = strFiltro & vbNullChar & _
"Todos os Arquivos (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
.nMaxCustomFilter = 0
.nFilterIndex = 1
.lpstrFile = Space(256) & vbNullChar
.nMaxFile = Len(.lpstrFile)
.lpstrFileTitle = Space(256) & vbNullChar
.nMaxFileTitle = Len(.lpstrFileTitle)
.lpstrInitialDir = strPastaInicial & vbNullChar
.lpstrTitle = strTítulo & vbNullChar
.Flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
.nFileOffset = 0
.nFileExtension = 0
.lCustData = 0
.lpfnHook = 0
End With
result = GetOpenFileName(filebox)
If result <> 0 Then
Buscar = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
Else
Buscar = ""
End If
End Function

No Formulário
Private Sub cmd_Localizar_Click()
Dim strCaminho As String
Dim strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hWnd, "Inserir Imagem", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.txtCaminho = strCaminho
Me.ctrImagem.Picture = Me.txtCaminho
End If
End Sub
Veja de onde retirou o exemplo e localize la esta função, com certeza ira encontrar lá.
Abraços,

Bom dia a todos.

Vieria, isso mesmo, colocarei as fotos em um form.

Mc Feba, muito obrigado pela dica, irei testar e darei um retorno.

Obrigado a todos.

Bom eu tenho um sistema bem mais simples para isso. Se não der certo o anterior, apite.

Boa tarde a todos.

O código enviado pelo Mc Feba funcionou perfeitamente mas isso não impede do Vieira postar o que ele comentou sendo mais simples, mas de qualquer forma agradeço aos mestres pela ajuda .

Valeu.

Veja no repositório de exemplos, mas se resolveu está resolvido. Um grande abraço. Não esqueça o resolvido.

Valeu Vieira grande abraço.

Um grande abraço para si também. Qualquer coisa, apite.

Obrigado pelo retorno amigo, e precisando estaremos por aqui.

Abraços,

Olá Pessoa,

Vieira, por gentileza, poderia me dizer como localizo o exemplo mencionado que esta no Repositório de Exemplos?

Abraços

Vou enviar-lhe um exemplo daqui a pouco. Coloco aqui.

Aqui está. Cumprimentos

Olá amigos, já tenho em uma aplicação a busca por arquivos (vinculação de endereço) e quando eu clico ela abre o arquivo original. Gostei do exemplo do Sr Vieira será que posso fazer o mesmo com um arquivo corel? isto é mostrar uma miniatura vinculada a um endereço?

Vieira,

Acompanhei o tópico, já utilizava esse código para abrir uma tela e selecionar a foto, porém migramos para o 2010 e começou a dar erros.

Descobre que precisava alterar a declaração para Declare ptrSafe Function... Ai funcionou... Mas não abre a telinha para selecionar a foto.

Já coloquei a referência Microsoft 14.0 Object Library, mas sem chance, sou novo no access, preciso entregar um cadastro e estou preso nisso... Vc conhece algo sobre isso?

Nota: Não existe informação de erro e nem para o código, apenas vc clica e a telinha não abre!

Grato.

Tenho o mesmo problema..com o getopenfilename.. Mas a caixa abre...Só não fica "à frente" das outras todas...

clico no botão "Abrir"    Seleciono o ficheiro que quero.... tudo, muito bem....
Mas depis não aparece o caminho em DOS na caixa de texto

no "DEBUG"





Quando vou à ajuda.. vai para aqui (não tem nada a ver ....Acho eu...)
http://msdn.microsoft.com/pt-br/library/dd831853(v=vs.120).aspx

vi um exemplo...
em que aparece Aplication.getopenfilename()


http://msdn.microsoft.com/en-us/library/office/ff834966(v=office.15).aspx

agora pergunto:

isto é um método que pode ser chamado por um objecto do tipo "application" ou é estático e só pode ser "application.getopenfilename()" mesmo assim, isto bloqueia....

Isto já aconteceu a alguém?

Boa Tarde ....

Amigão faltou você informar o que o botão tem de abrir, ou seja, o nome do campo no getopenfilename, pois do jeito q esta ele da o get mas não encontra o parâmetro para abrir.
Experimente ver o código que postei acima e tente entender, qualquer coisa estamos aqui.


Abraços,

Mc FEba, Obrigado pela atenção,

Mas não consigo abrir o teu site..

Podes dar-me um pequeno exemplo?


Ps. Esquece, tá aqui neste tópico, lá em cima....


desculpa, e obrigado.

Bom dia a todos, já faz um tempo que eu não mexo com ACCESS, estou precisando de uma ajuda pois eu tenho um macro no Excel que puxa os dados de uma base MDF e gera as tabelas, estive analisando esta base do FEBA e vi que ela me atende, no entanto, como já faz tempo que eu não uso, nãio estou conseguindo corrigir um erro com os códigos que nosso amigo FEBA colocou acima, segue o erro.

"Erro de compilação:

Esta parte do código esta toda em vermelho em minha base.

Public Declare PtrSafe Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long