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

    Formulário para Gerer Parcelas

    avatar
    Carlão2016
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 28/08/2016

    Formulário para Gerer Parcelas Empty Formulário para Gerer Parcelas

    Mensagem  Carlão2016 1/10/2016, 19:46

    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.
    Anexos
    Formulário para Gerer Parcelas AttachmentGerenciador Financeiro - Fórum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (246 Kb) Baixado 73 vez(es)


    Última edição por Carlão2016 em 12/10/2016, 04:54, editado 2 vez(es)
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    Formulário para Gerer Parcelas Empty Re: Formulário para Gerer Parcelas

    Mensagem  rubenscouto 8/10/2016, 08:45

    faltou o bd.

      Data/hora atual: 7/5/2024, 23:04