[Resolvido]DATAS GERADAS A CADA 2,5 MESES

Boa noite Pessoa...!
Estou tentando criar um banco de dados que gere uma agenda para a manutenção (revisão) de pneus com a seguinte característica:
Tenho um valore que são obtidos da divisão do campo durabilidade/tempo de manutenção
[45.000]/[5000] = 9 - terei nove manutenções e se levarmos em conta que levo 2,5 meses para fazer 5.000 KM então precisarei gerar uma agenda que me de automaticamente 9 datas a cada 2,5 meses ou 75 dias uma da outra.
Consegui até o momento apenas gerar corretamente a primeira data as demais datas seqüências são geradas de 30 em 30 dias, estou usando este código que

Private Sub cmdParcelas_Click()

If Me.HODOMETRO <= 0 Then 'Se valor do contrato for <= 0
Exit Sub
End If

'Salva o contrato
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Dim db As Database, rs As Recordset
Dim ValParc As Currency, i As Byte

Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas
ValParc = Me.HODOMETRO / Me.bytParcelas 'Valor de cada Parcela

For i = 1 To Me.bytParcelas 'Insere as Parcela na Tabela
rs.AddNew
rs("lngNumContrato") = Me.lngNumContrato
rs("bytParcela") = i
rs("hodometro") = ValParc
'Calcula as datas de Vencto através da função DateAdd()
rs("dtVencimento") = DateAdd("m", i - 1, Me.dtContrato)

rs.Update
Next

rs.Close
db.Close
Me.subfrm_Parcelas.SetFocus 'Foco no SubForm Parcelas
Me.cmdParcelas.Enabled = False 'Desativa o botão Parcelas
Me.subfrm_Parcelas.Requery 'Atualiza o SubForm Parcelas

End Sub




Eloir Weiber
Guarapuava - Pr
iniciante

Bom dia, eloir

Substitua
rs("dtVencimento") = DateAdd("m", i - 1, Me.dtContrato)
por
rs("dtVencimento") = DateAdd("d", (i - 1)*75, Me.dtContrato)

Bom dia Alexandre..!!


Obrigado pela ajuda, mas é o seguinte, o 75 que refere-se aos dias deve ser uma variavel pois é obtida através da divisão do tempo de revisão pelo km mensal que seria a quantidade de dias que tenho que rodar até atingir 5.000 km neste caso tenho os seguintes campos:

[dd]dias decorridos que é obtifo do de: [km revisão]/[km por mês]

dd é a minha variavel que não consigo fazer com que rode.

Boa tarde,

Se tem esse campo deve utilizar
rs("dtVencimento") = DateAdd("d", (i - 1)* Me("dd"), Me.dtContrato)

Bom trabalho,

Olá Alexandre ...!!


mais uma vez obrigado, não tenho como testar ele agora, mas pelo que vejo vai dar certo sim, opós as 13h responderei para encerrarmos o tópico.


Abraços


Eloir

Boa tarde Alexandre...!!!


Funcionou perfeitamente, a sua sugestão...mais uma vez Obrigado.

Abraço


Eloir

Resolvido é resolvido.