[Resolvido]Ajuda com a função insert into em VBA

Boa tarde amigos, olha este código e para vendas parceladas então ele gera outros registros de acordo com a quantidade de parcelas.. acontece que ele gera os registros repetindo todos os campos da tabela, e queria que o campo liquido que e o valor da compra, se repetisse só uma vez.. Não estou conseguindo adaptar isso no código, preciso de uma ajuda obrigado.. 


Private Sub bt1_Click()

Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String

StrValorParc = Me.txtValor_total
For I = 1 To Me.txtparc
StrDateAdd = DateAdd("m", I, Format(Me.txtdata, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtparc
CurrentDb.Execute "INSERT INTO tabela1(descrição,Empresa,Parcelas,taxa,liquido,[V taxa],[Data da venda],[Data a receber],[Valor liquido])" _
                & " Values(""" & Me.txtdescricao & """,""" & Me.txtempresa & """,""" & Me.txtparc & """,""" & Me.txttaxa & """,""" & Me.txtbruto1 & """,""" & Me.txtjuro & """,""" & Me.txtdata1 & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
   
Next I
Me.lstParcelas.Requery
Me.txtbruto.SetFocus

End Sub

O seu campo Valor Liquido, vai receber a variavel StrValorParc.


Se você parcelar 30 vezes, quer que somente o primeiro registro receba esse valor e os outros fiquem Nulos ?

E isso mesmo amigo JPaulo, quero o valor somente na primeira parcela e o restante fica nulo..

Mais ou menos isto;



Private Sub bt1_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String

StrValorParc = Me.txtValor_total
For I = 1 To Me.txtparc
StrDateAdd = DateAdd("m", I, Format(Me.txtdata, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtparc
CurrentDb.Execute "INSERT INTO tabela1(descrição,Empresa,Parcelas,taxa,liquido,[V taxa],[Data da venda],[Data a receber])" _
                & " Values(""" & Me.txtdescricao & """,""" & Me.txtempresa & """,""" & Me.txtparc & """,""" & Me.txttaxa & """,""" & Me.txtbruto1 & """,""" & Me.txtjuro & """,""" & Me.txtdata1 & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#"");"
CurrentDb.Execute "UPDATE tabela1 SET [Valor liquido]=" & StrValorParc & " WHERE [Data da venda]=#" & Format(StrDateAdd, "mm/dd/yyyy") & "# AND Empresa='" & Me.txtempresa & "'"
Next I
Me.lstParcelas.Requery
Me.txtbruto.SetFocus
End Sub

Amigo JPaulo, acho que não consegui entender o código, se não for abusar de sua boa vontade em nos ajudar irei mandar uma parte do bd para vc dar uma olhada... Quero que o valor liquido só apareça uma vez.. Obrigado pela paciência..

Ola Matheus;

Não me atrevo a mexer no seu exemplo, da maneira como está.

E espero que esta modelagem não esteja no seu banco real.

Veja este exemplo;

Obrigado JPaulo pelo exemplo, vou tentar ajustar a meu projeto real.. Obrigado mesmo.. Vou tentar melhorar meu projeto pois ficou uma bagunça mesmo.. Obrigado..