[Resolvido]percorrer registros

Boa noite,

Tenho um formulário em modo folha de dados e eu gostaria que assim que abrisse ele, tivesse uma rotina que percorresse todos os todos os registros dele.

Obrigado

Detalhe melhor o que você precisa, por favor. Para que precisa percorrer os registros? Que resultado precisa?

No FORM_CURRENT ele ira atualizar os campos do form, é como se fosse um loop repedindo para passar para o proximo registro.


Obrigado

Altair,

A questão continua sem objetivo, vai percorrer e fará o quê exatamente?, pois se for para atualizar, a ação de abrir já faz isso.

Tens que reformular dizendo que ao percorrer encontrará por exemplo uma situação (isso faz aquilo), ou, os registros de (tal forma ficaram de outra forma), mais ou menos assim.

Existe o form "pedidos", quero que a função percorra todos os registros desse formulário, como se eu estivesse clicando no botão "próximo registro".
No evento "FORM_CURRENT" existe uma verificação do campo "status_pedido" se o campo status estiver como "liberado" o registro será gravado na tabela "pedidos_liberados". Por isso que tem a necessidade de percorrer todos os registros da tabela.

Obrigado.

Altair

Coloque aqui o seu BD ou parte que eu tenho um exemplo que se posso tentar aplicar

Agora sim, deu para entender o que você precisa
Se você der uma olhada nos tópicos e exemplos aqui disponíveis, encontrará exemplos para ilustrar o que você quer, precisando apenas adaptar. Ou então pode fazer conforme o Assis disse.

Obrigado a todos, fiz da seguinte usando uma forma do grande Jpaulo para percorrer os registros:

Private Sub Comando6_Click()
Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst





.MoveNext
End With
Loop
Set rst = Nothing
End Sub

Obrigado

Muito bom amigo. Esse é o espírito da coisa, pegar o anzol e trazer o pescado. Parabens!

Como posso atribuir um valor enquanto ele percorre os registros? Por exemplo, enquanto ele passa por todos, definir o atributo endereço com o valor "Av. Pedro Cardoso, 14".

Renan, não entendi. Quanto mais você detalhar o que precisa melhor será para entendermos.

Meu casso é o seguinte:

1) faço a importação de um documento txt e insiro cada linha em um registro no meu BD. Essa importação eu faço através de um form.

2) Com a importação, é gerado uma série de registros na tabela. Preciso que a cada registro não só coloque as informações contidas no txt, mas também algumas que estão no formulário. 

Por exemplo: o txt insere uma série de registros com três campos: nome, idade, sexo. No formulário informo a série e horário da aula, que é igual para todos. Pensei em após importar o txt, percorrer todos os registros inserindo a série e horário dos alunos.

Poste o código que está utilizando e os campos do formulário. Se os dados são os mesmos para todos os registros, pode ser que não precise gravar esses dados em tabela, economizando um precioso espaço no banco.

Código do Form:

Option Compare Database

Private Sub Bt_Importar_Click()
If caminho <> "" Then
    
    'Importa os dados para a tabela
    DoCmd.TransferText acImportFixed, "negImportacao", "AcaoManual", caminho
    
    MsgBox "Tabela importada com sucesso!", vbInformation
Else
    MsgBox "Selecione um arquivo!", vbInformation
End If

// A PARTIR DAQUI TENTEI PERCORRER OS CAMPOS E INSERIR OS DADOS DO FORMULARIO
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("AcaoManual")
rst.MoveFirst

Do While Not rst.EOF


Loop

Set rst = Nothing

End Sub



'Faz a busca do arquivo
Private Sub Bt_Localizar_Click()
  Dim Fd As Object
    
    Set Fd = Application.FileDialog(3)
    
    With Fd
        .Title = "Selecione o arquivo..."
        .ButtonName = "Selecionar"
        .Filters.Clear
        .Filters.Add "Documentos de texto (*.txt)", "*.txt"
        
        'Caso tenha selecionado o arquivo
        If .Show Then
            caminho = .SelectedItems(1)
        End If
    End With
    
    Set Fd = Nothing

End Sub

Os campos do formulário são: Corretora, FundoAplicador, Rebate, Drive. Esses dados não vem na importação, o usuário tem que informar. E depois disso, gero um outro relatorio em txt com dados da importação e do form.