[Resolvido]Erro em código

Olá a todos,

tenho um banco em access só que na parte da vendas não estou conseguindo fazer com que o código do parcelamento faça o preenchimento dos campos da tabela parcelamento e a divisão dos mesmo, gostaria que fosse dado uma ajuda.

Desde já agradeço pela atenção.

https://www.dropbox.com/s/92b1h5204243jcf/Sistema%20de%20Vendas%20-%20Atual.accdb

Ola,

Entre este exemplo existem muitos outros aqui, é só adaptar,

http://maximoaccess.forumeiros.com/t613-resolvidoparcelas

Bom dia,

coloquei o arquivo para que você possa mim dar uma ajuda, já peguei o código que mim passou e estou tentando ajustar na minha tabela.
Se possivel da uma olhada no BD e ver o que pode está errado.

Grato.

Consegui alterar mais quando vai executar da erro na parte em destaque o que posso fazer para corrigir isso.
Da o seguinte erro:

Erro de tempo de execução 3061:
Parâmetros insuficientes. Eram esperados 1.

Código:

Dim rs As DAO.Recordset, I As Byte
Dim rs1 As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from tbl_parcelas where CodParc = " & Me.Código & "")
Set rs1 = CurrentDb.OpenRecordset("select * from tbl_parcelas where CodParc = " & Me.Código & " and quitada = -1")
If Not rs1.EOF Then
MsgBox "Este Serviço ja foi parcelada e contém pagamento efetuados. " & Chr(10) & "" _
& "Não será possivel refazer parcelamento !!!", vbCritical
Set rs1 = Nothing
Exit Function
End If


If Not rs.EOF Then
If MsgBox("Já existe um parcelamento para este Serviço !!! " & Chr(10) & "" _
& "Deseja substituir pelos novos valores? ", vbYesNo + vbExclamation + vbDefaultButton1, "Parcelamento") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where NumParc = " & Me.Código & ""
DoCmd.SetWarnings True

Else
Exit Function
End If

End If

If Not Resto <= 0 Then
For I = 1 To Me.q_parc
With rs
.AddNew
!NumParc = Me.Código
!Num_parc = I & "/" & Me.q_parc
!Data_venc = DateAdd("m", I - 1, (Me.Data))
!Val_parc = Me.V_parc

.Update
End With
Next
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where NumParc = " & Me.Código & ""
DoCmd.SetWarnings True
End If
rs.Close
Set rs = Nothing
'MsgBox "Valores inseridos com sucesso!!!"
Me.Frm_Parcela.Requery
Me.Frm_Parcela.SetFocus

End Function

Desde já agradeço pela atenção.

Bom dia,

consegui fazer as devidas alterações no código e agora está funcionando perfeitamente, obrigado JPaulo pela ajuda.

Obrigado pelo retorno o forum agradece.