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

    avatar
    alexjc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro anterior Empty [Resolvido]Registro anterior

    Mensagem  alexjc 22/5/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro anterior Empty Re: [Resolvido]Registro anterior

    Mensagem  Alvaro Teixeira 23/5/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
    avatar
    alexjc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro anterior Empty Re: [Resolvido]Registro anterior

    Mensagem  alexjc 23/5/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||
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro anterior Empty Re: [Resolvido]Registro anterior

    Mensagem  Alvaro Teixeira 23/5/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:
    https://www.maximoaccess.com/t29281-localizar-em-caixa-de-listagem

    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 24/5/2017, 13:04, editado 1 vez(es)
    avatar
    alexjc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro anterior Empty Re: [Resolvido]Registro anterior

    Mensagem  alexjc 24/5/2017, 13:00

    ok
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Registro anterior Empty Re: [Resolvido]Registro anterior

    Mensagem  Alvaro Teixeira 24/5/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 Regras do Fórum.

    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.
    [Resolvido]Registro anterior 036
    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

    Conteúdo patrocinado


    [Resolvido]Registro anterior Empty Re: [Resolvido]Registro anterior

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:09