Bom dia amigos tenho este código para gerar parcelas.
If MsgBox("Confirma a Operação?", vbYesNo + vbCritical, "Atenção!!!") = vbYes Then
Set Db = CurrentDb()
Set rs = Db.OpenRecordset("Tabela_ContasAreceber") 'Abre Tbl_ContasAreceber
Valor_Parcela = Me.TotalGeral / Me.QuantParcelas 'Valor de cada Parcela
For I = 1 To Me.QuantParcelas 'Insere as Parcela na Tbl_ContasAreceber
rs.AddNew
rs("Cod_TabVenda") = Me.ID_Vendas
rs("Parcelas") = I
rs("Valor_Parcela") = Valor_Parcela
rs("DataVencimento") = DateAdd("m", I - 1, Me.Vencimento) 'Calcula as datas de Vencto através da função DateAdd()
rs.Update
Next
rs.Close
Db.Close
Me.frmsub_contasareceber.Requery 'Atualiza o SubForm
Else
Me.Recalc
End If
O que eu estou tentando fazer é adapta-lo para um sistema de ponto. Onde tenho os seguintes campos, Data,Situação.
Exemplo: 7 dias de atestado. Eu quero que o botão gerar parcelas gere sete dias corridos e 7 vezes a situação de atestado por exemplo.
Já tentei mexer mas sem sucesso. Grato pela ajuda.
If MsgBox("Confirma a Operação?", vbYesNo + vbCritical, "Atenção!!!") = vbYes Then
Set Db = CurrentDb()
Set rs = Db.OpenRecordset("Tabela_ContasAreceber") 'Abre Tbl_ContasAreceber
Valor_Parcela = Me.TotalGeral / Me.QuantParcelas 'Valor de cada Parcela
For I = 1 To Me.QuantParcelas 'Insere as Parcela na Tbl_ContasAreceber
rs.AddNew
rs("Cod_TabVenda") = Me.ID_Vendas
rs("Parcelas") = I
rs("Valor_Parcela") = Valor_Parcela
rs("DataVencimento") = DateAdd("m", I - 1, Me.Vencimento) 'Calcula as datas de Vencto através da função DateAdd()
rs.Update
Next
rs.Close
Db.Close
Me.frmsub_contasareceber.Requery 'Atualiza o SubForm
Else
Me.Recalc
End If
O que eu estou tentando fazer é adapta-lo para um sistema de ponto. Onde tenho os seguintes campos, Data,Situação.
Exemplo: 7 dias de atestado. Eu quero que o botão gerar parcelas gere sete dias corridos e 7 vezes a situação de atestado por exemplo.
Já tentei mexer mas sem sucesso. Grato pela ajuda.