[Resolvido]Repetir Dados

Preciso fazer o seguinte cadastrar uma conta os seguintes campos
descrição,valor,vencimento,e n caso de ter mais de um vencimento a mesma conta
quero repetir exemplo
Descrição Valor Vencimento
compra 50,00 01/09/2011 ai esta conta quero repetir pelos proximos 3 meses
alguem tem alguma ideia ai como posso fazer isso?

no evento click do botao aplique a funçao DateAdd mais ou menos desta forma:

Private Sub cmdrepetir_Click()
Dim StrDateAdd As String
Dim count As Integer

' vai servir para multiplicar o numero de vezes que quer repetir o primeiro registo
count = 1
'enquanto o contador for menor ou igual a 3, faz o loop
Do While count <= 3
'Adiciona 1 mes a data que esta na caixa de texto TxtDtMov e multiplica pelo numero do contador
StrDateAdd = DateAdd("m", 1 * count, Me.TxtDtMov)
MsgBox StrDateAdd & vbCrLf & "contador :" & count 'Em vez desta linha coloque o codigo para gravar na tabela
count = count + 1
Loop

End Sub



Pode agarrar neste código e criar um botao e uma caixa de texto com o nome de TxtDtMov e ver como funciona

Bitabit teria um exemplo ,eu fiz aqui com o seu código mas não funcionou?

A como andas Grande Alexandre...

http://dl.dropbox.com/u/26441349/Agravina_24_09_11.rar


Cumprimentos.

Ola Hary ,como vai o amigo?
bom digamos que não é bem gerar parcelas ,por exemplo tenho uma conta mensal tipo internet ai eu cadastro Descrição ,valor , vencimento
Net 60,00 01/10/2011
ai quero gerar a mesma pelos proximos 5 meses,tem como?

Esse exemplo faz isto amigão.. e so tirar da tabela o campo parcela... e no código não dividir o valor

http://dl.dropbox.com/u/26441349/Agravina_24_09_11_1.rar

Desculpa Hary mas esre ultimo arquivo que enviou está errado.

Pois agravina, o codigo do Harry é um pouco mais elaborado e é feito com um for, mas funciona com a função DateAdd.

1 abraço

O que esta errado?

E outro arquivo?

??? não entendi.. enviei acima.. o que acontece?

Aqui..

http://dl.dropbox.com/u/26441349/Agravina_25_09_11.rar

Grande Hary,está funfando agora rsrsrs..
Valeu e até a proxima duvida rsrs
Um abraço !

O Fórum agradece o Retorno.

Harysonh .na data inicial se eu por uma data anterior a atual,não funciona só altera os dias e não o mês,tem como corrigir e como ?

Nao entendi...

Ola Hary Bom dia! Repare que se colocar uma data inicial menor que a atual ou seja menor que o dia de hoje ele gera parcelas ,alterando somente os dias exemplo
dataini 01/09 3 parcelas ao inves de 02/10,03/11,04/12 ele gera assim 02/9 ,03/09,04/09.Teste ai .

Tive que formatar a Data no padrão americano... Em vba por vezes isto dá consusão. pois ele utiliza a data no padrão americano, ou seja: mm/dd/yyyy



Substitua o cósigo por este

Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.txtValor_Total
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", 1 * I, Format(Me.txtData, "mm/dd/yyyy"))
StrParc = I & "/" & Me.txtParc
CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & StrDateAdd & "#, """ & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub


Cumprimentos

Hary substitui ,mas fica a mesma coisa.

Substitua por este

Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.txtValor_Total
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtParc
CurrentDb.Execute "INSERT INTO tblExemplo(Compra,CpData,CpValor)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub

Hary,agora funfou valeu!