Código que no funciona

Alka
04 de Marzo del 2004
Hola,
¿Alguien me puede ayudar ?
El siguiente código no hace nada y no encuentro el error.
Gracias

Option Compare Database
Option Explicit
Public Function Actu()
On Error GoTo Error_Actu
\'*** ABRIMOS LA BASE DE DATOS
Dim Db As Database
Set Db = CurrentDb()
\'*** CREAMOS UN RECORDSET
\' Ordenando por CART RAMADERA, CODI ESPECIE Y DATA PRESA
Dim T_TAB As Recordset
Dim sql As String
sql = "SELECT * FROM [Taula GESTIO]"
sql = sql & " ORDER BY [Taula GESTIO].[CART RAMADERA],"
sql = sql & " [Taula GESTIO].[CODI ESPECIE],"
sql = sql & " [Taula GESTIO].[DATA PRESA]"
Set T_TAB = Db.OpenRecordset(sql, dbOpenSnapshot)
\'*** COMPROBAMOS LA EXISTENCIA DE REGISTROS
\' Si Existen registros creamos un bucle hasta que llegemos al final (EOF) del recordset (1)
If T_TAB.RecordCount <> 0 Then
\' CREAMOS LAS VARIABLES PARA CONSERVAR CART RAMADERA, CODI ESPECIE,DATA PRESA Y VISITA LLIMIT
Dim V_CART_RAMADERA, V_CODI_ESPECIE, V_DATA_PRESA, V_VISITA_LLIMIT
\' CREAMOS LA VARIABLE DEL SEGUNDO RECORDSET PARA ACTUALIZAR LA INFORMACIÓN QUE DESEAMOS
Dim T_TAB2 As Recordset
\'(1) Comenzamos el bucle
Do While Not T_TAB.EOF
\' Recogemos los valores de CART RAMADERA, CODI ESPECIE, DATA PRESA Y VISITA LLIMIT
V_CART_RAMADERA = T_TAB![CART RAMADERA]
V_CODI_ESPECIE = T_TAB![CODI ESPECIE]
V_DATA_PRESA = T_TAB![DATA PRESA]
V_VISITA_LLIMIT = T_TAB![VISITA LLIMIT]
\' Localizamos los registros que cuyo CART RAMADERA es igual a CART RAMADERA, CODI ESPECIE es igual a CODI ESPECIE y cuya DATA PRESA es mayor o posterior
\' al DATA PRESA del primer recordset
sql = "SELECT * FROM [Taula GESTIO]"
sql = sql & " WHERE [Taula GESTIO].[CART RAMADERA] =\'" & V_CART_RAMADERA & "\'"
sql = sql & " AND [Taula GESTIO].[CODI ESPECIE] =\'" & V_CODI_ESPECIE & "\'"
sql = sql & " AND [Taula GESTIO].[DATA PRESA] >#" & V_DATA_PRESA & "#"
\' Seleccionamos el segundo recordset para poder ser actualizado
Set T_TAB2 = Db.OpenRecordset(sql, DBOPENDYNASET, DBSEECHANGES, DBOPTIMISTIC)
\' Comprobamos la existencia de registros
If T_TAB2.RecordCount <> 0 Then
\' Comenzamos el bucle de los registros que coincidan con la condición establecida
Do While Not T_TAB2.EOF
\' Editamos el registro y actualizamos los valores de VISITA LLIMIT DARRERA con VISITA LLIMIT
T_TAB2.Edit
T_TAB2![VISITA LLIMIT DARRERA] = V_VISITA_LLIMIT
T_TAB2.Update
\' Vamos al siguiente registro
T_TAB2.MoveNext
\' Avanzamos el Bucle
Loop
End If
\' Cerramos el Recordset de los coincidentes
T_TAB2.Close
\' Vamos al siguiente registro del primer bucle
T_TAB.MoveNext
\' Avanzamos el primer bucle
Loop
End If
\' Cerramos los objetos abiertos
Set T_TAB2 = Nothing
T_TAB.Close
Set T_TAB = Nothing
Db.Close
Set Db = Nothing
Exit Function
Error_Actu:
End Function







Pepe
04 de Marzo del 2004
Es posible que estes mezclando ADO y DAO