[Resolvido]Função que captura campo de subformulario (Folha de dados) ao deletar varias linhas

Companheiros, boa tarde! ao deletar varias linhas em um "subform1" (folha de dados) preciso pegar o "campo1" das linhas selecionadas para replicar este delete em outras tabelas. Alguém poderia me ajudar nesta missão.

Abs/Neto

Deseja deletar por exemplo... 5 linhas de uma só vez.. e utilizar o valor do campo1 dos 5 registros?

Para que essa utilização?

Teria que utilizar o valor da campo a cada vez ou todos de uma só vez?

De mais detalhes.

Cumprimentos.

- Isso mesmo, eu seleciono 5 registros em um "subform" folha de dados e dou "Delete" ao executar o evento abaixo gostaria de pegar os valores contidos no "campo1".

Private Sub Form_Delete(Cancel As Integer)

End Sub

- Vou utilizar estes valores para fazer um UPDATE em outra tabela onde estes valores já existem.

- Vou Utilizar todos os campos de uma só vez. Veja a tela que utilizo em anexo.

Abs/Nelson Neto

Poderia no evento ao clicar  carregar uma matrix sequencialmente com a ID do registro clicado, incrementando tambem uma variável X para contagem do registro. Após isto um procedimento utilizando o For para o número de loops do contador X lendo a matriz.

Algo assim:

Option Compare Database
Option Explicit
Dim X As Integer
Dim Seq As String
Dim K

Private Sub Form_Click()
    Seq = Seq & Me.txtID & "|"
K = Split(Seq, "|")
X = X + 1
For X = 0 To X - 1
    MsgBox K(X)
Next X
End Sub

Cumprimentos.

Após clicar nos registros

1 -  X Assumirá a contagem da quantidade de registros clicados
2 - a Matrix K conterá as Id's dos registros clicados.. cada um na posição.. começando de 0 >> ao número de registros clicados.

Por exemplo ao clicar em 3 registros sendo seus códigos: 34 58 76
X = 3
Então no for aparecerá assim:

K(0)  =34
k(1) = 58
k(2) = 76

Então no procedimento for utilizando o loop com a contagem de X poderá utilizar o valor contido em K(X) para o que desejar.


Cumprimentos.

Pessoal, desculpe a demora na resposta, mas consegui resolver de uma outra forma. Mudei o projeto e fiz de uma forma que não necessitou mais utilizar o modelo proposto aqui no Forum. Grato a todos pela ajuda.

RESOLVIDO.

Sds/Nelson Neto

Para colocar como resolvido tem que clicar no botão de resolvido na hora em que responder o tópico.

Desta vez eu coloco.

O Fórum agradece o Retorno.