MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Como ignorar erro e continuar o Loop de coleta de dados

    Compartilhe

    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    Como ignorar erro e continuar o Loop de coleta de dados

    Mensagem  Jerecardoso em Ter 07 Out 2014, 17:48

    Prezados !!
    Boa tarde!

    Mais uma vez  gostaria  do auxilio de vocês se possível.


    tenho o Seguinte Codigo.


    *********************************************************************************
    Dim novoDir As String, ImportFile As String, Base_Name As String

    novoDir = "\\sgdprd\sgd\transmitido\avisodes" 'Diretório Origem dos Arquivos'
    ImportFile = Dir(novoDir & "\*.txt") 'Selecionar todos arquivos texto'

    Do While Len(ImportFile) > 0

       Base_Name = Left(ImportFile, (InStr(1, ImportFile, ".") - 1)) 'Identificar o nome do arquivo implantado'
       DoCmd.TransferText acImportDelim, "Jere", "TB_IMPORTACAO", ImportFile 'Comando p/ import. Lay-out pré-definido, Tabela Final - TBL_TEMP'

       ImportFile = Dir
       
    Loop
    Exit Sub
    *********************************************************************************


    Ele roda legal,  e traz  os dados dos blocos de nota, porem
    vira e meche da erro e para a importação,

    seria possivel adaptar o codigo para ignorar o erro e continuar a inportação ?




    desde sempre obrigado!!!


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.] É isso ai [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Como ignorar erro e continuar o Loop de coleta de dados

    Mensagem  LiveBrain em Ter 07 Out 2014, 17:56

    Tente colocar na primeira linha do seu código a instrução

    Código:
    On Error Resume Next

    O mais certo seria ver porque está ocorrendo o erro e tentar fazer o tratamento desse erro


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    Jerecardoso
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 12/07/2013

    Re: Como ignorar erro e continuar o Loop de coleta de dados

    Mensagem  Jerecardoso em Ter 07 Out 2014, 18:25

    Sim ..
    ele informa que não está localizando o Arquivo X e não da sequencia no loop.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.] É isso ai [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 03 Dez 2016, 19:38