[Resolvido]Várias checkbox assinaladas

Ao cumprimentar os mestres deste renomado site, passo a tratar sobre uma situação que está difícil.

Após buscas incessantes sobre o tema, gostaria de tirar dúvidas sobre como posso fazer um formulário contínuo com checkbox.

Naquele formulário terão dados de cadastro, e ao clicar nas checkbox e filtrar somente os dados marcados terá um botão que abrirá um formulário com a data e uma caixa de combinação para escolha de um nome de quem o fez.

Após isso, registra todos os mesmos dados (data e nome) nas linhas da tabela dos cadastros marcados.

Ou seja:
1° selecionamos os cadastros a serem marcados;
2° filtramos só os marcados:
3° clicamos em um botão para abrir o formulário para preencher data e nome.
4° preenchemos a data e o nome.
5° ao clicar no botão deste formulário, insere a data e o nome nas linhas da tabela que foram marcados no formulário anterior.

Sendo essas considerações, peço ajuda aos mestres deste fórum para solucionar o dilema.

Cumprimentos

Bem vindo ao  fórum colega Boa noite amigo.
minha cabeça começou a zuar, rs. amanhã terminamos pode ser?  ou nosso amigos pode pegar o exemplo e da continuidade.
Segue o anexo da uma olhadinha se é mais ou menos isso.
Abçs

Muito obrigado pela recepção! Vou olhar assim que tiver um tempinho... Obrigado!
Cumprimentos

Boa tarde,
Verifiquei o arquivo que o amigo fez, constatei que é quase isso. A rotina que queria adotar era somente aparecer os marcados no formulário continuo. A partir disso clicar no botão com um formulário onde tenha o campo, por exemplo, DATA. Após preencher a data e apertar um botão do tipo salvar, a rotina inseria a data na coluna data da tabela onde as linhas estivessem marcadas.

Por fim, agradeço ao amigo por dar um início a minha solicitação, vou estudar mais o caso e pesquisar mais sobre a situação da rotina acima explicitada.

Cumprimentos.

Bom dia. como na mensagem 1 .
NO formulários continuo aparece todos os cadastro , ao marcar e pesquisar ele filtro somente os marcados.
Queria colocar a data no formulário contínuo não era abrir o formulário ?
Está online colega?

Bom dia,
crysostomo, peços desculpas por não explicar a rotina que gostaria, abaixo vou fazer um passo a passo para melhor entendimento.

1 - Abrir formulário contínuo "lista";
2 - Marcar as linhas do formulário;
3 - Filtar os marcados no formulário contínuo;
4 - Clicar no botão (no cabeçalho do formulário contínuo) para abrir um formulário DATA com a caixa de texto "data", por exemplo;
5 - Preencher a data na caixa de texto
6 - Clicar no botão salvar;
7 - Ao clicar no botão aquela data é inserida na tabela cadastro, coluna data nas linhas que estiverem marcadas (-1).

Ex: FORMULÁRIO CONTÍNUO

Código ----- Nome ------ opção ou seleção
1            ----- xxxxxx ------ 0
2            ----- yyyyyy ------ -1
3            ----- zzzzzz ------ 0
4            ----- kkkkk  ------ 0
5            ----- rrrrrrrr ------ -1
6            ----- tttttttttt ------ -1
7            ----- aaaaa ------ 0
8            ----- cccccc ------ 0
9            ----- hhhhhh ------ -1
10          ----- mmmm ------ 0

TABELA após preencher a data dd/mm/yyyy e clicar no botão do formulário DATA

Código ----- Nome ------ opção ou seleção ---------- data
1            ----- xxxxxx ------ 0                             ----------
2           ----- yyyyyy ------ -1                             ---------- dd/mm/yyyy
3            ----- zzzzzz ------ 0
4            ----- kkkkk  ------ 0
5            ----- rrrrrrrr ------ -1                             ---------- dd/mm/yyyy
6            ----- tttttttttt ------ -1                             ---------- dd/mm/yyyy
7            ----- aaaaa ------ 0
8            ----- cccccc ------ 0
9            ----- hhhhhh ------ -1                           ---------- dd/mm/yyyy
10          ----- mmmm ------ 0

Resolvi com este código:

On Error Resume Next
Dim sel As String 'variavel que vai receber o select para consultar os dados no sistema
Dim rst As Recordset 'variavel que vai nos permitir a usar os campos da tabela
sel = "SELECT * from cadastro WHERE CHECK = -1"
Set rst = CurrentDb.OpenRecordset(sel)
Do Until rst.EOF
rst.Edit
rst!data = data
rst![PAÍS] = Me.PAÍS
rst.Update 'atualiza a tabela
rst.MoveNext 'procura a próxima linha

Loop
MsgBox "Editado!"

Beleza amigo,
Sucesso