[Resolvido]Ajuda código de parcela

Bom dia

Tenho a tabela Movimento onde tenho os campos DataVencimento e DataPagamento.

O que eu quero é que a dta de vencimento seja parcela de acordo com a quantidade de parcelas. E a data de Pagamento será preenchida de acordo com data que o cliente vai Pagar.

Nesse código abaixo ele esta parcelando a Data de Pagamento, o que eu quero é que ele Parcele a Data de Vencimento.

Código:


  'Variáveis
    Dim I As Integer
    Dim StrDateAdd As Date
    Dim StrValorParc As Double
    Dim StrParc As Double
    Dim rsParc As DAO.Recordset
    'Preenche variáveis
    StrValorParc = Me.txtValor
    StrParc = StrValorParc / Me.txtParcela
        'Cria o recordset
        Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
        'Popula o Recordset
        With rsParc 'Selecona o recordset
            For I = 1 To Me.txtParcela 'Loop de 1 até o total de parcelas
            StrDateAdd = DateAdd("m", I, format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
                .AddNew 'Adiciona e popula o novo registro
                    .Fields("Conta") = Me.txtConta.Value
                        .Fields("Documento") = Me.txtDocumento.Value
                            .Fields("DataVencimento") = format(Me.DataPagamento.Value, "mm/dd/yyyy")
                                .Fields("Referente a") = Me.txtReferente
                            .Fields("Pessoa") = Me.txtFornecedor.Value
                            .Fields("DataPagamento") = StrDateAdd
                        .Fields("Observações") = Me.txtObservacoes.Value
                    '.Fields("txtValor") = StrParc
                    .Fields("Situação") = Me.txtSituacao.Value
                  .Fields("Parcela") = "Parcela: " & (Me.txtParcela.Value) & "/" & I
                  .Fields("Empresa") = Me.UsuarioLogado
                .Update 'grava as informações na tabela
                '[Form_frm_Movimentos].Lista13.Requery
            Next I 'próximo registro
        End With 'Fim daseleção da tabela
        DoCmd.Close acForm, "frm_Despesa"
        'Fecha o recordset
        Set rsParc = Nothing: Close
End Sub



Alguém??

Alguém?

Boa Tarde

Consegui, agora esta funcionando do jeito que eu quero, mais eu queria ver se alguém pode me ajudar com outra coisa, mais sendo no mesmo código.

Esse é o código que estou usando:

Código:


 'Variáveis
Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset
'Preenche variáveis
StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
'Cria o recordset
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
'Popula o Recordset
With rsParc 'Selecona o recordset
For i = 1 To Me.txtParcela 'Loop de 1 até o total de parcelas
StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
.AddNew 'Adiciona e popula o novo registro
.Fields("Conta") = Me.txtConta.Value
.Fields("Documento") = Me.txtDocumento.Value
.Fields("DataPagamento") = Format(Me.DataPagamento.Value, "mm/dd/yyyy")
.Fields("Referente a") = Me.txtReferente.Value & "/" & i
.Fields("Pessoa") = Me.txtNome.Value
.Fields("DataVencimento") = StrDateAdd
.Fields("Observações") = Me.txtObservações.Value
.Fields("ValorParcela") = StrParc
.Fields("Situação") = Me.txtSituacao.Value
.Fields("Tipo") = Me.Tipo.Value
.Fields("Parcela") = Me.txtParcela
.Fields("Empresa") = Me.UsuarioLogado
.Fields("CentroCusto") = Me.txtCentroCusto
.Update 'grava as informações na tabela
[Form_frm_ReceitaAReceber].Lista16.Requery
Next i 'próximo registro
End With 'Fim daseleção da tabela
DoCmd.Close acForm, "frm_Receita"
'Fecha o recordset
Set rsParc = Nothing: Close


No campo referente a da tabela, na hora que gerasse a parcela teria como colocar o mes e o ano da dta devencimento?

Exemplo
Referente a: Pagamento de Honorários Contábeis Ref
Data Vencimento: 12/10/2013

Igual:
Referente a: Pagamento de Honorários Contábeis Ref 10/2013

Boa noite,

Tenta a função Format:

:Format([DataVencimento];"mm/yyyy")


Deve resolver.



Nivaldo.

Não consegui.

Fiz dessa maneira:

Código:


.Fields("Referente a") = Me.txtReferente.Value :Format([DataVencimento],"mm/yyyy")


Bom dia,

Por que você não extrai esse valor (mes e ano) da Data de Vencimento através de uma consulta??
Você não precisa gravar na tabela o mes e ano da data de vencimento, uma vez que na consulta você exibe da forma que melhor achar através da função Format.

A dica lhe lhe passei foi para ser usada em uma consulta, onde você criaria o campo:

MesAnoVencimento:Format([DataVencimento];"mm/yyyy")


Nivaldo.

Com a permissão do Grande Nivaldo;

.Fields("Referente a") = Me.txtReferente.Value & "/" & Format(StrDateAdd, "mm/yyyy")

Resolve ?

Esse problema resolveu.

Esse código acima ele pegar o valor da parcela e divide pelo numero de parcelas. Eu já fiz essa pergunta antes, mais não encontrei.

Atual:
Valor da Parcela: 200,00
Numero de Parcela: 4
= 50,00

O que eu quero:
Valor da Parcela: 200,00
Numero de Parcela: 4
= 200,00

Então é outra duvida, certo ?

Agora pergunto eu, não quer parcelar ?

Sim, venha ao meu pensamento.

Vamos supor que a empresa de modelo começou a realizar serviço em minha empresa, em 01/01/2013, sendo que fizemos um contrato de 1 ano e o valor de sua mensalidade é 250,00.

Em vez de eu pegar 250 * 12 = 3000 eu colocaria só 250 (no campo Valor da Parcela) e 12 (no campo Parcela).

Sendo que eu não precisaria fazer calculo antes de lançar no formulário, se eu já sei o valor de sua parcela.

Entendi;

Então quer o valor 250 em que campo e os 12 em que campo ?

Dê-me apenas os nomes dos campos.

E outra pergunta, geraria na mesma as 12 linhas ?

Os campo são: ValorParcela = 250 e Parcela = 12.

Sim, as 12 linhas.

Código:


Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset
'Preenche variáveis
StrValorParc = Me.txtValor
StrParc = StrValorParc / Me.txtParcela
'Cria o recordset
Set rsParc = CurrentDb.OpenRecordset("tbl_Movimento", dbOpenDynaset)
'Popula o Recordset
   With rsParc 'Selecona o recordset
   For i = 1 To Me.txtParcela 'Loop de 1 até o total de parcelas
   StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
       .AddNew 'Adiciona e popula o novo registro
       .Fields("Conta") = Me.txtConta.Value
       .Fields("Documento") = Me.txtDocumento.Value
       .Fields("DataPagamento") = Format(Me.DataPagamento.Value, "mm/dd/yyyy")
       .Fields("Referente a") = Me.txtReferente.Value & "/" & Format(StrDateAdd, "mm/yyyy")
       .Fields("Pessoa") = Me.txtNome.Value
       .Fields("DataVencimento") = StrDateAdd
       .Fields("Observações") = Me.txtObservações.Value
       .Fields("ValorParcela") = StrValorParc
       .Fields("Situação") = Me.txtSituacao.Value
       .Fields("Tipo") = Me.Tipo.Value
       .Fields("Parcela") = Me.txtParcela
       .Fields("Empresa") = Me.UsuarioLogado
       .Fields("CentroCusto") = Me.txtCentroCusto
       .Update 'grava as informações na tabela
   [Form_frm_ReceitaAReceber].Lista16.Requery
   Next i 'próximo registro
   End With 'Fim daseleção da tabela
   DoCmd.Close acForm, "frm_Receita"
   'Fecha o recordset
   Set rsParc = Nothing: Close
End Function


Exatamente p que eu quero. Obrigado.

Obrigado pelo retorno o forum agradece.