[Resolvidos]Padrão de Parcelas

Amigos,

Tenho um Form Com dois SubForm. O Form tem os campos Valor_Total que é resultado da Soma do 1° SubForm ref a Tabela_Itens_Pedido que registra os itens pedidos e tem o campo Numero_Pacelas que indica em quantas vezes o cliente que pagar o contido no Valor_Total.
Em seguida tenho um botão de comando com o seguinte código abaixo de Autoria do Luiz Carlos do Informe Access

Private Sub Cmd_Calcular_Parcelas_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.Refresh
If (Me.Valor_Total > 0) And (Me.Numero_Parcelas <> 0) Then 'Se valor do contrato for <= 0
Dim db As Database, rs As Recordset
Dim i As Integer
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tabela_Parcelas") 'Abre tbl_Parcelas
For i = 1 To Me.Numero_Parcelas 'Insere as Parcela na Tabela
rs.AddNew
rs("Id_Vendas_Parcelas") = Me.Id_Vendas
rs("Numero_Da_Parcela") = i
rs("Valor_Parcela") = Me.Valor_Total / Me.Numero_Parcelas 'Valor de cada Parcela
'Calcula as datas de Vencto através da função DateAdd()
rs("Data_Vencimento") = DateAdd("m", i - 1, Date)
rs.Update
Next
rs.Close
db.Close
Me.Frm_Parcelas.Requery 'Atualiza o SubForm Parcelas
Me.Data_Venda.SetFocus
Else
End If
End Sub

Após esse comando acima [exemplificando]
ele distribui as parcelas no 2° SubForm referente a Tabela_Parcelas da seguinte forma:

N° da Parcela
01
02
03

Eu preciso que ela fique assim:
N° da Pacela
01/03
02/03
03/03

Não sei se fui claro. O fato é que eu preciso de ajuda!!!

Já fiz algumas modificações e não deu certo, também já naveguei o forum inteiro e não encontrei nenhum norte.

Teste e retorne;

Private Sub Cmd_Calcular_Parcelas_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.Refresh
If (Me.Valor_Total > 0) And (Me.Numero_Parcelas <> 0) Then 'Se valor do contrato for <= 0
Dim db As Database, rs As Recordset
Dim i As Integer
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tabela_Parcelas") 'Abre tbl_Parcelas
For i = 1 To Me.Numero_Parcelas 'Insere as Parcela na Tabela
rs.AddNew
rs("Id_Vendas_Parcelas") = Me.Id_Vendas
rs("Numero_Da_Parcela") = i & "/" & Me.Numero_Parcelas
rs("Valor_Parcela") = Me.Valor_Total / Me.Numero_Parcelas 'Valor de cada Parcela
'Calcula as datas de Vencto através da função DateAdd()
rs("Data_Vencimento") = DateAdd("m", i - 1, Date)
rs.Update
Next
rs.Close
db.Close
Me.Frm_Parcelas.Requery 'Atualiza o SubForm Parcelas
Me.Data_Venda.SetFocus
Else
End If
End Sub

João apareceu mensagem de erro em tempo de execução "3421"
Crítica: erro de conversão de tipo de dados

Private Sub Cmd_Calcular_Parcelas_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.Refresh
If (Me.Valor_Total > 0) And (Me.Numero_Parcelas <> 0) Then 'Se valor do contrato for <= 0
Dim db As Database, rs As Recordset
Dim i As Integer
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tabela_Parcelas") 'Abre tbl_Parcelas
For i = 1 To Me.Numero_Parcelas 'Insere as Parcela na Tabela
rs.AddNew
rs("Id_Vendas_Parcelas") = Me.Id_Vendas

O DEPURADOR AMARELA AQUI : rs("Numero_Da_Parcela") = i & "/" & Me.Numero_Parcelas

rs("Valor_Parcela") = Me.Valor_Total / Me.Numero_Parcelas 'Valor de cada Parcela
'Calcula as datas de Vencto através da função DateAdd()
rs("Data_Vencimento") = DateAdd("m", i - 1, Date)
rs.Update
Next
rs.Close
db.Close
Me.Frm_Parcelas.Requery 'Atualiza o SubForm Parcelas
Me.Data_Venda.SetFocus
Else
End If

Eu havia colocado essa linha da forma que está antes. não tinha dado certo

Eu reproduzi a tabela aqui e deu certo.

Quer colocar o banco ou parte dele em site publico ?

Não sei postar,

Tem como colocar o link pra mim

Amigão coloque aqui e passe o link para nós.

http://www.speedyshare.com/

João esse banco está Front End (Os Forms estão na pasta aplicativo e o Banco está na pasta dados) coloca no C:\ a pasta SisVendas

http://www.speedyshare.com/files/21010924/SisVendas.rar

Abre o Form Frm_Vendas é lá o X da questão

Amigão fiz o teste no seu banco e funfa na boa, mas...

Tem de ir na tabela Parcelas e mudar o formato do campo Numero_Da_Parcela, de Numero para Texto.

Formatado em numero, você nunca conseguiria colocar o simbolo / entre outros.

rs("Numero_Da_Parcela") = i & "/" & Me.Numero_Parcelas

Muito Boa João Paulo,
Você resolveu muito bem, tava aqui engatado nesse problema

Valeu mesmo.

Valeu, precisando de novo dê um grito aqui.