[Resolvido]Colocando "/" ou "-" em VBA

Boa tarde pessoal.
Primeiro gostaria de agradecer a ajuda que recebo de vocês; Estou iniciando em VBA  e mesmo sendo uma linguagem "ultrapassada",me é muito útil.
possuo a seguinte duvida.
Possuo um sistema de controle de parcelas, e gostaria que minhas parcelas aparecessem "1/10" ou "1-10"
ou seja, parcela atual "1" de um total de 10.
Segue abaixo o código que utilizo.
Gostaria de uma maneira de expressar / ou - em Vba.

Código:

rs("Numeroparcela") = i & (Totalparcelas)

Desde já agradeço.

Tente assim:

rs("Numeroparcela") = i & "-" & (Totalparcelas)

ou

rs("Numeroparcela") = i & "/" & (Totalparcelas)

Olha tentei de varias maneiras, mas não funcionou....
Acredito que estejamos errando na forma de expressar o / ou -, pois,
se por exemplo eu estipular um valor 10 ou 15 ele funciona perfeitamente.

Exemp:

rs("Numeroparcela") = i & "10" & (Totalparcelas)
rs("Numeroparcela") = i & "15" & (Totalparcelas)

Olá, teste assim:
str(rs("Numeroparcela") = i) & "/" & str((Totalparcelas))
Abraço

Bom dia.
Copiei e colei o seu código adaptado, mas aparece a seguinte mensagem.
Erro de tempo de execução "13"
Tipos incompatíveis.

Veja se o campo que recebe è de tipo texto

Edu

É melhor mostrar todo o código, principalmente o valor de "i".
Assim evitamos conjecturas.

[]'s

Noob

É um código que gera parcelas automaticamente.
Autor: Lucio Rezena Ltda
Sou bem iniciante  tanto no accees como na linguagem VBA.

Private Sub Comando132_Click()

If (DLookup("Numeroparcela", "TabParcelas", "[Contrato] = " & [Código_]) = 1) Then

MsgBox "As parcelas já foram calculadas. Para recalcular, delete as parcelas existentes antes de prosseguir.", vbInformation, "Atenção"

Exit Sub

ElseIf (Me.Valor_ > 0) And (Me.Totalparcelas > 0) Then

Dim db
Dim rs 'As recordset
Dim i As Integer

Set db = CurrentDb()
Set rs = db.OpenRecordset("TabParcelas")

For i = 1 To Me.Totalparcelas
rs.AddNew
rs("Contrato") = Me.Código_
rs("Numeroparcela") = i O código que inseri acima é uma alteração deste trecho.
rs("Valorparcela") = Round(Me.Valor_ / Me.Totalparcelas, 2)  <= Farei uma alteração, pois pretendo deixar o valor da parcela seja estabelecido pelo usuário.
rs("Datavencimento") = DateAdd("m", i, Forms!Contratos!datacontrato)
rs.Update
Next

rs.Close
db.Close
Me.TabParcelas_subformulário1.Requery
Me.Estatus_.SetFocus
End If

Edu

Veja que o campo na tabela tem o tipo de dados número e ao tentar
colocar strings (texto) da erro.
Sugestão:

Mantenha e campo e mude o nome para numero sequencial.
crie outo campo texto com o nome Numeroparcela.

Dim db
Dim rs As recordset
Dim i As Byte

Set db = CurrentDb()
Set rs = db.OpenRecordset("TabParcelas")

For i = 1 To Me.Totalparcelas
    rs.AddNew
    rs("Contrato") = Me.Código_
    rs("Numeroparcela") = i & "/" & (Totalparcelas)
    rs("Valorparcela") = Round(Me.Valor_ / Me.Totalparcelas, 2)  <
    rs("Datavencimento") = DateAdd("m", i, Forms!Contratos!datacontrato)
    rs.Update
Next

Veja que mudei o tipo da variável  "i"
Como irá adicionar parcelas com esse código, não precisa colocar o valor sequencial , pois o mesmo
irá incrementar automaticamente a cada registro.

[ ]'s

Noob

Funcionou ..............
Obrigado ..........
Ficou perfeito, do jeito que eu estava querendo .....

Obrigado a todos que me ajudaram.

Ótimo!

Só faltou o Resolvido no título do tópico.

Para isso, edite um post teu e clique no botão Resolvido bem abaixo, na página

Boa sorte!

Noob