Atualizar váras Check Box de uma consulta com a marcação do objeto Opção

Prezados, bom dia!

Vasculhei o forum e não encontrei algo parecido, achei um tópico somente que nao tinha mais os anexos da dúvida similar!

Senhores, estou montando um projeto de RH Treinamentos dentro do access. Estou com uma dúvida pontual, eu gerei uma consulta em que o usuário tem a opção de escolher os colaboradores por um campo "Convocado" que contem uma Check Box SIM/NÃO; está funcional. No entanto, queria otimizar para o usuário para que ele selecione um objeto Opção e este atualize apenas os valores demonstrados na consulta!

Segue o link de imagem do exemplo:

angloamerican.box.com/s/1ylqyqgz4zdfkxgga156rzshxv51k4u6

Desde já agradeço aos senhores!

Boa noite!
Veja se o código abaixo, que uso num formulário, e aciono com um botão, te ajuda preencher os check box:

Código:

Public Sub Comando48_Click()
'Caixa de mensagem
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Este procedimento marcar? todos os registros visiveis como lancar? diploma impresso. Deseja realmente continuar?"
Style = vbOKCancel + vbExclamation + vbDefaultButton1
Title = "Marcar diplomas impressos!"
Help = "DEMO.HLP"
Ctxt = 1000
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Tbl_expedicao")
Response = MsgBox(Msg, Style, Title, Help, Ctxt)


If Response = vbOK Then    ' O usuario escolheu OK.
        MyString = "Ok"    ' A resposta foi OK.
     DoCmd.Hourglass -1
       Me.Filter = "tbl_Expedicao.Diploma_impresso=False and tbl_Expedicao.OM<>''and tbl_Expedicao.Estoque=True" 'seleciona o filtro se o campo diploma impresso for falso, OM nao estiver em branco e estoque verdadeiro
       Me.FilterOn = True 'aplica o filtro
       If Not IsNull(DCount("Diploma_impresso", "tbl_expedicao")) And Diploma_impresso = False Then
          DoCmd.GoToControl "Diploma_impresso" 'desloca para o controle Diploma_impresso
          rst.MoveFirst ' desloca para o proximo registro
           Do
              If Me.Diploma_impresso = False Then 'se o campo Diploma impresso for falso
                 Me.Diploma_impresso = True 'marca diploma impresso
                           Recordset.MoveNext 'move para o proximo registro
              End If
                 Loop Until Recordset.EOF ' executa ate o final dos registros
       End If
              Exit Sub
Else
    DoCmd.Hourglass 0
   'Usou a opcao Cancelar.
    MyString = "Cancel"    ' Executa o cancelamento.
End If
End Sub

Abraço, Delson

Irmão, vou testar aqui e jaja te aviso!

Mas de antemão deixo o meu muito obrigado por oferecer ajuda.

Boa noite!

Algum avanço no projeto?