[Resolvido]Inserir um campo novo no código e está dando erro (gerar parcelas)

Option Compare Database
Nesta parte do código que está dando erro:
Inserir o campo CPValor1
Alguém saber onde está errado.



CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """)& "#, """ & Cpvalor1 & """);"







Private Sub btnGerar_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 tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """)& "#, """ & Cpvalor1 & """);"
Next I
Me.lstParcelas.Requery
End Sub

Olá, tente assim:

Código:

CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """)& ", """ & Cpvalor1 & "");"


Abraço

O erro:

CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """)& ", """ & Cpvalor1 & "");"
Arquivo:
http://consultoriasoft.com.br/video/x.zip

Olá, estou no telemóvel não posso ver zip, verifique as aaspas dos campos que são valor.
Abraço

Olá, veja assim:

Código:

CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, " & StrValorParc & ", " & Me.Cpvalor1 & ");"

Abraço

Olá, vejo que faltou o anexo do meu teste.
No form no campo do valor mês coloque na origem do campo:

=[CampoComValorTotal]/[CampoNrPrestacoes]

E teste com a instrução sql da mensagem anterior.

Abraço

Tente assim:

CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor,Cpvalor1)" _
& " Values(""" & Me.txtDescricao.Value & """, """ & Format(StrDateAdd, "mm/dd/yyyy") & """, """ & StrValorParc & """, """ & Cpvalor1 & """)"

Olá a todos,
Veja meu teste no anexo da mensagem nº 5.
Lupércio, obrigado pela ajuda, vamos aguardar retorno do colega.
Abraço

Parabéns.

Olá, o código do Lupércio também está bem.
Estude o projecto e compare as alterações, aparentemente o problema era devido ao seu último campo no form.
Obrigado pelo retorno e bons estudos.
Abraço