[Resolvido]Zero a esquerda do numero

Bom dia! Venho pedir a ajuda de vocês mais uma vez!
Quando gera parcelas fica com zero a esquerda em todas as parcelas. gostaria que só ficasse até a parcela 09,
do 10 em diante não aparecer mais o zero. (Ex.: 01-02-03-04-05-06-07-08-09-10-11-12....)
Não sei onde estou errando.

Desde já fico agradecido!

Set db = CurrentDb()
   Set rs = db.OpenRecordset("tbl_LancChequeDet") 'Abre Tbl_ContasAreceber
       ValorCheque = Me.txtTotalRecebe / Me.QtdeParcelas 'Valor de cada Parcela
   
   For i = 1 To Me.QtdeParcelas  'Insere as Parcela na Tbl_ContasAreceber
       rs.AddNew
       rs("Cod_Lançamento") = Me.Cod_Lance
      rs("NumCheque") = "0" & i & "/" & Me.QtdeParcelas
       rs("ValorCheque") = Me.txtTotalRecebe / Me.QtdeParcelas
       rs("VencCheque") = DateAdd("d", i - 1, Me.txtDt_1Parcela) 'Calcula as datas de Vencto através da função DateAdd()
       rs("DataLanc") = Me.txtDataLanc
       rs("Taxa") = Me.txtTaxa
       rs.Update
   Next
   rs.Close
   db.Close
   Me.frm_LancChequeDetSub.Requery  'Atualiza o SubForm
   Me.btn_Diário.enabled = False

Olá,

Na linha em vermelho que vc informou, copie e cole o seguinte código:

Código:


rs("NumCheque") = Right("00" & i, 2) & "/" & Right("00" & Me.QtdeParcelas, 2)


Boa sorte

Bom dia! Alexandre,

Muito obrigado pela ajuda!

Valeu Anderson,

O fórum agradece.
Boa sorte