[Resolvido] Alterar registros do Subformulário através de Combobox no formulário Principal.

Boa tarde Nobres Colegas, venho até aqui mais uma vez recorrer à ajuda dos senhores, tenho um BD para cautela de objetos, e estou com uma dúvida, tenho duas tabelas uma de registro e outra de cautela, a TB de Registro vai ser inserido o usuário que vai pegar os objetos e a TB cautela vai ser inseridos os objetos emprestados.

Para isso tenho um formulário principal aonde lanço o usuário que esta ligado a TB registro e um subformulário modo folha de dados aonde lanço os objetos que vai ser emprestados que esta ligado a TB cautela. Ambas tabelas estão relacionadas.

Minha dúvida é quando os objetos são entregues no subformulário existe a opção "Entregue" para essa opção eu uso uma caixa de seleção SIM/NÃO para cada item que foi cadastrado.

Para facilitar o trabalho no formulário principal tem uma lista de combinação com a pergunta "todos os objetos foram entregues" com as opções Sim ou Não.

Ao selecionar "sim" em tese queria que todos os registros do subformulário ficassem com a caixa de seleção "Entregue" marcados.

Até consegui fazer isso mais só fica marcado o primeiro registro, no segundo em diante não consigo a marcação pergunto para algum dos senhores se alguém pode me dar uma sugestão de como melhorar isso.

Estou fazendo da seguinte maneira ao responder pergunta "todos os objetos foram entregues" com "Sim" Após atualizar o campo inseri a seguinte VBA

If Me.txt_entregue.Text = "sim" Then
Me.sub_objeto!List_box!Entregue = -1
End If

com essa VBA consigo marca só o primeiro registro do subformulário os demais não são marcados.

Boa noite Conseguir resolver o problema da seguinte maneira:

Após o campo "todos os objetos foram entregues" foi respondido com "Sim" após atualizar inseri a seguinte VBA:

If Me.txt_entregue.Text = "Sim" Then
Dim rs As Recordset
Dim qRegistros As Long
Dim i As Long
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb_cautela WHERE cod_registro=" & Me!txt_cod_registro_clone)
qRegistros = rs.RecordCount
If qRegistros > 0 Then
rs.MoveLast
rs.MoveFirst
qRegistros = rs.RecordCount
End If
For i = 1 To qRegistros
rs.Edit
rs("Entregue") = "-1"
rs.Update
rs.MoveNext
Next i
rs.Close
Me.sub_objeto!List_box!.Requery
End If

Assim meu problema foi resolvido

Agradecer ao usuário "Dilson" https://www.maximoaccess.com/u18
ao qual respondeu no tópico https://www.maximoaccess.com/t20607-resolvidoloop-preencher-e-alterar-registros-de-subformulario

fiz as devidas adaptações e consegui sanar meu problema.

Já perdi as contas de quantas vezes esse fórum me ajudou.