[Resolvido]Consulta com uma função de aprovação em lote.

Olá galera, estou precisando de uma pequena ajuda(para mim Grande).

Tenho uma consulta que ao ser executada me retorna em informação unitaria de cada registro via formulario, com navegador de registro para que possamos ir para o proximo item da resultante da consulta.

Em cada registro da consulta ha um campo do tipo sim/não, para que possamos efetuar a aprovação do registro.

O que desejo: No formulario resultante de consulta estou querendo criar um botão que chame uma função. Essa função, deve executar a aprovação no campo tipo "sim/não" de todos os registros resultante da consulta em que o campo "id_numero" tem o valor como: "Allow". Ou seja.: uma aprovação em lote, nos registros resultado da consulta.

Estou tentando mais não consegui ainda, estou tentando criar via função.

Se alguem puder ajudar agradeço. Obrigado.

Acredito que você vai conseguir isto em formulário.
adapta o código ai.

Código:

Private Sub SeuBotão_Click()
Dim rst As Recordset
'formuario
'Set rst = Me.Recordset
'fazendo referencia ao sub formulario
Set rst = Me.seuSubFrm.Form.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst


If Me.sobra < Me.qntSaida Then
Me.Baixa = False

Else
If Me.sobra >= Me.qntSaida Then

Me.Baixa = True
End If
End If
.MoveNext
End With
Loop
Set rst = Nothing

End Sub

@scandinavo, estudei o codigo que vc enviou e fiz algumas mudanças quebrei um pouco a cabeça mais fiz o codigo abaixo que funcionou da forma que eu desejava. Vlw Obrigado pelo suporte.


Private Sub Comando107_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT nrDocumento, campo1, campo2, campo3 FROM BDados WHERE Campo3=true and Campo2 = false")
Do While Not rs.EOF
rs.Edit
If rs.Fields("Campo1") = "Aprovado" Then
rs.Fields("Campo2") = True
End If
rs.Update
rs.MoveNext
Loop

Set rs = Nothing
Set db = Nothing
End Sub

É isto fazendo e aprendendo.

Valeu pelo retorno