[Resolvido]Imagem nao aparece no formulario

Boa tarde!
Deposi de muto procurar aqui no site e nao encontrar nada parecido com oque busco mais uam vez recorro aos mestres..
Preciso fazer xcomque a imagem do produto seja carregao no formulario, mas ao que percebi isso não funciona em forms desvinculados.
Digo pois qundo ytento fazer isso em um form vinculado diretamente a tabela funciona.
Porem meu sistema inteiroe sta baseado em forms desvinculados..
Alguem saberia em dizer como fazer isso em um form desvinculado?
esotu paostando eume xemplo par que possam enteder melhor.
Descompacte em c:\Base de Dados

segue as tabelas

alguem tem alguma ideia/?

O Access foi feito para trabalhar vinculado. Não tem como escapar!

Dito isto, use tabelas temporárias para vínculos temporários.

Desculpe damasceno mas fiquei completamente perdido com sua explicão
Criara tabela temporaria?
Em que isso vai ajudar a trazer a imagem?

Baixei seus arquivos e as tabelas não vieram.

Ola Damasceno vou verificar

sehue as tabelas desculpe

Alguma sugetsão?

para imagem aparecer depois que vc encontra a imagem é so acrescentar no final

Me!ImageFrame.Picture = Me![TxFoto]

Código:

Sub getFileName()
    ' Displays the Office File Open dialog to choose a file name
    ' for the current employee record.  If the user selects a file
    ' display it in the image control.
    Dim FileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Selecione uma ImageFrame"
        .Filters.Add "All Files", "*.*"
       ' .Filters.Add "JPEGs", "*.jpg"
       ' .Filters.Add "Bitmaps", "*.bmp"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = "C:\BaseDados\Fotos"
        result = .Show
        If (result <> 0) Then
            FileName = Trim(.SelectedItems.Item(1))
            Me![TxFoto].visible = True
            Me![TxFoto].SetFocus
            Me![TxFoto].Text = FileName
            Me![TxDescricao].SetFocus
            Me![TxFoto].visible = False
            Me!ImageFrame.Picture = Me![TxFoto]
        End If
    End With
End Sub


vc pode também colocar um evento ao atualizar que também funciona, seria algo assim

Private Sub Form_Current()

On Error Resume Next

If IsNull(Me.txtcaminho1) Then
Me.foto01.Picture = strpastainicial & "arquivos\icones_sistema\sem_foto.jpg"
Else
Me.foto01.Picture = strpastainicial & Me.txtcaminho1
End If

end sub

Prezado Nois!
Muito obrigado ao que parece funcionou eu testando aqui, e analisando melhor o codigo vi que preciso fazer4 uams alterações.
volto a dar um retorno assim que confirmar.
que tudo esta certo.

voltando para encerrar o topico.
Eu estava usando formulario vinculado pois alguem pois uam das resposta aqui do topico e que so funcioanria com forms vincualdos.
volteia a trablhar com form desvinculadop refiz todos os meus códigos, para cadastrar , buscar ou alterar o produtoe coma ajuda do amigo NOIS
deu certo.
Topico encerrado

Agradecemos o retorno