MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 caminho do arquivo num Textbox

    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Edgar Massa em 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 100%

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

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

    Mensagem  ifahidalgo em 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 100%

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

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

    Mensagem  Marcelo David em 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.


    .................................................................................
    Marcelo David | [Resolvido]Gravar caminho do arquivo num Textbox LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Edgar Massa em 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 100%

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

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

    Mensagem  Edgar Massa em 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

      Data/hora atual: 28/11/2020, 10:31