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

    [Resolvido]adicionar parcelas de acordo com critérios

    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]adicionar parcelas de acordo com critérios Empty [Resolvido]adicionar parcelas de acordo com critérios

    Mensagem  thiagonsilvaa 18/12/2018, 12:29

    Bom dia a todos !

    Estou com uma certa dificuldade em adaptar um código a minha necessidade.
    O código seria esse: (retirado aqui do fórum)
    Código:
    If Me.Valorpago < Me.Valorparcela And Quitar = -1 Then

      If MsgBox("Deseja reparcelar ?", vbYesNo + vbDefaultButton2 + vbInformation, "Reparcelamento") = vbYes Then
      
                 Set db = CurrentDb()
                    Set rs = db.OpenRecordset("cs_contasareceber")
                             Vencimento = Me.Vencimento
                          rs.AddNew
                            rs("idevento") = Me.IDEvento
                            rs("idmovimento") = Me.IDMovimento
                            rs("idreceitadespesa") = Me.idreceitadespesa
                           [b]rs("parcelas") = DMax("parcelas", "cs_contasareceber", "idevento = " & IDEvento & "") + 1[/b]
                            rs("ValorParcela") = Valorparcela - Me.Valorpago
                            [b]rs("Vencimento") = DLast("Vencimento", "cs_contasareceber", "idevento=" & IDEvento & "") + 30[/b]
                          rs.Update
                          rs.Close
                          db.Close
                
                    MsgBox "Foi gerada uma nova parcela com o restante", vbInformation, "Reparcelamento"
        End If
    End If

    A minha necessidade é: nessa mesma tabela eu a alimento por 3 formulários, e tenho um formulário onde faço a baixa das parcelas.
    Uso esse código quando preciso reparcelar, porém nas linhas que estão em negrito eu preciso fazer o Dmax e o Dlast pra cada ID, pra que quando adicione a parcela leve em consideração o critério que será posto.
    Pensei em fazer um select case, mas não sei se encaixaria na minha necessidade.

    Uma imagem do form onde faço a baixa das parcelas, acredito que dê uma clareada nas ideias.
    [Resolvido]adicionar parcelas de acordo com critérios Sem_tz10


    Fico no aguardo da ajuda do fórum.
    Meu muito obrigado.
    Abraços.

      Data/hora atual: 25/7/2021, 04:01