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


    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem

    avatar
    Convidad
    Convidado


    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem Empty Gravar na tabela o caminho relativo do arquivo de imagem

    Mensagem  Convidad 26/5/2012, 01:18


    Olá

    Uso esta função para localizar determinado arquivo de imagem e inserir o caminho e nome do arquivo em uma TextBox acoplada no formulário.

    Conforme comentário no código, quero que o retorno da caixa de diálogo seja apenas o nome do arquivo, e não o caminho completo.
    Quero gravar na tabela o caminho relativo, para que, se a pasta do aplicativo for movida, são se percam os endereços das imagens.


    Sub getFileName1()
    On Error GoTo Trato

    ' necessário referenciar Microsoft Office 11.0 Object Library
    ' Exibe a caixa de diálogo Abrir arquivo a fim de escolher um nome
    ' de arquivo para t2Foto1Local. Se o usuário selecionar um arquivo,
    ' essa função o exibe no controle Imagem1.

    Dim FileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Selecionar Foto1"
    .Filters.Add "Todos os arquivos", "*.*"
    .Filters.Add "JPEGs", "*.jpg"
    .Filters.Add "Bitmaps", "*.bmp"
    .FilterIndex = 2
    .AllowMultiSelect = False
    'fncOrigem = Application.CurrentProject.Path & strLocal
    'retorna X:\PastaDoSistema\Imagem\
    .InitialFileName = fncOrigem(mImagem)
    result = .Show
    If (result <> 0) Then
    'aqui retorna o caminho e o nome do arquivo
    'quero que FileName retorne apenas o nome do arquivo
    FileName = Trim(.SelectedItems.Item(1))
    Me.t2Foto1Local.Visible = True
    Me.t2Foto1Local.SetFocus
    Me.t2Foto1Local.Text = FileName
    Me.Park.SetFocus
    Me.t2Foto1Local.Visible = False
    Me.MsgFoto1.Visible = False
    Me.Imagem1.Visible = True
    Me.Imagem1.Picture = FileName
    End If
    End With

    Exit Sub
    Trato: ExplicaErro
    End Sub

    Obrigado!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem Empty Re: [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem

    Mensagem  criquio 26/5/2012, 01:30

    Você quer separar o caminho do nome do arquivo? Se for isso, já tentou usar o Split?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem Empty Re: [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem

    Mensagem  Convidad 26/5/2012, 03:17


    É isso mesmo: a partir do caminho completo, retornar só o nome do arquivo.

    Não estou conseguindo retornar a string após a última barra invertida.
    avatar
    Convidad
    Convidado


    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem Empty Re: [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem

    Mensagem  Convidad 26/5/2012, 03:47

    Norberto

    Use essa função:

    Código:

    Public Function SeparaDirArquivo(CaminhoCompleto As String, Retorna As Boolean) As String
    On Error Resume Next
        Dim Diretório, Arquivo As String
        Dim total As Long
        total = Len(CaminhoCompleto)
        Do While total > 0
            If Mid(CaminhoCompleto, total, 1) <> "\" Then
                Arquivo = Mid(CaminhoCompleto, total, 1) & Arquivo
                total = total - 1
            Else
                Diretório = Mid(CaminhoCompleto, 1, total)
                Exit Do
            End If
        Loop
        If Retorna = False Then
            SeparaDirArquivo = Diretório
        Else
            SeparaDirArquivo = Arquivo
        End If
    End Function

    Uso:
    SeparaDirArquivo("D:\Trabalhos\Teste_Balem.accdb",False)
    Returna: D:\Trabalhos\

    SeparaDirArquivo("D:\Trabalhos\Teste_Balem.accdb",True)
    Retorna: Teste_Balem.accdb

    Abraços
    avatar
    Convidad
    Convidado


    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem Empty Re: [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem

    Mensagem  Convidad 26/5/2012, 04:10


    Mas que função buenacha!

    Resolvido, e obrigado!

    avatar
    Convidad
    Convidado


    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem Empty Re: [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem

    Mensagem  Convidad 26/5/2012, 04:12


    "Tamos ai", Gaudério!

    Boa sorte!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem Empty Re: [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem

    Mensagem  criquio 26/5/2012, 12:26

    Utilizando o Split conforme mencionei, seria assim:

    Código:
    Dim Caminho As Variant, nArq As String

    Caminho = Split(CaminhoCompleto, "\")
    nArq = Caminho(UBound(Caminho))
    Fica aí como mais uma opção.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem Empty Re: [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem

    Mensagem  Convidad 26/5/2012, 15:45


    Funcionou também, criquio.

    Pensei que resolvia com Split, mas faltava a UBond.

    Grato!


    Conteúdo patrocinado


    [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem Empty Re: [Resolvido]Gravar na tabela o caminho relativo do arquivo de imagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:39