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


3 participantes

    [Resolvido]Gravar caminho do arquivo num Textbox

    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 08/01/2017

    [Resolvido]Gravar caminho do arquivo num Textbox Empty [Resolvido]Gravar caminho do arquivo num Textbox

    Mensagem  Edgar Massa 24/9/2019, 21:25

    Prezados

    Boa noite
    Como faço para gravar somente o caminho de um arquivo num textbox?

    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]Gravar caminho do arquivo num Textbox Empty Re: [Resolvido]Gravar caminho do arquivo num Textbox

    Mensagem  ifahidalgo 25/9/2019, 12:26

    copie e cole o codigo abaixo

    Código:
    Sub wzGetFileName()

       Dim wzhwndOwner As Long
       Dim wzAppName As String
       Dim wzDlgTitle As String
       Dim wzOpenTitle As String
       Dim wzFile As String
       Dim wzInitialDir As String
       Dim wzFilter As String
       Dim wzFilterIndex As Long
       Dim wzView As Long
       Dim wzflags As Long
       Dim wzfOpen As Boolean
       Dim ret As Long
       
       WizHook.Key = 51488399
       
       wzhwndOwner = 0&
       wzAppName = "Anexar Propostas"
       wzDlgTitle = "Abri o documento"
       wzOpenTitle = "Abrir o documento"
       wzFile = String(255, Chr(0))
       wzInitialDir = ""
       wzFilter = "Arquivos em PDF " _
       & "(*.pdf)"
       wzFilterIndex = 1
       wzInitialDir = CurrentProject.Path & "\"
       wzView = 1
       wzflags = 64
       wzfOpen = True

       ret = WizHook.GetFileName(wzhwndOwner, _
               wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
               wzInitialDir, wzFilter, wzFilterIndex, _
               wzView, wzflags, wzfOpen)
           
       ' Si no se ha pulsado el botón Cancelar (-302)
       If ret <> -302 Then
       Me.seu campo texto = wzFile 'aqui você coloca seu campo texto
       End If

    End Sub
    e no evento click de algum botão coloque

    wzGetFileName  'chama o codigo acima
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Gravar caminho do arquivo num Textbox Empty Re: [Resolvido]Gravar caminho do arquivo num Textbox

    Mensagem  Marcelo David 25/9/2019, 12:43

    Bom dia senhores.

    A nível de esclarecimento:
    TextBox não grava nada e sim exibe um texto seja do banco ou de qualquer outra forma.

    Imagino que você queira salvar o caminho no bando e exibir em uma textbox. E para isso
    há diversos exemplos prontos aqui.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Gravar caminho do arquivo num Textbox Marcel11
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 08/01/2017

    [Resolvido]Gravar caminho do arquivo num Textbox Empty Re: [Resolvido]Gravar caminho do arquivo num Textbox

    Mensagem  Edgar Massa 25/9/2019, 14:26

    Marcelo David
    Correto, só me exprimi errado.

    ifahidalgo
    O código funcionou perfeitamente, mais só precisava gravar o caminho, tirando o nome do arquivo. Laughing
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 08/01/2017

    [Resolvido]Gravar caminho do arquivo num Textbox Empty Re: [Resolvido]Gravar caminho do arquivo num Textbox

    Mensagem  Edgar Massa 25/9/2019, 15:40

    Consegui

    Ficou assim

    Dim fDlg As Office.FileDialog
    Dim lPasta As String

    Set fDlg = Application.FileDialog(msoFileDialogFilePicker)
    With fDlg
    .Title = "Selecione um diret?rio tempor?rio..."
    End With

    'Retorna a pasta selecionada
    If fDlg.Show = -1 Then
    lPasta = fDlg.SelectedItems(1)
    Me.txt_Diretorio = Left(lPasta, InStrRev(lPasta, "\", -1))
    End If

    Conteúdo patrocinado


    [Resolvido]Gravar caminho do arquivo num Textbox Empty Re: [Resolvido]Gravar caminho do arquivo num Textbox

    Mensagem  Conteúdo patrocinado


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