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

    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Percorrer valores do campo Empty [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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Percorrer valores do campo Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Percorrer valores do campo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Percorrer valores do campo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Percorrer valores do campo Folder_announce_new Instruções SQL como utilizar...
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Percorrer valores do campo Empty 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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Percorrer valores do campo Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Percorrer valores do campo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Percorrer valores do campo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Percorrer valores do campo Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

    [Resolvido]Percorrer valores do campo Empty Re: [Resolvido]Percorrer valores do campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/5/2019, 04:27