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

    Como ignorar erro e continuar o Loop de coleta de dados

    Jerecardoso
    Jerecardoso
    Intermediário
    Intermediário


    Respeito às regras : 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  Empty Como ignorar erro e continuar o Loop de coleta de dados

    Mensagem  Jerecardoso 7/10/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!!!


    .................................................................................
    affraid affraid É isso ai affraid affraid
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  LiveBrain 7/10/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
    Jerecardoso
    Intermediário
    Intermediário


    Respeito às regras : 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  Empty Re: Como ignorar erro e continuar o Loop de coleta de dados

    Mensagem  Jerecardoso 7/10/2014, 18:25

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


    .................................................................................
    affraid affraid É isso ai affraid affraid

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:50