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

    Gerar Parcelas

    avatar
    Bessa_SP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 221
    Registrado : 06/11/2013

    Gerar Parcelas Empty Gerar Parcelas

    Mensagem  Bessa_SP 12/4/2021, 06:52

    Bom dia Srs.

    Tenho um formulario principal de lançamento de despesas (tbl_financeiro) e outro formulário que é uma sub que é o frm_parcelas a ideia e que no valor total da despesas o sistema divida de acordo com a quantidade de parcelas informada e de conforme eu coloque a data do primeiro vencimento ele também gere as parcelas a cada 30 dias.
    Bom tudo que falei consegui realizar quando vou no be os dados aparecem da maneira que pedi na Tabela (tbl_parcelas), porém não está atualizando o subformulário segue abaixo o código e veja se alguém pode me ajudar já quebrei cabeça e não achei o erro.

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tbl_parcelas") 'Abre Tbl_Parcelas
    valor_parcelas = txt_soma / Txt_Qtd_Parcelas 'Valor de cada Parcela

    For I = 1 To Me.Txt_Qtd_Parcelas 'Insere as Parcela na Tbl_parcelas
    rs.AddNew
    rs("CodId_Financeiro") = Me.Txt_Saida
    rs("Parcelas") = I & "/" & Me.Txt_Qtd_Parcelas
    rs("Valor_Parcelas") = valor_parcelas
    rs("Dt_Vencimento") = DateAdd("m", I - 1, Me.txt_Dt_PParcela) 'Calcula as datas de Vencto através da função DateAdd()
    rs.Update
    Next
    rs.Close
    db.Close
    Me.Frm_parcelas.Requery 'Atualiza o SubForm

    Obrigado
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    Gerar Parcelas Empty Re: Gerar Parcelas

    Mensagem  tauron 12/4/2021, 07:43

    Tente tirando a penúltima linha (db.close). Veja um codigo que utilizo em um botão:

    Código:

    Me.listaParcelas.SetFocus
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tblParcelasTemp")
    ValorParcelas = Me.ValorAlocado / Me.NParcelas

    For I = 1 To NParcelas.Value
        rs.AddNew
        rs("Codigo") = Forms!frmContrato!CodOperacao
        rs("Parcelas") = I
        rs("ValorParcelas") = ValorParcelas
        rs("DataVenc") = DateAdd("m", I - 1, Me.DataInicial)
        rs.Update
    Next
    rs.Close
    Me.listaParcelas.Requery
    End Sub
    avatar
    Bessa_SP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 221
    Registrado : 06/11/2013

    Gerar Parcelas Empty Gerar Parcelas

    Mensagem  Bessa_SP 12/4/2021, 19:47

    Boa noite

    Obrigado por colaborar...
    Amigo fiz como você indicou, gera na tabela os dados porém não aparece no sub-formulário, já tentei ver se era relacionamento se tinha salvo a tabela errada no sub, mas o pior que está tudo certo, na tabela fica gravada mas não aparece no formulário os dados.
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    Gerar Parcelas Empty Re: Gerar Parcelas

    Mensagem  tauron 12/4/2021, 19:59

    Tem que ser um sub formulário? Se reparar no "meu código" ira notar que utilizei uma caixa de listagem. Se preferir poste os objetos envolvidos.

    Tente trocar a última linha por:

    Forms!seuformulárioprincipal!Frm_Parcelas.Requery

    Conteúdo patrocinado


    Gerar Parcelas Empty Re: Gerar Parcelas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/10/2024, 16:22