Selecionar "itens acima" em um formulario contínuo

Boa tarde!

Bd em Access 2010.

Em um formulário contínuo, seria possível ajustar uma função para selecionar os demais itens a partir de um item selecionado?

Exemplo:

O formulário tem uma lista de 20 registros. Eu seleciono o item 9. Clico no botão "Marcar Todos Acima" e a partir do 9 até o 20, todos os registros seriam selecionados (Marcando a caixa "Selec").

Segue ilustração e arquivo para testes.

Desde já, agradeço.

Bom dia!

Veja se dessa forma atende a sua necessidade!

Abraço, Delson

Delson, excelente seu ajuste! É quase isso.

Mas por questões de segurança, seria importante que, ao filtrar um grupo no campo "txtCodGrupo", a marcação dos itens selecionados acima, ficasse restrita apenas aos itens filtrados.

Desculpe a demora em responder, mas estava e ainda estou tentando fazer mais esse ajuste. Mas por enquanto, sem sucesso.

Muito obrigado pelo ajuste e caso tenha alguma ideia para mais este, ficarei grato.

Abraço!

Bom dia,

veja que no código, apesar de estar como comentário, tem o código para aplicar o filtro. Veja se atende as necessidades e faça os ajustes necessários!

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_Produtos")
   VFinal = Me.TxtVFinal
   VInicial = Me.TxtVInicial
   'Me.Filter = "tbl_Produtos.CODPRO >= [Formulários]![ListaProdutos]![TxtIdCodPro]" 'seleciona o filtro"
   'Me.FilterOn = True
   'If rs.RecordCount > 0 Then
   'rs.MoveNext
    '   Contador = rs.RecordCount
    '   rs.MoveFirst
   'End If
   SysCmd acSysCmdInitMeter, "Realizando as alterações, aguarde...", Contador
   CurrentDb.Execute "UPDATE tbl_Produtos SET tbl_Produtos.SELECIONAR = -1 WHERE (((tbl_Produtos!CODPRO) Between " & [VInicial] & " and " & [VFinal] & "));"
   Me.Requery
   MsgBox " Total de: " & Me.TxtVFinal - Me.TxtVInicial & " registro(s) marcado(s)", vbInformation, "Concluído"
   TxtVInicial = ""
Exit_TratareiErro:
   Exit Sub
TratareiErro:
   MsgBox "Ocorreu uma falha neste processamento." _
        & vbCrLf & "Trata-se do erro n°: " & Err.Number _
        & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Erro inesperado"
   Exit Sub

   Me.Requery
   Me.Repaint

Abrç, Delson