Nabucodonosor
22 de Julio del 2004

Hola a todos

El problema que tengo es que quiero sacar la suma de una serie de valores de una tabla, y mostrarla en un Text Box, pero al tratar de hacerlo me sale el texto de la consulta y no el valor

Aqui les envio el codigo dl boton

Private Sub cmd_v_Click()
Dim toche As String
Dim tRs2 As Recordset
toche = "SELECT SUM(Valor) FROM Cheques "
Set tRs2 = DB.OpenRecordset(toche, dbOpenSnapshot)
txt_toch.Text = tRs2
End Sub

Como puedo hacer para que me salga el valor del SUM?
Por la atencion les anticipo las gracias

Andres Guerrero
22 de Julio del 2004

Private Sub cmd_v_Click()
dim total as integer
Dim toche As String
Dim Rs2 As Recordset
toche = "SELECT SUM FROM Cheques "
Rs2.Open toche, conexion 'conexion es el nombre de la conexion
while not rs2.eof then
total = total + Rs2(0)
rs2.movenext
wend
End Sub

Solid Snake
22 de Julio del 2004

Ahh me olvidaba

Text_toche.text = Total