[Resolvido]Executar um codigo para varios registros filtrados no formulario

Ei galera boa tarde! Será que alguém pode me ajudar????

Tenho um formulário com 03 combos para selecionar dados de minha tabela principal.Ao preencher as combos clico em um botão que atualiza as informações do formulário que está no modo "varios ítens" e são carregadas as informações solicitadas pelas combos.

Em cada linha filtrada pelas combos tem um campo que chamo de "fechado".Tenho um botão que se chama "fecha compra", que ao clicar no mesmo executa o código abaixo:

private sub fecha_compra_click()

me.nrpedido = [tipo_de_compra] & [empresa] & [dt_leitura] & [vencimento]
me.fechado = true

end sub

Até ai tudo bem, mas quando tenho vários registros tenho que marcar a linha e clicar no botão "fecha compra" , marcar a segunda linha e clicar no botão "fecha compra" e assim por diante.

Gostaria de saber se vc pode me ajudar a criar um código do tipo "marcar tudo" e ao clicar no botão "fecha compra" o código pretendido será executado em todos os registros selecionados.

Quando você diz "marcar linha", o que exatamente quer dizer? Há um checkbox a ser marcado? Bom, de qualquer forma, acredito que tenha um campo aonde fica marcado "compra fechada". Se assim for e assim sendo, você pode usar algo assim:

Código:

Dim rs As Recordset

Set rs = Me.RecordsetClone

Do While Not rs.EOF
    rs.Edit
    rs!NomeDoCampo = "Compra fechada"
    rs.Update
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Mais ou menos isso. Veja se consegue adaptar.

Alexandre/Criquio

Muito obrigado pela atenção, fiquei muito envolvido no projeto que me esqueci de agradecer pela boa vontade em ajudar. Após estudar mais percebi que bastava eu colocar o código Me.Form.Recordset.MoveNext para ele mover o cursor para o próximo registro, e caso eu queira executar o comando clico no botão "fechar compra".


me.nrpedido = [tipo de compra] & [empresa] & [dt leitura] & [vencimento]
me.fechado = true

On Error Resume Next
Me.Form.Recordset.MoveNext