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

    Como ignorar erro e continuar o Loop de coleta de dados

    Compartilhe
    avatar
    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.]
    avatar
    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"
    avatar
    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: Qui 17 Ago 2017, 12:48