cannot find the input table or query ´Tabla´......
Me sale ese error...
ASi me quedo...
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
Dim sql As String
sql = "SELECT SUM(ValorI) as Valor1 FROM Tabla"
Set Tabla = Base.OpenRecordset(sql)
Label4 = Val(Tabla!Valor1)
Label5 = 50
Label6 = Label5 - Label4
Exit Sub
Error:
MsgBox "Error : " & Err.Description
Resume Next
End Sub
grax again