COMO FAZER ESTA SINTAXE?

USUARIO.EXCLUIDOS 13/08/2007 14:58:00
#230729
E ai pessoal....

Então to tentando desenvolver um programa pra mim de "Finanças Pessoais". Mas estou com algumas dificuldades, vamos la: Quando do carregamento do Form, deveria aparecer o "Saldo" que nem em site de banco....bom mas quando eu faço lançamentos, saques e etc....tudo se altera na Tabela "Saldo" o meu problema é que eu não consigo atualizar no Form, o Saldo correto depois dos lançamentos, Pois fica aparecendo o primeiro Saldo meu, Resumindo: meu primeiro depósito feito.....olha eu tentei fazer varias codificações e nada, por isso não tenho parte do código para melhor explicação de vcs, mas abaixo vou dizer com exemplos da minha Tabela, e talvez vcs possam dar até sugestões de mudanças e etc...

Tabela: Saldo

1º Campo: data_saldo
2º campo: valor_saldo

Agora exemplos:

13/08/2007 - saldo = 200,00
13/08/2007 - saque = 100,00
13/08/2007 - saldo final = 100,00 (o certo seria aparecer este valor no campo saldo do Form, pois é o ultimo movimento feito, mas aparece aquele saldo de 200,00....esta ai o problema...)

Minha dificuldade é listar o ultimo lancamento no carregamento do Form...

Pessoal Agradeço desde ja.....
Valeu!

USUARIO.EXCLUIDOS 13/08/2007 15:16:04
#230730

Bom...qual comando vc usa pra carregar esse saldo no load do form?

crie um campo Débito/Crédito (C/D)..aí atraves de uma sql vc consegue somar od débitos, os créditos, subtrair c de d, e ter o resultado..q é o saldo..

entendeu ae?

USUARIO.EXCLUIDOS 13/08/2007 15:18:29
#230732
PROGRAMER,

Depois que voce efetuou o SAQUE, voce alterou o valor do SALDO no banco de dados? (SALDOATUAL = SALDO - SAQUE)

Se esta condicao for atendida, listar o SALDO ATUAL no form eh moleza...

(Text1.text = SALDO(valor_saldo)

Valeu!
USUARIO.EXCLUIDOS 13/08/2007 15:45:44
#230735
Sinkertec:

Se vc puder me forncer um caminho, tipo uma sintaxe disto eu agradeceria, mas eu entedi mais ou menos o que vc quis dizer...minha lógica hj não esta boa, rsrs.....no form eu tentei colocar assim:

rst.Open "select * from Saldo", cnn, adOpenForwardOnly, adLockOptimistic

rhtSaldo.Text = rst!valor_saldo

até vem o valor, mas não o ultimo laçamento feito....

Tecla:

Então isso dai que vc me disse eu ja fiz sim....mas então eu acho que minha tabela esta errada, pois não fica atualizando o saldo no em um campo só, e a soma e saques caem certinho nos campos Saldo, só que eu vendo assim eu acho que eu compliquei tudo, vou dar um exemplo abaixo pra melhorar:

A tabela saldo funciona da seguinte forma:

Data_saldo 13/08/2007
valor_saldo = 200,00

agora eu efetuo mais um deposito de 100,00

ai cai la:

13/08/2007
data_saldo 13/08/2007
valor_saldo = 300,00

efetuo o saque: de 50,00
data_saldo 13/08/2007
valor saldo = 250,00

Resumindo: Tabela

id data_saldo valor_saldo
13/08/2007 200,00 (saldo)
13/08/2007 300,00 (depositei 100,00, ficou 300,00)
13/08/2007 250,00 (saquei 50,00 ficou 250,00)

entendeu, eu fiz uma tabela que até faz as coisas certas, mas eu acredito que não foi uma melhor forma de faze-la, por isso preciso de opiniões, sugestões...

--------------------------------------

e agradeço a força de vcs 2...
USUARIO.EXCLUIDOS 13/08/2007 15:54:50
#230736

Bom meu caro..vamos lá..

Sua tabela deve ficar assim,

id DataMovto ValorMovto Tipo
1 10/10/2007 100 C
2 13/10/2007 250 D
3 15/10/2007 50 D
4 19/10/2007 300 C

add os valores na sua tabela de modo q fique dessa forma..pra facilitar

Utilizando sua própria sql faça assim

rst.Open "select Sum(ValorMovto) as TotalDébito from Saldo Where Tipo='D'", cnn, adOpenForwardOnly, adLockOptimistic

TxtDébito = rst!TotalDébito

rst.Open "select Sum(ValorMovto) as TotalCrédito from Saldo Where Tipo='C'", cnn, adOpenForwardOnly, adLockOptimistic

TxtCrédito= rst!TotalCrédito

txtSaldo = cdbl(txtcrédito) - cdbl(txtdébito)


entendeu mais ou menos ae


qq coisa..manda aki
USUARIO.EXCLUIDOS 13/08/2007 16:06:57
#230741
Sinkertec

Vou fazer aqui, e depois te dou um alÃÂ'....

obrigado
Abraços
USUARIO.EXCLUIDOS 13/08/2007 16:11:07
#230743
Resposta escolhida
Bom, pelo que eu entendi, a tabela dele só armazena o saldo, e não a movimentação em si...

Sendo assim, fica mais fácil de fazer.
Tente assim amigo:

rst.Open "select * from Saldo ORDER BY data_saldo DESC", cnn, adOpenForwardOnly, adLockOptimistic

rhtSaldo.Text = rst!valor_saldo

USUARIO.EXCLUIDOS 13/08/2007 16:12:59
#230745
é Marcelo, as outras movimentações estão em outras tabelas. mas valeu, vou fazer tb sua sintaxe....

Abraços
USUARIO.EXCLUIDOS 13/08/2007 16:21:15
#230749
MARCELOHF:

Cara obrigado, uma coisa assim tão simples e eu aqui me matando, mas vc resolveu minha necessidade, valeu mesmo.....ponto pra vc.

Sinkertec:

Tb agradeço a sua ajuda, a parte do seu código que vc me mandou tb será muito bem vinda pra que eu possa estudar em outras formas, pois sou iniciante....mas o MarceloHF, matou a charada e funcionou blz....mas mesmo assim valeu.







USUARIO.EXCLUIDOS 13/08/2007 16:26:52
#230751
Opa... Blz cara..

Qualquer coisa só postar aí que o pessoal tenta ajudar.
Na verdade creio que o Sinkertec só não matou o problema antes pois não entendeu ao certo a modelagem de seu banco.


Só não esquece de encerrar o tópico! ;)


Abs!
Tópico encerrado , respostas não são mais permitidas