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]Registro anterior

    Compartilhe

    alexjc
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 23/02/2016

    [Resolvido]Registro anterior

    Mensagem  alexjc em Seg 22 Maio 2017, 23:14

    pessoal tenho o programa que percorre um arquivo txt e faz as alterações que desejo.

    tenho um loop que percorre um arquivo

    exemplo
    REG   COD   PRODUTO
    |0200|1250|Produto1
    |0200|1251|Produto2
    |c100|XXX|xxxxxxxxxx
    |c170|1250|produto1
    |C170|1251|Produto2

    eu gostaria que ele ao percorrer o arquivo e verificar  no registro |0200|1250|Produto1 e comparar com o Registro |c170|1250|produto1

    ja tentei colocar uma variavel mas ela só esta lendo o primeiro registro 0200
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Registro anterior

    Mensagem  ahteixeira em Ter 23 Maio 2017, 08:46

    Olá Alex Carvalho,
    Mostre o código utilizado para correr os registos.
    Se possível, poste exemplo para se testar.

    Por ultimo o que pretende comparar e em que circunstancias.
    Abraço

    alexjc
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 23/02/2016

    Re: [Resolvido]Registro anterior

    Mensagem  alexjc em Ter 23 Maio 2017, 22:47

    Private Sub Comando59_Click()
    DoCmd.Requery

    Dim i As Integer
    For i = 1 To Me.Lista57


    aqui que esta faltando uma logica que eu não sei tipo toda vez que ele chegar registro C170 e for verificado que o campo11 for igual a 1556
    então no registro 0200 com o mesmo codigo passa a valer 01

    cara esse problema é bem complexo para min, mas seria de muita importância se eu conseguir fazer


    End If
    DoCmd.GoToRecord , , acNext
    Next

    End Sub


    |0200|44938|BARRA DIRECAO COMPLETA (CONJ BARRAS)|||UN|00|87089990||87||||
    |C100|0|1|0181800000|55|00|014|168093|51170137525771001427550140001680931001645360|02012017|02012017|522|1|0|0|522|2|0|
    |C170|1|44938||1|UN|522|0|0|260|1556|81|0|0|0|0|0|0|0|||||||0|0|0|0|0||0|0|0|0|0||
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Registro anterior

    Mensagem  ahteixeira em Ter 23 Maio 2017, 23:15

    Olá Alex, não estou a ver o código com o loop.
    Também refere que é um ficheiro txt.
    Pelo "pouco" código que postou, vou presumir que tem a leitura dos registos feita para a Lista57.
    Veja se ajuda para localizar:
    [Você precisa estar registrado e conectado para ver este link.]

    Quanto ao campo se estiver na Lista57 pela ordem que postou tente:

    Código:
    SeuCampo=me.Lista57 .column(8)

    8 é a coluna nove, pois inicia no zero.
    Abraço


    Última edição por ahteixeira em Qua 24 Maio 2017, 13:04, editado 1 vez(es)

    alexjc
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 23/02/2016

    Re: [Resolvido]Registro anterior

    Mensagem  alexjc em Qua 24 Maio 2017, 13:00

    ok
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Registro anterior

    Mensagem  ahteixeira em Qua 24 Maio 2017, 16:32

    Olá Alex Carvalho,

    Obrigado pelo retorno, um simples Ok, mas desta vez pelo menos deu o tópico como resolvido.

    Já é usuario desde 02/2016, um pouco ausente, pelo que recomendo vivamente a leitura das [Você precisa estar registrado e conectado para ver este link.].

    Podemos verificar no quadro abaixo que tem vários tópicos abertos o qual não deu continuidade, os usuários que o tentam ajudar merecem mais respeito.
    [Você precisa estar registrado e conectado para ver este link.]
    A razão deste fórum é a inter-ajuda e partilha do conhecimento, pelo que recomendo que reveja a conduta que tem adotado.

    Abraço e bons estudos com o MaximoAccess Wink

      Data/hora atual: Sab 18 Nov 2017, 19:19