[Resolvido]Erro no formulário de parcelamento

Referente ao exemplo: http://maximoaccess.forumeiros.com/t4580-gerar-parcelas?highlight=parcelas

Boa Tarde,

Peguei o exemplo acima, mais esta tendo um erro na seguinte linha:


StrValorParc = Me.txtValor_Total

Será alguem pode me ajudar?
http://dl.dropbox.com/u/25062472/Desenvendo%20Sistema%20Forum/Gerenciador%20Financeiro%20Pessoal%20%26%20Empresarial.accdb

tente assim:


DoCmd.Hourglass True

If MsgBox("Deseja gerar as parcelas?", vbYesNo, "Gerar parcelas") = vbYes Then

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 LançamentoDespesas " & _
"(CaixaOrigem, " & _
"Documento, " & _
"DataMovimento, " & _
"Despesas, " & _
"Fornecedor, " & _
"[Valor da Parcela], " & _
"Vencimento, " & _
"NParcelas, " & _
"Observações)" & _
" Values('" & _
Me.CaixaOrigem & "','" & _
Me.Documento & "','" & _
Me.Texto12 & "','" & _
Me.txtDescricao & "-" & I & "','" & _
Me.Fornecedor & "'," & _
StrValorParc & "," & _
StrDateAdd & "," & _
Me.txtParc & ",'" & _
Me.Observações & "');"
Next I
Me.lstParcelas.Requery
MsgBox "Parcelas geradas com sucesso!", vbInformation, "Gerar parcelas"

Else
MsgBox "processo cancelado pelo usuário!", vbInformation, "Gerar parcelas"
End If

DoCmd.Hourglass False

Esta com erro nessa linha:

Código:

StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))

Esta com erro nessa linha:

Código:

StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))

http://dl.dropbox.com/u/25062472/Desenvendo%20Sistema%20Forum/Gerenciador%20Financeiro%20Pessoal%20%26%20Empresarial.accdb

DoCmd.Hourglass True

If MsgBox("Deseja gerar as parcelas?", vbYesNo, "Gerar parcelas") = vbYes Then

Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc
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 LançamentoDespesas " & _
"(CaixaOrigem, " & _
"Documento, " & _
"DataMovimento, " & _
"Despesas, " & _
"Fornecedor, " & _
"[ValorParc], " & _
"Vencimento, " & _
"NParcelas, " & _
"Observações)" & _
" Values('" & _
Me.CaixaOrigem & "','" & _
Me.Documento & "','" & _
Me.Texto12 & "','" & _
Me.txtDescricao & "-" & I & "','" & _
Me.Fornecedor & "'," & _
Me.ValorParc & ",#" & _
Format(StrDateAdd, "mm/dd/yyyy") & "#," & _
Me.txtParc & ",'" & _
Me.Observações & "');"
Next I
Me.lstParcelas.Requery
MsgBox "Parcelas geradas com sucesso!", vbInformation, "Gerar parcelas"

Else
MsgBox "processo cancelado pelo usuário!", vbInformation, "Gerar parcelas"
End If

DoCmd.Hourglass False

Não esta dando certo. Veja:

Código:

CurrentDb.Execute "INSERT INTO LançamentoDespesas " & _
"(CaixaOrigem, " & _
"Documento, " & _
"DataMovimento, " & _
"Despesas, " & _
"Fornecedor, " & _
"[ValorParc], " & _
"Vencimento, " & _
"NParcelas, " & _
"Observações)" & _
" Values('" & _
Me.CaixaOrigem & "','" & _
Me.Documento & "','" & _
Me.Texto12 & "','" & _
Me.txtDescricao & "-" & I & "','" & _
Me.Fornecedor & "'," & _
Me.ValorParc & ",#" & _
Format(StrDateAdd, "mm/dd/yyyy") & "#," & _
Me.txtParc & ",'" & _
Me.Observações & "');"

http://dl.dropbox.com/u/25062472/Desenvendo%20Sistema%20Forum/Gerenciador%20Financeiro%20Pessoal%20%26%20Empresarial.accdb

Será que alguem pode me ajudar?

Obrigado.

PatSoft vá na tabela tblExemplo exclua os parcelamentos existente.

Va no formulário preenchas os campos direitinho e clique em gerar parcelas.


Acho que você não preencheu os campos do formulário por isso deu erro.

Fiz o teste com seu exemplo aqui e deu tudo certo, só apresenta erro se não preencher os campos.

Observe que somente o sub parcelamento e vinculado a tabela tblExemplo os outros campos do formulário são desaclopado.

Ainda esta com erro, na linha que eu indiquei acima.

Peenchi todos os campos mais não deu certo.

no momento estou no trabalho amanhã posto o banco de dados

PatSoft vai em anexo seu banco de dados funcionando.

estou usando o access 2007.

Exclui pelo seu formulário depois criei nos parcelamentos.

Continua com o mesmo erro.
Olha:



Ai clico no botão depurar aparece o seguinte:



A versão do office é 2007 e preenchi todos os campos.

Boa Tarde,

PatSoft baixei ele e testei tambem e não relatou nenhum erro, esta rodando corretamente.

Eu acessei o sistema no Pc da empresa onde eu trabalho ele relata esse erro acima. E quando eu acrsso do meu Pc ele funciona corretamente, o que ser que esta dando errando?

Bom dia, Está gerando as parcelas normalmente, dê uma conferida nas bibliotecas na máquina que não funciona.

Ta bom bom vou dar uma olhada.

Obrigado a todos.