[Resolvido]Adicionar atuomaticamente parcelas em cheque

Olá!!!

Bom, pra finalizar o meu DBzinho de controle de Livro Caixa, resolvi adicionar um código que automatiza o preenchimento de parcelas pagas em cheques.

Tipo, paciente pagou com 10 cheques, eu preencho os campos relativos ao pagamento do primeiro cheque, informo o numero de parcelas e ele adiciona os registros em minha tabela com os campos dos cheques atualizados.

O probleminha que estou encontrando é referente ao NUMERO do cheque. Que no meu caso, é um campo TEXTO, já que tem cheque que tem NUMERO começando por letras, ex: AA-000165.
Como eu faço pra que ele "aproveite" a parte numérica que compõe o número e altere de acordo com o numero de parcelas?

Com detalhes:

Eu PREENCHO manualmente os dados da primeira folha:

TITULAR: João da Silva
BANCO: Real
VALOR: 560,00
Número do Cheque: AA-000165
Qtd. Parcelas: 10

Quando clicar no botão ADICIONAR CHEQUES ele abre minha BD, e adiciona os registros de 9 CHEQUES (já que o primeiro eu já adicionei na mão) e os numero fiquem:

AA-000166, AA-000167 ... AA-000174?

abaixo está o código que estou usando:

Dim db As Database, rs As Recordset
Dim I As Long

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

For I = 1 To Me.txtNumParcelas - 1
rs.AddNew
rs("idDentista") = Me.Dentista
rs("idTipoPagamento") = Me.Tipo
rs("data") = Me.Data
rs("valor_LC") = Me.Valor_LC
rs("discriminação") = Me.Discriminação
rs("entrada_saida") = "Entrada"
rs("bancoCheque") = Me.bancoCheque
rs("titularCheque") = Me.titularCheque
rs("dataCheque") = DateAdd("m", I, Me.dataCheque)
rs("numeroCheque") =
rs.Update
Next
rs.Close
db.Close

Qq ajuda é benvinda!
Abraços pessoal!

Veja se funciona assim;

rs("numeroCheque") = Left(Me.NumeroCheque, 3) & "000" & Right(Me.NumeroCheque, 6) + I

Meu querido JPaulo, no caso do cheque com numero AA-000167 funcionou perfeitamente. Mas quando coloco por exemplo, numero 000165, ele ficou como 0000000165 (não teria problema...), mas quando coloco 165 apenas ele ficou mais ou menos assim
165000165
165000166
165000167

eu penso que vc está no caminho certo, mas não seria algo de "extrair" apenas os caracteres numericos e somar com "i"?
se por acaso eu preenchesse o campo com caracteres alfanumericos tb, no caso poderia ser AA-000165, como tb, AA-167, ou AA176.. não conseguimos prever como serão os números dos cheques do bancos.. cada um segue um critério...

O que acha?
abraço!

Pensei que fosse sempre nesse molde AA-000167

Nesse caso tenho de testar aqui uma outra forma.

Pergunta:
A numeração dos cheques, terminam começam sempre por letras e terminam sempre em numeros ?

terminam sempre com numeros, mas não começam necessariamente com letras. Ai depende do banco. Tem banco que começa e banco que não começa.... acha que tem jeito??

Cole este dois codigos no VBA desse formulario;

Public Function ExtraiNumeros(ByVal sString As String) As String
'By JPaulo ® Maximo Access
Dim i As Integer
For i = 1 To Len(sString)
If Mid(sString, i, 1) Like "[0-9]" Then
ExtraiNumeros = ExtraiNumeros + Mid(sString, i, 1)
End If
Next i
End Function

Public Function ExtraiLetras(ByVal sString As String) As String
'By JPaulo ® Maximo Access
Dim i As Integer
For i = 1 To Len(sString)
If Mid(sString, i, 1) Like "[a-z-0]" Then
ExtraiLetras = ExtraiLetras + Mid(sString, i, 1)
End If
Next i
End Function


Abaixo do Set rs = db.OpenRecordset("tblLivroCaixa")

Cole isto;

Y = ExtraiLetras(Me.NumeroCheque)
X = ExtraiNumeros(Me.NumeroCheque)


Na linha do rs, cole isto;

rs("numeroCheque") = Y & X + i

QUASE perfeito!

Pra o numero AA-165 funcionou perfeitamente!
pra o numero 010165, o outros ficaram com um zero a mais na esquerda. 0010166, 0010167.
Tem como resolver isso? senão pode deixar assim mesmo..

olha.. nesse caso: IU-101613, ficou assim: IU-0101613.. com esse zero a mais.. nesse caso daria erro..
tem como resolver?
(nossa.. vc tá me dando uma força muito grande! obrigado mesmo!)

Aguarde por favor vou fazer mais uns testes aqui.

Substitua este codigo;

Public Function ExtraiLetras(ByVal sString As String) As String
'By JPaulo ® Maximo Access
Dim i As Integer
For i = 1 To Len(sString)
If Mid(sString, i, 1) Like "[a-z-]" Then
ExtraiLetras = ExtraiLetras + Mid(sString, i, 1)
End If
Next i
End Function

PERFEITO!!!!

OBRIGADO MESMO AMIGO!
QUEBROU UM GALHO IMENSO PRA MIM!
GRANDE ABRAÇO!!!

Ai está o código pra quem quiser aproveitar algum dia.


Public Function ExtraiNumeros(ByVal sString As String) As String
'By JPaulo ® Maximo Access
Dim i As Integer
For i = 1 To Len(sString)
If Mid(sString, i, 1) Like "[0-9]" Then
ExtraiNumeros = ExtraiNumeros + Mid(sString, i, 1)
End If
Next i
End Function


Public Function ExtraiLetras(ByVal sString As String) As String
'By JPaulo ® Maximo Access
Dim i As Integer
For i = 1 To Len(sString)
If Mid(sString, i, 1) Like "[a-z-]" Then
ExtraiLetras = ExtraiLetras + Mid(sString, i, 1)
End If
Next i
End Function
Private Sub cmdMultiplicar_Click()

Dim db As Database, rs As Recordset
Dim i As Long
' Dim nCheque As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblLivroCaixa")
y = ExtraiLetras(Me.numeroCheque)
x = ExtraiNumeros(Me.numeroCheque)

For i = 1 To Me.txtNumParcelas - 1
rs.AddNew
rs("idDentista") = Me.Dentista
rs("idTipoPagamento") = Me.Tipo
rs("data") = Me.Data
rs("valor_LC") = Me.Valor_LC
rs("discriminação") = Me.Discriminação
rs("entrada_saida") = "Entrada"
rs("bancoCheque") = Me.bancoCheque
rs("titularCheque") = Me.titularCheque
rs("dataCheque") = DateAdd("m", i, Me.dataCheque)
'rs("numeroCheque") = Left(Me.numeroCheque, 3) & "000" & Right(Me.numeroCheque, 6) + i
rs("numeroCheque") = y & x + i

rs.Update
Next
rs.Close
db.Close
msgbox "As parcelas de pagamento em cheque foram multiplicadas com sucesso!"
Me.txtNumParcelas.Visible = fase
Me.saidaSaldo.SetFocus
Me.cmdMultiplicar.Visible = False
End Sub

Obrigado pelo retorno o forum agradece.

Mas esse sisteminha que o amigo criou parece que irá funcionar perfeitamente no meu caso...
Gostaria de estar implantando-o no sistema que estou desenvolvendo e adicionar mais duas informações: Pagamento a vista e Débito Automático.

Primeiro, ao amigo gilkleber: tem jeito de vc enviar o modelo da tabela que vc fez, para que eu possa estar entendendo o funcionamento da mesma?
No meu caso, como é um sisteminha para controle de uma pousada, não tenho muita certeza se a tabela deve ser relacionada com a reserva do quarto ou com a identificação do cliente. Acredito que seja mais compatível que seja atrelada ao cliente do que com a reserva...

Desde já agradeço a força dos amigos...