Curso de Access: Aula 32 - Contas a receber (Parte4)
Автор: ProAccess
Загружено: 2014-08-26
Просмотров: 14789
Описание:
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
Повторяем попытку...
Доступные форматы для скачивания:
Скачать видео
-
Информация по загрузке: