Curso de Access: Aula 32 - Contas a receber (Parte4)

Описание: CURSO AVANÇADO DE ACCESS - CRIANDO UM SISTEMA DE VENDAS
https://www.proaccess.com.br/produto/...

Esse curso que você está acompanho em nosso canal é gratuito e aborda princípios básicos para a criação de um sistema de vendas. Caso tenha interesse de criar um sistema de vendas completo de forma profissional acesse nosso curso avançado no link acima.

CONTATO:
WhatsApp: (84) 9.9671-8709 - Gilberlânio Rocha

---------------------------------------------------------------------------------------------------------------------------
Código do botão gerar parcelas:

Set db = CurrentDb()
Set rs = db.OpenRecordset(-Tbl_ContasAreceber-) 'Abre Tbl_ContasAreceber
Valor_Parcela = Me.txt_TotalVenda - Me.QtdeParcelas 'Valor de cada Parcela

For I = 1 To Me.QtdeParcelas 'Insere as Parcela na Tbl_ContasAreceber
rs.AddNew
rs(-Cod_TabVenda-) = Me.CodVenda
rs(-Parcelas-) = I
rs(-Valor_Parcela-) = Valor_Parcela
rs(-Dt_Vencimento-) = DateAdd(-m-, I - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto através da função DateAdd()
rs.Update
Next
rs.Close
db.Close
Me.frmSub_ContasAreceber.Requery 'Atualiza o SubForm