MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    Calcular 30 dias apartir da data venda

    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 270
    Registrado : 22/03/2011

    Calcular 30 dias apartir da data venda Empty Calcular 30 dias apartir da data venda

    Mensagem  fabioavila 14/3/2021, 19:26

    Ola amigos,

    Tenho um codigo para parcelamento de vendas, funciona perfeito porem o cliente quer que ele gere o Valor do Vencimento apartir da data da compra e não mais que ele tenha digitar a data do 1º vencimento para gerar as demais parcelas , abaixo segue o codigo:

    Código:

    Set db = CurrentDb()
        Set rs = db.OpenRecordset("Areceber") 'Abre Tbl_ContasAreceber
        Valor_Parcela = Me.txttotal / Me.Parcelas 'Valor de cada Parcela
       
        For i = 1 To Me.Parcelas  'Insere as Parcela na Tbl_ContasAreceber
            rs.AddNew
            rs("CodVenda") = Me.CODVENDA
            rs("Parcelas") = i & "/" & Me.Parcelas
            rs("Valor_Parcela") = Valor_Parcela
            rs("CLIENTE") = Cliente
            rs("FormaPgto") = FormaPgto
            rs("Dt_Vencimento") = DateAdd("m", i - 1, Me.DATAVENDA) 'Calcula as datas de Vencto através da função DateAdd()
            rs.UPDATE
        Next
        rs.Close
        db.Close
        Me.Sub_Areceber.Requery  'Atualiza o SubForm

    End Sub

    Ele gera mas com a data do 1 vencimento o mesmo dia da compra , algume pode dar um ajuda.

    Obrigado
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 858
    Registrado : 23/03/2010

    Calcular 30 dias apartir da data venda Empty Re: Calcular 30 dias apartir da data venda

    Mensagem  Finformática 14/3/2021, 20:09

    Caro Fábio,

    Será que daria certo se vc somasse 1 mês a datavenda. Exemplo: DtVencimento = DateAdd("m",1,datavenda), ou se vc somasse 30 dias a datavenda. Exemplo: DtVencimento = DateAdd("d",30,datavenda). Lembrando que essa função verifica ano bissexto, mês com 30/31 dias, etc. e nunca vai ficar 30 de determinado mês, 30 do mês seguinte.

    Espero ter ajudado

    Abraço
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    Calcular 30 dias apartir da data venda Empty Re: Calcular 30 dias apartir da data venda

    Mensagem  Noobezinho 14/3/2021, 21:46

    Fabio

    É só tirar o -1 da frase:

    rs("Dt_Vencimento") = DateAdd("m", i -1, Me.DATAVENDA)

    [ ]'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    arnaldojt gosta desta mensagem


      Data/hora atual: 1/2/2023, 06:35