23/11/2004, 05:44
|
 | | | Fecha de Ingreso: agosto-2004 Ubicación: Santa Rosa, La Pampa, Argentina
Mensajes: 1.484
Antigüedad: 20 años, 7 meses Puntos: 13 | |
| Si lo que necesitas es que cuando el producto sea eliminado de la base de datos cuando la fecha del sistema sea igual que el campo FechaExpira, entonces yo lo haria asi:
If Productos.EOF = True and Productos.BOF = True Then
'No tenes ningun registro en la tabla productos
Else
With Productos
.MoveFirst
Do while .EOF <> True
If Productos.FechaExpira <= Date Then
Productos.Delete
endif
.Movenext
Loop
'O bien lo realizaría con una sentencia SQL
DELETE FROM Productos WHERE FechaExpira <= #Date#
Saludos. Lucas |