TOTAL DE VALORES
Srs, Bom Dia
Tenho um sistema de Contas a Pagar e Receber, meu banco de dados é no Access, onde tenho uma tabela chamada de Dados com os Nomes Do Campo: Codigo, Valor e PosicaoConta, nesta coluna tenho os itens: Paga, A Pagar, Receber, Recebida. O que eu quero é que guando abro meu sistema em uma TextBox chamada de TotalPagar me de a somatoria de todos os valores que ja foram pagos. Segue o que eu estou usando.
[ô]ABERTURA FORMULÃRIO CONTAS
Private Sub Form_Load()
Dim XT As Single
XT = 0
Set AreaTrabalho = DBEngine.Workspaces(0)
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Dados.Mdb[Ô], False, False)
query = [Ô]SELECT* FROM Contas order by PosicaoConta = [ô][Ô] & Paga & [Ô][ô][Ô]
Set dyn = xxbco.OpenRecordset(query)
While Not dyn.EOF
XT = XT + CCur(dyn([Ô]Valor[Ô])) & [Ô][Ô]
dyn.MoveNext
Wend
xxbco.Close
TotalPagar.Text = Format(XT, [Ô]#,###.00[Ô])
End Sub
Tenho um sistema de Contas a Pagar e Receber, meu banco de dados é no Access, onde tenho uma tabela chamada de Dados com os Nomes Do Campo: Codigo, Valor e PosicaoConta, nesta coluna tenho os itens: Paga, A Pagar, Receber, Recebida. O que eu quero é que guando abro meu sistema em uma TextBox chamada de TotalPagar me de a somatoria de todos os valores que ja foram pagos. Segue o que eu estou usando.
[ô]ABERTURA FORMULÃRIO CONTAS
Private Sub Form_Load()
Dim XT As Single
XT = 0
Set AreaTrabalho = DBEngine.Workspaces(0)
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Dados.Mdb[Ô], False, False)
query = [Ô]SELECT* FROM Contas order by PosicaoConta = [ô][Ô] & Paga & [Ô][ô][Ô]
Set dyn = xxbco.OpenRecordset(query)
While Not dyn.EOF
XT = XT + CCur(dyn([Ô]Valor[Ô])) & [Ô][Ô]
dyn.MoveNext
Wend
xxbco.Close
TotalPagar.Text = Format(XT, [Ô]#,###.00[Ô])
End Sub
Citação:
Cabra,não leve à ............................
[txt-color=#e80000]DAO[/txt-color],antigo de mais.
Use pelo menos [txt-color=#007100]ADO[/txt-color].
[txt-color=#e80000]DAO[/txt-color],antigo de mais.
Use pelo menos [txt-color=#007100]ADO[/txt-color].
Adapte e tente isto:
E DAO não é o problema aqui. aliás, ele é mais do que suficiente de pendendo da tarefa.
[ô]ABERTURA FORMULÃRIO CONTAS
Private Sub Form_Load()
Dim XT As Single
XT = 0
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Dados.Mdb[Ô], False, False)
query = [Ô]SELECT sum(valor) as total FROM Contas order by PosicaoConta = [ô][Ô] & Paga & [Ô][ô][Ô]
Set dyn = xxbco.OpenRecordset(query)
TotalPagar.Text = Format(dyn(total), [Ô]#,###.00[Ô])
dyn.Close
xxbco.CloseE DAO não é o problema aqui. aliás, ele é mais do que suficiente de pendendo da tarefa.
Leandro, esta dando erro aqui
Set dyn = xxbco.OpenRecordset(query)
Set dyn = xxbco.OpenRecordset(query)
Poxa cara, só aà pode haver trocentos erros. Vc declarou esse recordset? é uma dynaset? Não copie códigos e cole no seu projeto sem entender o que tá acontecendo. Vai ser muito cansativo pra vc. 
Então vc quer que some os outros labels?
Expliquesse melhor mas caso for isso o código é:
Label(resultado).Text = Val(Label1 a somar1.Text) + Val(Label2 a somar 2.Text)
Expliquesse melhor mas caso for isso o código é:
Label(resultado).Text = Val(Label1 a somar1.Text) + Val(Label2 a somar 2.Text)
Tópico encerrado , respostas não são mais permitidas