[Resolvido]Me.txtFoto gravado so com imagens e nao com C:/Windows......./imagens/

Boas a todos os membros.
Antes de mais quero felicitar a todos por contribuírem para este forum.
Tem sido de grande auxilio para o programa que estou fazendo.

Venho aqui pedir ajuda no seguinte:

Tenho um formulário de registro de artigos com opção de inserir foto.
Tenho o seguinte:

Private Sub InserirFoto_Click()
Dim strCaminho As String, strPastaInicial As String

strPastaInicial = CurrentProject.Path & "\imagens\"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.txtFoto = strCaminho
Me.foto.Picture = Me.txtFoto
Me.foto.Visible = True
Me.Contorno.Visible = False
End If

End Sub

O que precisava era o seguinte:

Quando escolho uma foto ele grava seu caminho em Me.txtFoto da seguinte maneira: "C:/Windows......./imagens/(nome da foto)" mas eu queria que gravace apenas como: "/imagens/(nome da foto)".

Depois tenho para carregar a foto: Me.foto.Picture = Me.txtFoto
Como fazer pra depois ele adicionar "C:/Windows......." ao resto: "/imagens/(nome da foto)".
Obrigado se puderem ajudar.

Ninguem sabe como me ajudar????

Boa tarde, Pedro, e bem-vindo ao fórum
O fórum é livre, apesar de ter muitos membros empenhados em ajudar. Não deve pedir solução já preparada. Aliás, não deve ter tido tempo para ler as regras do fórum.
Não entendo a razão de querer gravar só parte do caminho e, depois, querer voltar a adicionar o que retirou.
Deve guardar o caminho completo e, se precisar para outra finalidade, apenas a parte que queria gravar, aí sim, retire essa parte para não ser visível. Para tal, utilize a função mid juntamente com a função instr

Alexandre obrigado pela resposta.
eu nao pedi para me darem a resposta mas sim pra me ajudarem.
Porque quero retirar parte do caminho e depois voltar a adicionar? Simples
Esta base de dados que estou criando vou precisar trabalhar ela em varios pc dependendo de onde eu estou e os pc nao tem todos os mesmos nomes como é logico.
Se conseguir o que informei nao intereça onde eu colocar a base de dados pois ela ira buscar o local da base de dados e adicionar o resto que gravou.

Pedro,
Nem comento os comentários. Apenas aconselho a ler as regras do fórum e a cumpri-las.
Eu também mudo de computador de quando em vez e faço o seguinte:
- tenho tabela de Enderecos: Computador, PastaPrincipal, PastaParaImprimir, PastaDescargas, ...
- tenho função que me devolve o endereço: EnderecoComputador(optional PastaPrincipal as boolean,optional PastaParaImprimir as boolean, ...
- Quando preciso carregar endereço, chamo a função: xpto=enderecocomputador(,,true)

para retirar o prefixo, determine uma parte fixa do texto e, pelas funções que indiquei, retire o que não precisa
instr determina a localização da parte fixa
mid retira desde o inicio até à localização

para melhor explicar.
Dentro da pasta 1 tenho a base de dados e a pasta "imagens" que contem as fotos de todos os produtos.
Eu dou entrada de um produto e ele memoriza o local da foto tipo: C:\Users\pedro\Desktop\Pasta1\imagens\(nome da foto)

O PROBLEMA é que se eu for pro pc da empresa ele ja nao encontra as fotos pois o pc de la nao tem "pedro" como user.
Se fizer como estou tentando sempre que eu quiser visualizar um produto ele ira buscar o caminho onde a base de dados actual esta e adicionar "\imagens|(nome da foto) e ai ja abrira a foto.

Nao entendi bem isso do instr e mid em como aplicar em minha base de dados mas vou pesquisar
Obrigado por tudo e mais uma vez paço desculpa se fiz ou disse algo de errado. vou pesquisar as dicas que deste.

Neste caminho, tem sempre 'Pasta1'?
se for, obtém o prefixo assim Mid(str, 1, InStr(1, str, "Pasta1") - 1)

Alexandre por acaso a pasta1 foi exemplo mas a pasta que esta sempre e a partir da qual quero que fique gravado e a de "imagens".
estou estudando as ideias que me deste se descobrir algo de produtivo eu virei informar.
ja ando as voltas com este problema a um mês mas nao me darei vencido! rsrsrsr

Se não houver outra parte do caminho que possa confundir (p.ex. xxxxx/ImagensParticulares/2012/ImagensNovas/) ele pega a primeiro texto imagens que encontre
Coloca Mid(str, 1, InStr(1, str, "imagens") - 1)

ja fiz isso.
Mas para ser sincero ainda estou tentando perceber como utiliso:
Mid(str, 1, InStr(1, str, "imagens") - 1)
Para de:
C:\users\pedro\desktop\programa\imagens\(nome foto)
Me dê:
\imagens\(nome foto)
para poder gravar na tabela.
mas obrigado pois tua ajuda esta me dando algumas luzes....

str=C:\users\pedro\desktop\programa\imagens\(nome foto)
Mid(str, 1, InStr(1, str, "imagens") - 1) dá "C:\users\pedro\desktop\programa\"
Mid(str, InStr(1, str, "imagens") - 1) dá "\imagens\(nome foto)

ainda nao testei mas acredito que com essa grande ajuda vou conseguir chegar la.
assim que estiver a funcionar eu dou um ok.
Muito obrigado Alexandre

Alexandre
Muito obrigado por tudo. ja consegui.
Para gravar tenho no botão "inserir foto":

Private Sub InserirFoto_Click()
Dim strCaminho As String, strPastaInicial As String, strpasta As String

strpasta = CurrentProject.Path
strPastaInicial = CurrentProject.Path & "\imagens\"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.txtFoto = Mid(strCaminho, InStr(1, strCaminho, "imagens") - 1)
Me.txtFoto2 = strpasta & Me.txtFoto
Me.foto.Picture = Me.txtFoto2
Me.foto.Visible = True
Me.Contorno.Visible = False
End If

End Sub

E para depois ver tenho na caixa de combinação Loc_Reg:

Private Sub Loc_Reg_AfterUpdate()
On Error Resume Next
If Loc_Reg.Value > 0 Then
strsql = "SELECT * from Stock where ID = " & Loc_Reg.Value
Set rs = db.OpenRecordset(strsql)
If Not rs.BOF Then
Me.txtQuantMin = rs("QuantMin")
Me.txtProd = rs("Produto")
Me.txtRef = rs("Referência")
Me.txtAcab = rs("Acabamento")
Me.txtQuan = rs("Quantidade")
Me.txtForn = rs("Fornecedor")
Me.txtFoto = rs("Foto")
Me.txtId = rs("ID")
End If

If IsNull(txtFoto) Or Me.txtFoto = "" Then
Me.foto.Visible = False
Me.Contorno.Visible = True
Else
Dim strpasta As String
strpasta = CurrentProject.Path
Me.txtFoto2 = strpasta & Me.txtFoto
Me.foto.Picture = Me.txtFoto2
Me.foto.Visible = True
Me.Contorno.Visible = False
End If
End If
End Sub

O que me permite mudar a pasta onde tenho a base de dados e a pasta imagens para onde quero e continuo sempre a ver as imagens dos artigos sem dar erro.

Muito obrigado e desculpem por tudo.