CADASTRO DE CLIENTES

Citação:

:
bom colega eu baixei o seu prog, mas não entendi o problema seja mais especifico por favor.

Citação:

:
bom colega ta dificil entender sua necessidade, mas vamos lá, veja se é isto:

[th][/th]
[th][/th]
[th][/th]
[th][/th]
[th][/th]

Codigo

Nome

R$-PG

R$ PD

R$-Total Pago

R$ Total Pend

R$ Geral

1.

Ana

10,0

0,00

12,00

17,00

29,00

2.

João

0,00

15,00

3.

Maria

2,00

0,00

4.

Pedro

0,00

2,00

coo que seu código funciona, quando se seleciona um item no listbox do projeto, é exibido nos campos os respectivos valores, porém o que vc quer alterar.

o que vc quer somar isso ainda não ficou claro, vc teria que postar um exemplo do funcionamento do programa, pois ta dificil.

Sub SomaRegistros()
 Dim RSsoma As Recordset
 Dim sSQL As String
 sSQL = [Ô]select sum(rspago) as pago,sum(rspendente) as pendente from tabcadastro[Ô]
 Set RSsoma = Con.Execute(sSQL)
 txtValor3.Text = RSsoma!pago
 txtValor4.Text = RSsoma!pendente
 txtTotal.Text = CCur(txtValor3.Text) + CCur(txtValor4.Text)
 RSsoma.Close
 Set RSsoma = Nothing
 End Sub

Citação:

:
olha colega, depois que entendemos como funciona fica mais fácil.

cole ests sub em seu projeto

Sub SomaRegistros()
 Dim RSsoma As Recordset
 Dim sSQL As String
 sSQL = [Ô]select sum(rspago) as pago,sum(rspendente) as pendente from tabcadastro[Ô]
 Set RSsoma = Con.Execute(sSQL)
 txtValor3.Text = RSsoma!pago
 txtValor4.Text = RSsoma!pendente
 txtTotal.Text = CCur(txtValor3.Text) + CCur(txtValor4.Text)
 RSsoma.Close
 Set RSsoma = Nothing
 End Sub

basta chamar a sub no load do form, ou quando necessário, veja bem analize melhor sua lógica, tipo quando se clicar no list que possui o nome dos clientes o total será apagado para exibir somente o valor dos clientes individualmente, seja se isto é certo ok

abraço diga se funcionou

Citação:

:
:
olha colega, depois que entendemos como funciona fica mais fácil.

cole ests sub em seu projeto

Sub SomaRegistros()
 Dim RSsoma As Recordset
 Dim sSQL As String
 sSQL = [Ô]select sum(rspago) as pago,sum(rspendente) as pendente from tabcadastro[Ô]
 Set RSsoma = Con.Execute(sSQL)
 txtValor3.Text = RSsoma!pago
 txtValor4.Text = RSsoma!pendente
 txtTotal.Text = CCur(txtValor3.Text) + CCur(txtValor4.Text)
 RSsoma.Close
 Set RSsoma = Nothing
 End Sub

basta chamar a sub no load do form, ou quando necessário, veja bem analize melhor sua lógica, tipo quando se clicar no list que possui o nome dos clientes o total será apagado para exibir somente o valor dos clientes individualmente, seja se isto é certo ok

abraço diga se funcionou

Sim, ficou como deveria. Mais teria como deixar os valores sem ser APAGADO ao clicar no list?