MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Funcionamento da condição Do While

    Compartilhe

    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    [Resolvido]Funcionamento da condição Do While

    Mensagem  HugoLuiz em Sab 14 Mar - 12:45

    Boa tarde Galera do fórum.

    tenho uma TABELA1 que possui vários registro.

    como que eu faço uma condição Do While para percorrer todos os campos da tabela?

    se não for pedir de mais gostaria que colocassem a condição comentada como funciona cada parte.


    Desde já agradeço

    halmeida
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 07/08/2011

    Re: [Resolvido]Funcionamento da condição Do While

    Mensagem  halmeida em Sab 14 Mar - 18:40

    Vamos lá:

    Código:

    '--------------------------
    'declaração de variáveis
    '--------------------------
    Dim i as integer
    Dim rs as recordset
    '------------------
    'acessar a tabela
    '------------------
    set rs= currentdb.openrecordset ("TABELA1")'currentdb refere-se ao banco de dados atual. A função openrecordset abre a conexão com TABELA1.
    i=1'inicia a variável que indicará a posição do registro atual
    '------------------------------------------------------------------
    'faz o teste para verificar se existem registros na TABELA1.
    '------------------------------------------------------------------
    DO WHILE NOT rs.EOF 'executa o procedimento abaixo enquanto não for nulo o número de registros na tabela
    '------------------------------------------------------------------
    ' esta caixa de mensagem informa o conteúdo do registro da TABELA1, na primeira coluna. para visualizar o conteúdo das demais colunas trocar para rs(1), rs(2) e assim por diante.
    msgbox "O conteúdo do registro & i & " é " & rs(0)
    rs.movenext 'vai para o próximo registro
    i=i+1
    loop 'repete a função
    set rs=nothing 'fecha conexão com a TABELA1

    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    Re: [Resolvido]Funcionamento da condição Do While

    Mensagem  HugoLuiz em Sab 14 Mar - 20:57

    Obrigado pela ajuda halmeida Smile Smile

      Data/hora atual: Dom 4 Dez - 16:22