[Resolvido]Quitar despesas

Boa noite!

Eu utilizo o Office 2013, vou anexar uma parte do meu banco de dados pra que os colegas possam me ajudar mais uma vez.

Estou com alguns problemas no formulário "frm_Despesas(Pendentes)" que não consegui resolver.
O Primeiro: quero que ao clicar no botão "btnOK", seja dado baixa em todos os lançamentos, cujo a caixa de seleção esteja marcada no campo "Selecionar", ele até está dando baixa, mas somente um de cada vez.

O segundo: quero tornar obrigatório o preenchimento do campo "CombFonte".

O terceiro: Quero que ao dar baixa em uma despesa, a mesma diminua o saldo da fonte à qual foi selecionada no campo: "CombFonte"

Aceito dicas de reestruturação, desde que atinja o resultado que eu espero, tendo em vista que sou iniciante e é provável que tenha cometido falhas de planejamento...

Agradeço aos que puderem me ajudar.

Boa noite

Fiz algumas alterações nos itens 1 e 2 de sua solicitação, veja se é isto
Quanto a 3 solicitação não entendi, aonde é para baixar se os valores do form não tem nada a ver com oque voce quer que faça.
Me explique melhor com mais detalhes

Veja oque fiz até agora

estou no Aguardo

Abraços

Boa tarde!

Celso Roberto, vou dar uma olhada nas alterações que você fez e depois dou um retorno.

Agradeço a ajuda amigo.

Celso Roberto

Primeiro problema resolvido. Legal o que você fez, simples e prático, mas eu não havia pensado nisso.

O Segundo também, falta somente uma coisa... depois que dou baixa em todos os lançamentos e que o meu formulário fica sem nenhum registro, caso ainda assim eu clique no botão "btnOK", ele dá erro no código e pede pra depurar... Dá pra colocar uma rotina que evite que isso aconteça?

Quanto ao terceiro problema que é mais complexo, vou tentar explicar melhor depois que eu tentar umas coisa aqui me veio em mente.

Agradeço mais uma vez.

Boa tarde colaboradorpa

Desculpe , eu não tinha feito este teste no Segundo problema!!
Precisando estamos por aqui


Abraços

Então Celso

No segundo problema ainda tem esse detalhe, se você conhecer uma solução, agradeço...

No terceiro tá embaçado, tentei uns truques aqui mas não rolou...

O que eu queria fazer com relação ao terceiro problema, em resumo, seria uma espécie de caixa...

Quando cadastrasse uma despesa, eu gostaria que ela fosse lançada nesse caixa, diminuindo o saldo existente no mesmo.
Na medida que eu fosse quitando as parcelas, eu quero que o débito seja dado baixa no referido caixa diminuindo o meu débito existente

Boas

Vou verificar o segundo detalhe e retorno

Quanto ao terceiro seria ex:
Crio despesa financiamento carro valor 30,000,00 parcelas 800,00
Cada baixa no financiamento descontar do valor financiado
Seria isto?
Sabendo que valor financiado tem valor Liquido, valor juros e valor final

Aguardo

Abraços

No terceiro seria assim

Financiamento carro: Valor R$ 30.000,00
Parcela: R$ 800,00

Em uma tabela separada eu teria um cadastro de fontes de despesas e receitas
Descrição:                           saldo
Conta bancária BB                 R$ 10.000,00
Conta bancária CEF               R$ 5.000,00
Contas à pagar
Contas à receber

Quando eu for dar baixa em uma parcela do carro, quero que ele desconte o valor da parcela, da fonte que eu escolher
Se eu lecionar a fonte Conta bancária BB, quero que o saldo dela diminua e passe a ser R$ 9.200,00

é tipo a sua carteira de bolso...

Qnd você compra alguma coisa, tira o dinheiro dela pra pagar.
Qnd rebe dinheiro de alguém, coloca o dinheiro nela..
Alterando o saldo existente.

Eu consegui resolver o segundo problema Celso

Criei no formulário frm_Despesas(Pendentes) um campo que conta os registros:
txtContReg com a função =Contar([IdDaDespesa]) => Retorna a quantidade de registro no formulário.

No evento "No atual" do formulário, inseri a seguinte rotina:

If txtContarReg.Value < 1 Then
Me.btnOK.Enabled = False
End If

boa Noite

Neste caso eu faria diferente, eu trataria este erro dentro do próprio código
cole este ex: no botão e faça teste
Mas faça um Backup antes, se der erro voce tem cópia

Private Sub btnOK_Click()
On Error GoTo Err_btnOK_Click ' Se houver erros vá pra Err_btnOK_click

If Selecionar.Value = False Then

MsgBox ("Especifique no campo selecionar, qual despesa deseja fazer o lançamento"), vbInformation, "Vocal Nova Aliança"

ElseIf IsNull(Me.CombFonte.Value) Or Me.CombFonte.Value = "" Then
MsgBox "Defina a Fonte pertencente !!!", vbInformation, "Atenção!"
DoCmd.CancelEvent
Me.CombFonte.SetFocus

ElseIf Selecionar.Value = True And MsgBox("Deseja executar o lançamento?", vbYesNo + vbQuestion, "Vocal Nova Aliança") = vbYes Then

Me.Quitado.Value = True
Me.DtPagamento = Me.txtDtLcto
Me.Requery

MsgBox ("Lançamento feito com sucesso"), vbInformation

Else
Me.Selecionar.Value = False
Me.Quitado.Value = False
Me.DtPagamento = ""
End If

'DoCmd.Close
Exit_btnOK_Click:
Exit Sub

Err_btnOK_Click: ' executa o código abaixo
'MsgBox Err.Description
Resume Exit_btnOK_Click
End Sub


Quanto ao outra pendencia, eu estive o dia todo fora e não consegui pensar em nada.
Mas uma idéia inicial seria criar rotinas como extrato bancario com multi bancos, enquanto me ponho em ordem pesquise algo a respeito e vamos conversando
Aguardo

Abraços

Mas faça o teste sem a alteração que voce fez, senão não sabera se resolveu!!

Aguardo

É... Celso.

Parabéns, cara...usei o seu código e funcionou perfeitamente...

Vou usar sua sugestão

Quanto ao terceiro ainda tô tentando.

Bom Dia

Como eu disse anteriormente para resolver o terceiro caso como sugestão, seria criar uma rotina para gerar extrato.
Criar tabelas independentes para Receitas e despesas, isto iria facilitar para buscar o resultado que voce deseja
Veja o exemplo abaixo, Analize, faça testes de lançamentos e veja se é melhor ou não desta maneira

Aguardo

Abraços

Bom dia Celso

Cara você tá me ajudando d+, quanto as tabelas de receitas e despesas eu já tenho... meu banco de dados já tem bastante coisas é que te mandei só uma parte... vou olhar o exemplo que vc me mandou, com certeza vai ser útil...

Valeu mesmo

Boa noite!
Celso Roberto...
Aqui estou eu mais uma vez precisando da sua ajuda... olhei o seu exemplo e com relação a consulta união, não consegui adaptar os critérios que vc usou pra realizar os extratos...

Vou anexar uma parte maior do banco de dados e também uma imagem que representa os extratos que eu quero tirar à partir das minhas tabelas de receitas e despesas...

Ver o que você pode fazer pra mim...

Boas

A Noite com mais calma vejo para voce

Abraços

Valeu...

Obrigado

Boas

Oque voce precisa seria:

1- uma conta acumulado por receita
2- uma conta acumulado por despesa
3- uma conta tipo extrato dos acumulados
Ou
Só uma conta tipo extrato das despesas e receitas

Aguardo

O principal:
Acumulado das despesas vencidas no mês atual
Acumulado das receitas vencidas no mês atual
Extrato dos acumulados indicando quanto saiu e quanto entrou, mostrado o saldo

Tendo isso talvez eu consiga fazer o restante, mas preciso fazer a mesma coisa, porém filtrando somente os que vencem no dia atual

e por último:
todos as despesas vencidas
Receitas vencidas
e o extrato do acumulado entre elas
sem filtro por período

Boas

Fiz 2 consultas
uma despesas acum e Veja o conceito e faça a de Receitas acumuladas

fiz outra com receitas e despesas acumuladas e tente fazer as outras

Aguardo

Abraços

Obrigado!

Obrigado pelo retorno o Fórum Agradece
Veja se esta tambem te ajuda
Copie em sql de nova consulta

Abraços e até a próxima


SELECT DtReceita AS DtMovimento, IdDaReceita, DescricaoDaReceita, IdSacFav AS IdSacFavRec, PlanoDeContasDaReceita, ValorDaReceita, TipoDaContaReceita, QtdParcelas AS QtParcelas, Intervalo AS Intervalos, Entrada AS Entradas, (SELECT IIf(Sum(ValorDaReceita)Is Null,0,Sum(ValorDaReceita)) FROM tbl_Receitas AS T1 WHERE T1.DtReceita <=tbl_Receitas.DtReceita) AS ValorReceitasAcum, 0 AS IdDaDespesa, 0 AS DescricaoDaDespesa, 0 AS IdSacFav, 0 AS PlanoDeContasDaDespesa, 0 AS ValorDaDespesa, 0 AS TipoDaContaDespesa, 0 AS QtdParcelas, 0 AS Intervalo, 0 AS Entrada, 0 AS ValorDespesasAcum
FROM tbl_Receitas



UNION SELECT DtDespesa, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, IdDaDespesa, DescricaoDaDespesa, IdSacFav, PlanoDeContasDaDespesa, ValorDaDespesa, TipoDaContaDespesa, QtdParcelas, Intervalo, Entrada, (SELECT IIf(Sum(ValorDaDespesa)Is Null,0,Sum(ValorDaDespesa)) FROM tbl_Despesas AS T1 WHERE T1.DtDespesa<=tbl_Despesas.DtDespesa) AS ValorDespesasAcum
FROM tbl_Despesas;