Bom dia pessoal,
Sou novo por aqui e gostaria muito de contar com a colaboração de vocês.
Estou tentando desenvolver um BD para gerenciar despesas e gostaria da ajuda de vocês para elaborar um formulário para gerar parcelas (Frm_Parcelas), com base nos campos de uma tabela (Tb_Lancamentos), nas situações onde ocorram compromissos recorrentes, como por exemplo: prestação do carro, prestação do apartamento, conta de luz etc e gostaria que essas parcelas fossem gravadas na tabela "Tb_Lancamentos".
Tentei usar como base um formulário desenvolvido pelo Harysohn que possui o seguinte código:
Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.txtValor_Total
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtParc
CurrentDb.Execute "INSERT INTO tabProvisoria(Compra,DataVencimento,CpValor)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub
Porém, não não ter domínio do assunto, não consegui adaptá-lo ao meu caso, pois o formulário que desejo elaborar possui mais campos que a do colega e com características diferentes (pesquisa em outras tabelas).
Os campos da tabela (Tb_Lancamentos) que gostaria que fossem contemplados no formulário para gerar os parcelamentos são os seguintes:
Vencimento 'dd/mm/yyyy
Sub-Categoria 'Pesquisa na Tb_SubCategoria
Categoria 'Pesquisa na Tb_Categoria
Nº_Documento 'Valor padraõ 0
Valor 'Formato padrão
Natureza 'Pesquisa - valor digitado Receita ou Despesa
Tipo 'Pesquisa - valor digitado Fixa ou Variável
Estou disponibilizando o BD e uma imagem de tela do Frm_Parcelas para melhor entendimento.
Antecipadamente agradeço a oportunidade e atenção.
Sou novo por aqui e gostaria muito de contar com a colaboração de vocês.
Estou tentando desenvolver um BD para gerenciar despesas e gostaria da ajuda de vocês para elaborar um formulário para gerar parcelas (Frm_Parcelas), com base nos campos de uma tabela (Tb_Lancamentos), nas situações onde ocorram compromissos recorrentes, como por exemplo: prestação do carro, prestação do apartamento, conta de luz etc e gostaria que essas parcelas fossem gravadas na tabela "Tb_Lancamentos".
Tentei usar como base um formulário desenvolvido pelo Harysohn que possui o seguinte código:
Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
StrValorParc = Me.txtValor_Total
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtParc
CurrentDb.Execute "INSERT INTO tabProvisoria(Compra,DataVencimento,CpValor)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
Next I
Me.lstParcelas.Requery
End Sub
Porém, não não ter domínio do assunto, não consegui adaptá-lo ao meu caso, pois o formulário que desejo elaborar possui mais campos que a do colega e com características diferentes (pesquisa em outras tabelas).
Os campos da tabela (Tb_Lancamentos) que gostaria que fossem contemplados no formulário para gerar os parcelamentos são os seguintes:
Vencimento 'dd/mm/yyyy
Sub-Categoria 'Pesquisa na Tb_SubCategoria
Categoria 'Pesquisa na Tb_Categoria
Nº_Documento 'Valor padraõ 0
Valor 'Formato padrão
Natureza 'Pesquisa - valor digitado Receita ou Despesa
Tipo 'Pesquisa - valor digitado Fixa ou Variável
Estou disponibilizando o BD e uma imagem de tela do Frm_Parcelas para melhor entendimento.
Antecipadamente agradeço a oportunidade e atenção.
- Anexos
- Gerenciador Financeiro - Fórum.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (246 Kb) Baixado 74 vez(es)
Última edição por Carlão2016 em 12/10/2016, 04:54, editado 2 vez(es)