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]Localizar arquivo e inserir caminho no campo

    avatar
    Convidad
    Convidado


    [Resolvido]Localizar arquivo e inserir caminho no campo Empty Localizar arquivo e inserir caminho no campo

    Mensagem  Convidad 21/4/2012, 20:21


    Olá!

    Uso esta função para localizar uma foto e inserir o caminho no campo txtLocal.
    Funciona bem, mas precisa habilitar Referência.
    Queria uma opção que não fosse necessário referenciar uma biblioteca.


    Sub getFileName()
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Selecionar Foto"
    .Filters.Add "Todos os arquivos", "*.*"
    .Filters.Add "JPEGs", "*.jpg"
    .Filters.Add "Bitmaps", "*.bmp"
    .FilterIndex = 2
    .AllowMultiSelect = False
    .InitialFileName = fncOrigem(mRaiz) 'pasta raiz da aplicação
    result = .Show
    If (result <> 0) Then
    fileName = Trim(.SelectedItems.Item(1))
    Me.txtLocal.Visible = True
    Me.txtLocal.SetFocus
    Me.txtLocal.Text = fileName
    Me.txtLocal.Visible = False
    End If
    End With
    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]Localizar arquivo e inserir caminho no campo Empty Re: [Resolvido]Localizar arquivo e inserir caminho no campo

    Mensagem  criquio 21/4/2012, 20:26

    O problema é que o Access não possui esse recurso nativamente. Assim sendo, só mesmo através das bibliotecas. Outra opção é por uma API do Windows, mas, isso continua fazendo referência à um recurso externo.


    .................................................................................
    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]Localizar arquivo e inserir caminho no campo Empty Re: [Resolvido]Localizar arquivo e inserir caminho no campo

    Mensagem  Convidad 21/4/2012, 20:39


    Não tenho muita experiência nisso (como de resto Very Happy ).
    Esta que estou usando não vai funfar com runtime (sem office), certo?
    No caso, seria melhor usar a API?
    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]Localizar arquivo e inserir caminho no campo Empty Re: [Resolvido]Localizar arquivo e inserir caminho no campo

    Mensagem  criquio 21/4/2012, 20:43

    Essa deve funcionar no runtime sem problemas. Eu tenho usado e tem ocorrido tudo bem. O runtime costuma ter problemas é com macros e não com códigos vba, a não ser quando dá problemas de referências quebradas. Mas, se estiver tudo referenciado nos módulos e as bibliotecas presentes e registradas no pc, deve correr tudo sem problemas.


    .................................................................................
    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]Localizar arquivo e inserir caminho no campo Empty Re: [Resolvido]Localizar arquivo e inserir caminho no campo

    Mensagem  Convidad 21/4/2012, 20:52


    Valeu, Criquio. Põe na conta!

    Conteúdo patrocinado


    [Resolvido]Localizar arquivo e inserir caminho no campo Empty Re: [Resolvido]Localizar arquivo e inserir caminho no campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:18