MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Selecionar diretorio e arquivo a ser importado

    Compartilhe
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 17/01/2017

    [Resolvido]Selecionar diretorio e arquivo a ser importado

    Mensagem  gabrielpn06 em 17/1/2018, 12:41

    Bom dia amigos, mais uma vez recorro a ajuda de vocês!

    Tenho em meu projeto, um formulário que possui uma combobox. No evento após atualizar, gostaria de que se o valor for igual a "Processado Parcialmente" então, seria aberta uma janela de seleção para que o usuário possa selecionar a pasta e o arquivo a ser importado para o banco.

    Tenho um código não obtive sucesso. Podem me ajudar?
    Desde já agradeço!


    Código:
    Private Sub Combinação11_AfterUpdate()

        If (Me.Combinação13) = "Processado Parcialmente" Then
        
            On Error GoTo Err_cmd_Arquivo_Click
            Dim endereco As String
            Dim abrirArquivo As New CommonDialog

                endereco = abrirArquivo.GetOpenFile(Me.Hwnd, "Selecione o arquivo a ser importado", "C:\Users\gabriel.p.lisboa\Desktop\Gerenciador de Filas - Construção\Input\")
            If Len(endereco) > 0 Then
            txt_Arquivo = endereco
            Else
            txt_Arquivo = vbNullString
            End If

            Me.Recalc
            Me.Repaint
            Me.Requery

    Exit_cmd_Arquivo_Click:
            Exit Sub
    Err_cmd_Arquivo_Click:
            MsgBox Err.Description, vbCritical + vbOKOnly, "Nº Erro - " & Err.Number
            Resume Exit_cmd_Arquivo_Click

        Else
            Exit Sub
        End If

    End Sub
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Selecionar diretorio e arquivo a ser importado

    Mensagem  FabioPaes em 17/1/2018, 17:25

    Então amigo, acredito que pode fazer uma condição If... que analisará o valor do campo, qnd encontrar o valor esperado ele Abre o formulário para Localização do Arquivo e já joga o caminho completo do arquivo em um campo xxx do Formulário Principal. Ao fechar o Formulário de localizar o Arquivo, o código dá sequencia. Para que o Código espere o formulário ser fechado para continuar a leitura das Linhas basta o Formulário ser aberto em modo acDialog

    Veja um Exemplo:
    No clique de um Botão, coloque para Abrir o Formulário2 e em seguida Emitir uma mensagem.
    A Mensagem Só será emitida quando o Usuario fechar o Formulário2

    DoCmd.OpenForm "formulário2", , , , , acDialog
    MsgBox "XXX"


    Para Localizar o arquivo, veja esse Exemplo bem completo que fiz:
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 17/01/2017

    Re: [Resolvido]Selecionar diretorio e arquivo a ser importado

    Mensagem  gabrielpn06 em 17/1/2018, 18:48

    Então, a parte da abertura da janela e seleção do arquivo já consegui, o que ainda está dando errado é a extensão do arquivo. Preciso que seja importado um arquivo.txt
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Selecionar diretorio e arquivo a ser importado

    Mensagem  FabioPaes em 17/1/2018, 19:34

    Esse Exemplo que indiquei, esta pronto e filtrando .xls* pode utilizar o mesmo, mudando apenas a extensão .txt.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 17/01/2017

    Re: [Resolvido]Selecionar diretorio e arquivo a ser importado

    Mensagem  gabrielpn06 em 19/1/2018, 13:28

    Bom dia, desculpa a demora. Consegui, muito obrigado!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Selecionar diretorio e arquivo a ser importado

    Mensagem  FabioPaes em 19/1/2018, 16:30

    Que bom que deu certo! Até a próxima se Deus quiser!!!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 17/01/2017

    Re: [Resolvido]Selecionar diretorio e arquivo a ser importado

    Mensagem  gabrielpn06 em 19/1/2018, 16:43

    Até!

      Data/hora atual: 23/7/2018, 18:22