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]Selecionar diretorio e arquivo a ser importado

    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Selecionar diretorio e arquivo a ser importado Empty [Resolvido]Selecionar diretorio e arquivo a ser importado

    Mensagem  gabrielpn06 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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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:
    https://www.maximoaccess.com/t26911-importar-planilha-excel-informando-a-tabela-de-destino-a-folha-sheets-de-origem-e-localizando-o-documento-excel?highlight=importar


    .................................................................................
    _____________________________________________________________________
    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!
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  gabrielpn06 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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  gabrielpn06 19/1/2018, 13:28

    Bom dia, desculpa a demora. Consegui, muito obrigado!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  gabrielpn06 19/1/2018, 16:43

    Até!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 05:57