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]Abrir caixa de diálogo e buscar arquivo

    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    [Resolvido]Abrir caixa de diálogo e buscar arquivo Empty [Resolvido]Abrir caixa de diálogo e buscar arquivo

    Mensagem  annissima 15/3/2020, 00:45

    Olá!

    Tenho um form que envia e-mails e anexa arquivos conforme um campo que exibe o caminho do arquivo.
    Porém eu tenho que colocar manualmente esse caminho.

    Alguém sabe me ajudar a fazer algo assim:

    Ao clicar no campo de texto, ele abre uma janelinha de seleção de arquivo, e eu seleciono o que quero (no computador), e assim ele cola o caminho do arquivo para o campo?
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 14/08/2011

    [Resolvido]Abrir caixa de diálogo e buscar arquivo Empty Re: [Resolvido]Abrir caixa de diálogo e buscar arquivo

    Mensagem  leoni_dias 15/3/2020, 01:31

    Boa noite,

    Nos meus forms eu uso assim:

    With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Selecionar o documento em PDF para inclusão"
    .Filters.Clear
    .Filters.Add "PDFs", "*.pdf" '(NESSE CASO O CÓDIGO ESCOLHE ARQUIVOS JPG. É SÓ MUDAR)
    .FilterIndex = 1
    .AllowMultiSelect = False
    .InitialFileName = "C:\"
    If .Show = True Then '(Result <> 0) Then
    [SEU CAMPO] = Trim(.SelectedItems.Item(1)) '(AQUI O SEU CAMPO RECEBE O CAMINHO DO ARQUIVO)
    End If
    End With
    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    [Resolvido]Abrir caixa de diálogo e buscar arquivo Empty Re: [Resolvido]Abrir caixa de diálogo e buscar arquivo

    Mensagem  annissima 19/3/2020, 11:15

    Funcionou!!

    Obrigada!


    Conteúdo patrocinado


    [Resolvido]Abrir caixa de diálogo e buscar arquivo Empty Re: [Resolvido]Abrir caixa de diálogo e buscar arquivo

    Mensagem  Conteúdo patrocinado


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