[Resolvido]Gravar da listbox para a tabela

Olá a todos.

Estou finalizando um projeto e recorro a ajuda do fórum para resolver a seguinte questão.

O projeto consiste em vendas parceladas.

Estou usando o exemplo postado neste fórum pelo Agravina, que, pelo que percebi é baseado no exemplo do Mestre J.Paulo (Parcelas 2008)

Nessa rotina ao gerar as parcelas, é executada uma sql que insere na tabela as parcelas e exibe, no form atual, essas parcelas em uma listbox.

A questão é conforme as parcelas são geradas, são exibidas na listbox.

Como serão lançados vários parcelamentos de vários clientes, preciso gravar a partir da listbox para outra tabela e eliminar os dados da tabela anterior.

Bom, pelo menos foi a solução que enxerguei até agora.

Lembrando na listbox haverá uma ou mais linhas devido aos parcelamentos.

A estrutura da tabela é a seguinte:

Matríula (PK); Cliente; Descrição; Conveniado; VlrParcela; DtParcela.

Espero terem entendido.

No aguardo.

Utilize CurrentDb.Execute "INSERT INTO...". Dê uma pesquisada no fórum que há bastante exemplos.

Olá Criquio, obrigado pela orientação.

Já utilizo o CurrentDb.Execute "INSERT INTO...", em outras aplicações, tentarei e depois dou retorno.

Obrigado.

Bom criquio, não estou sabendo como referenciar os valores da listbox. Ela tem a seguinte estrutura:

1 - nome : lstParcelas
2 - coluna 0 - Código da parcela
3 - coluna 1 - descrição da compra
4 - coluna 2 - data da parcela
5 - coluna 3 - valor da parcela

outro detalhe é que teremos por vezes mais de uma parcela, exemplo
Descrição - DtParcela - vlrParcela
Televisor - 10/04/2014 - R$ 230,00
Televisor - 10/05/2014 - R$ 230,00
Televisor - 10/06/2014 - R$ 230,00

Nesse contexto, não sei como referenciar esses valores da lstParcelas no CurrentDb.Execute "INSERT INTO...".

Pensei que pode ser mais fácil fazer o seguinte.

1 - Selecionar todos os dados da tblA

2 - Inserir todos os dados da tblA na tblB e excluindo todos os dados da tblA.

Orientações por favor.

Olá criquio, após sua orientação e muita pesquisa, ficou assim:

Código:

Private Sub btnGravar_Click()
Dim I As Integer ' não sei explicar
Dim StrDateAdd As Date ' não sei explicar
Dim StrValorParc As Double ' não sei explicar
Dim Parc As String ' não sei explicar
StrValorParc = Me.txtValorMês ' não sei explicar
For I = 1 To Me.txtParc ' não sei explicar
StrDateAdd = DateAdd("m", 1 * I, Me.txtData) ' não sei explicar
StrParc = I & "/" & Me.txtParc ' não sei explicar
'inseri os dados na tbl de destino
CurrentDb.Execute "INSERT INTO tblParcelamento(CpNome, CpMatrícula, cpCompra,CpData,CpValor, CpConveniada)" _
                & " Values(""" & tNome & """, """ & cboMatricula & """, """ & Me.txtDescricao.Value & """,#" & StrDateAdd & "#, """ & StrValorParc & """,  """ & cboConveniada & """);"
'sql para deleção de todos os dados da tbl de origem
strSQL = "DELETE * FROM [tblExemplo] "
'executa a sql
DoCmd.RunSQL strSQL
'após as instruções, excute o próximo procedimento
Next
'atualiza a listbox do form
Me.lstParcelas.Requery
End Sub

Se alguém quiser melhorar o código fica a vontade.

A primeira parte do código não sei de quem são os créditos, eu apenas adaptei a minha necessidade.