[Resolvido]Copiar registros excluídos de um subformulário para outra tabela

Olá

Em um formulário de excursões de turismo tenho um subform que registra os passageiros, e neste há um subform que registra as parcelas de pgto por passageiro.
Há uma situação em que o cliente contrata a viagem, faz o(s) pagamento(s), desiste da excursão em questão, e prefere não receber o dinheiro de volta, deixando um crédito para uma excursão seguinte.
Neste caso, esses registros de parcelas são excluídos na excursão em questão, e devem ser transferidos para uma outra tabela de créditos do cliente.
Como faço para transferir o(s) registros(s) selecionado(s) - via seletor de registros - para essa outra tabela ao serem excluídos no subform?

Grato pela atenção.

Faça uma consulta de acréscimo e de exclusão.

Faça com que ao clicar no botão, execute primeiro a consulta de acréscimo para colocar na nova tabela o que será deletado na próxima consulta de exclusão.

Duvidas, me fale que ajudarei

Olá

Minha dúvida é como detectar os registros selecionados no subform.
Se for apenas um registro, não há problema, basta um insert e depois um delete.

Grato.

Coloque a caixa de seleção como critério

Olá

Não há uma caixa de seleção como campo do registro.
Os registro são selecionados pelo seletor de registros (RecordSelectors = True) do formulário.
(veja na imagem)
Como referenciar os registros assim selecionados no critério?

Obs:
Para obter os registros selecionados numa ListBox, uso as seguintes funções:

Public Function ObterSelecionados(CxList As control, Numerico As Boolean) As String
Dim varIndex As Variant
Dim strSel As String
Dim intlen As Integer
 If CxList.ItemsSelected.count > 0 Then
     For Each varIndex In CxList.ItemsSelected
         If Numerico = True Then
             strSel = strSel & CxList.ItemData(varIndex) & ","
         Else
             strSel = strSel & "'" & CxList.ItemData(varIndex) & "',"
         End If
     Next varIndex
     intlen = Len(strSel)
     ObterSelecionados = Left(strSel, intlen - 1)
 Else
     ObterSelecionados = ""
 End If
End Function

'chamada para selecionar tudo: call fncSelecionarTudo(true, me!NomeCampoListBox)
'chamada para limpar tudo: call fncSelecionarTudo(false, me!NomeCampoListBox)
Public Function fncSelecionarTudo(sl As Boolean, NomeList As control)
Dim lngLista As Long
For lngLista = 0 To NomeList.ListCount - 1
   NomeList.Selected(lngLista) = IIf(sl = True, True, False)
Next
End Function

Mas não sei como obter os selecionados via seletor de registros do Access.

Olá

Resolvi provisoriamente obrigando o usuário a excluir apenas 1 resgistro de cada vez.