Ver Mensaje Individual
  #4 (permalink)  
Antiguo 16/05/2004, 16:35
(RTT)Blackhawk
 
Fecha de Ingreso: abril-2003
Mensajes: 79
Antigüedad: 21 años, 11 meses
Puntos: 0
No me Funciona...

les pego el code..

Option Explicit
' declaramos una variable de alcance publico de tipo DataBase
Dim Base As Database
' declaramos una variable de alcance publico de tipo Recordset
Dim Tabla As Recordset

Private Sub Form_Load()
On Error GoTo Error:
' varible de tipo set que guarda la direccion de la base de datos
Set Base = OpenDatabase(App.Path & "\\Base1.mdb")
'varible de tipo set que abre la tabla en modo lectura - escritura
Set Tabla = Base.OpenRecordset("economia", dbOpenTable)
Label4 = SELECT SUM(ValorI)FROM Tabla
Label5 = 50
Label6 = Label5 - Label4
Exit Sub
Error:
MsgBox "Error : " & Err.Description
Resume Next
End Sub

COMO LO HAGO PARA QUE EN EL LABEL4 MUESTRE LA SUMA DE TODOS LOS CAMPOS !VALORI ???

GRACIAS:...
__________________
*Tratando de Aprender de los errores.....

Última edición por (RTT)Blackhawk; 16/05/2004 a las 16:56