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


2 participantes

    [Resolvido]Parcelamento de Divida

    avatar
    Valdevino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 22/05/2011

    [Resolvido]Parcelamento de Divida Empty [Resolvido]Parcelamento de Divida

    Mensagem  Valdevino 27/4/2023, 19:13

    Ola,meus Amigos Mestres

    sou adepto do access e gosto de fazer meus projetos. Gostaria de no campo Parcela da Tabela fosse exibido o seguinte:
    Campos da Tabela:

    DataVencto         ValorDivida        Parcela
    30/04/2023           190,00               1/3
    30/05/2023           190,00               2/3
    30/06/2023           190,00               3/3


    Meus Amigos,por favor voces podem me ajudar. Deste ja agradeço muito

    o codigo que estou usando é este:

    Set db = CurrentDb()
      Set RS = db.OpenRecordset("tblParcelamento")
       ValorLanc = TxtValor / TxtParcela

    For I = 1 To TxtParcela
    RS.AddNew
    RS("ValorLanc") = TxtValor
    RS("Data") = TxtData
    RS("Parcela") = I & "/" & TxtParcela
    RS.Update
    Next
    RS.Close
    db.Close
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Parcelamento de Divida Empty Re: [Resolvido]Parcelamento de Divida

    Mensagem  crysostomo 27/4/2023, 20:19

    Boa tarde.
    Só acrescendar o contador do FOR no formato da data (a letra M que referencia o Mês)
    Código:
    Dim acrescentarData As Date
    Set db = CurrentDb()
    Set RS = db.OpenRecordset("tblParcelamento")

    For I = 1 To txtParcela
    acrescentarData = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))

    RS.AddNew
    RS("ValorLanc") = txtValor
    RS("Data") = acrescentarData
    RS("Parcela") = I & "/" & txtParcela
    RS.Update
    Next
    RS.Close
    db.Close
    MsgBox "Lançamento feito com sucesso!"

    At.te


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Valdevino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 22/05/2011

    [Resolvido]Parcelamento de Divida Empty Re: [Resolvido]Parcelamento de Divida

    Mensagem  Valdevino 4/5/2023, 04:06

    Muitissimo obrigado, Amigo. Voce muito me ajudou.valeu mesmo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Parcelamento de Divida Empty Re: [Resolvido]Parcelamento de Divida

    Mensagem  crysostomo 4/5/2023, 13:32

    Sucesso Basketball


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Parcelamento de Divida Empty Re: [Resolvido]Parcelamento de Divida

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2024, 11:31