[Resolvido]Vários Registros pelo AddNew - checkbox

Olá Pessoal, mais uma vez peço a vossa ajuda.


Gostaria adicionar vários registros de forma simultânea em uma outra tabela. Ou seja, a cada checkbox selecionada (SELECAO) no "form1" será adicionado um registro em outra tabela, copiando o ID deste registro e adicionando-os na TBL2.

Consegui realizar a proeza em partes. Seleciono as checkbox que desejo e clico no botão "inserir", logo ele cria penas 1 registro, detalhe, do último que cliquei, por causa do foco.

segue exemplo:

desde já muito grato por este Fórum.

Bom dia pessoal. Subindo↑↑↑

Olá;

Código:

Private Sub Comando20_Click()
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset

    DoCmd.RunCommand acCmdSaveRecord
   
Set rs = CurrentDb.OpenRecordset("select * from TBL1 where selecao=-1")
Set rs1 = CurrentDb.OpenRecordset("TBL2")

    'se não encontrar registos para o ID, morre aqui
    If rs.RecordCount = 0 Then Exit Sub
    'coloca-se no 1º registro
    rs.MoveFirst
    'percorre todos os registros da tabela SuaTabela
    Do While Not rs.EOF

        rs1.AddNew
        rs1!ID_VINC_2 = rs("ID")
        rs1!COD = rs("STATUS")
        rs1.Update
    'avança para o seguinte registro
        rs.MoveNext
    Loop
CurrentDb.Execute "UPDATE [TBL1] SET selecao = 0 WHERE SELECAO = -1"
Me.Repaint
rs.Close: Set rs = Nothing
rs1.Close: Set rs1 = Nothing
End Sub

Perfeito Jpaulo, como sempre suas ajudas resolvem os problemas.

Muito Grato.

Fico feliz.

Não se esqueçam de contribuir com o fórum nos links abaixo.