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

    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 : 242
    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 : 709
    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 : 4118
    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: 14/6/2021, 07:23