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]Percorrer valores do campo

    Compartilhe
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 08/10/2012

    [Resolvido]Percorrer valores do campo

    Mensagem  Sidney em 21/11/2018, 20:53

    Pessoal, Boa tarde!!

    Estou tentanto percorrer todos os valores de um determinado campo, porém, não está imprimindo todos os valores existentes, estou usando o código abaixo, na tabela exitem 737 registro unicos, e só imprime 199, oque está errado?


    Código:
    Dim Rst As Recordset
    'Obtendo todos os registros da tabela
    Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tab_Principal")
    'Percorrendo a tabela
    Do While Not Rst.EOF

        Debug.Print Rst.Fields("CodSistema").Value
        valor = Rst.Fields("CodSistema").Value
        Rst.MoveNext
        
    Loop
    Set Rst = Nothing
                
    End Sub


    att; Sidney
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10283
    Registrado : 04/11/2009

    Re: [Resolvido]Percorrer valores do campo

    Mensagem  JPaulo em 22/11/2018, 13:30

    Ola;

    O seu trecho de código está bem, mas não está completo, abaixo a correção.

    No entanto o limite de linhas na janela immediate do VBA são apenas 200.

    Código:
    Dim Rst As Recordset
    'Obtendo todos os registros da tabela
    Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tab_Principal")
    'Valida se tem registros
    If Rst.RecordCount = 0 Then Exit Sub
    'Se tiver registros percorre a tabela
      Rst.MoveLast
      Rst.MoveFirst
    'Inicia o loop
    Do While Not Rst.EOF
        Debug.Print Rst.Fields("CodSistema").Value
        valor = Rst.Fields("CodSistema").Value
        Rst.MoveNext
    Loop
    Rst.Close: Set Rst = Nothing


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 08/10/2012

    Re: [Resolvido]Percorrer valores do campo

    Mensagem  Sidney em 22/11/2018, 14:03

    Bom dia! JPaulo,

    Não sabia desse limite na janela de verificação, e obrigado pela melhoria no código.

    att; Sidney
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10283
    Registrado : 04/11/2009

    Re: [Resolvido]Percorrer valores do campo

    Mensagem  JPaulo em 22/11/2018, 14:04

    Obrigado pelo retorno.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 16/12/2018, 11:21