MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Caminho de pasta

    avatar
    Walter Florencio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 06/07/2013

    [Resolvido]Caminho de pasta Empty Caminho de pasta

    Mensagem  Walter Florencio 26/7/2013, 23:14

    Caros colegas. Boa Noite. Estou enfrentando um problema e gostaria da ajuda dos mais experientes.
    No meu sistema (que uso no mesmo pc), tendo o front end e o back end. No back end tenho uma tabela onde cadastro pessoas e nela
    um campo onde guardo o nome das fotos. No front end tenho uma pasta fotos onde salvo as fotos. Para visualizar as fotos a medida que
    percorro os registros uso o "Application.CurrentProject.Path" e concateno com a pasta Foto e aí tenho o caminho relativo e
    posso visualizar as fotos. Pois bem. Preciso colocar o sistema em rede e para isso vou colocar o back end em um pc e devo
    colocar também a pasta fotos neste servidor, para que todos possam acessar e quando um dos usuários adicionar alguma foto
    ela fique visível para todos. Aí é onde está pegando. Como fazer para, estando nas estações, eu possa acessar uma pasta no back end (em outro pc). Existe alguma função. Se sim poderiam me auxiliar como usá-la. Obrigado. Aguardo retorno.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Caminho de pasta Empty Re: [Resolvido]Caminho de pasta

    Mensagem  Avelino Sampaio 27/7/2013, 08:16

    Olá!

    Estando a pasta de fotos na mesma pasta que armazena o back-end, facilitaria bastante.
    E se vc usa tabelas vinculadas, pode usar a função abaixo para extrair o local do back-end

    Public Function fncLocalPastaBe(strNomePasta as string) As String
    Dim strCon As String
    On Error GoTo trataerro

    strCon = CurrentDb.TableDefs("NomeDeUmaTabelaVinculada").Connect
    strCon = Right$(strCon, (Len(strCon) - (InStr(1, strCon, ";DATABASE=", 2) + 9)))
    fncLocalPastaBe = mid(strCon,1,instrRev(strCon,"\")) & strNomePasta & "\"

    sair:
       Exit Function
    trataerro:
       MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
       Resume sair:
    End Function


    Para montar o endereço da foto, use assim:

    Me!CampoFoto.picture =  fncLocalPastaBe("fotos") & me!CampoNomeFoto

    Sucesso!


    Última edição por Avelino Sampaio em 27/7/2013, 13:41, editado 1 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Walter Florencio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 06/07/2013

    [Resolvido]Caminho de pasta Empty RE-Pastas

    Mensagem  Walter Florencio 27/7/2013, 13:38

    Caro Avelino. Bom dia. Eu procurando não incomodar demais o amigo e veja no que dá. kkkk. Obrigado mais uma vez meu irmão. Vou testar (nem precisa) e retorno em seguida.
    avatar
    Walter Florencio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 06/07/2013

    [Resolvido]Caminho de pasta Empty RE - Caminho da pasta

    Mensagem  Walter Florencio 28/7/2013, 01:23

    Caro Avelino. Boa noite. Obrigado mais uma vez, deu certo.

    Mais uma coisa.

    Como faria para extrair de uma string, apenas uma parte dela. Por exemplo:

    strCaminho = "D:\Meus documentos\Caixa\NOME DA FOTO.JPG"
    tentei usando a função MID que funcionou assim: Me.LocalFoto = Mid(strCaminho, 25) que retornou "NOME DA FOTO.JPG", no entanto
    seu eu mudar o caminho, seja aumentando ou diminuindo o resultado dá errado.

    Observei no seu exemplo anterior o uso da função InstrRev(), que retorna a posição de uma ocorrência de uma sequência de caracteres dentro de outra, a partir do final da sequência de caracteres. Seria uma mão na roda, pois bastava fazer como vc ensinou, parando no primeiro "\", do
    final para o início, e pronto. No entanto ela retorna um número. Como fazer para retorna a partir do último "\", a sequencia de caracter (NOME DA FOTO.JPG), pois desta forma não faria diferença o caminho onde estava a foto.

    Obrigado.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Caminho de pasta Empty Re: [Resolvido]Caminho de pasta

    Mensagem  Avelino Sampaio 28/7/2013, 07:29

    Experimente:

    = right(strCaminho,len(strCaminho)-instrRev(strCaminho,"\"))


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Walter Florencio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 06/07/2013

    [Resolvido]Caminho de pasta Empty RE

    Mensagem  Walter Florencio 28/7/2013, 17:19

    Boa tarde a todos. Avelino, mais uma vez resolvido o problema. Obrigado.

    Conteúdo patrocinado


    [Resolvido]Caminho de pasta Empty Re: [Resolvido]Caminho de pasta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 00:52