01/08/2005, 12:05
|
| | | Fecha de Ingreso: julio-2005
Mensajes: 6
Antigüedad: 19 años, 9 meses Puntos: 0 | |
| el RecordCount te da uno por que en esa posición se encuentra el cursor en ese momento, lo que puedes hacer es darle la instricción:
rs1.MoveLast 'Mueve el cursor a la última posición.
If rs1.RecordCount = 0 Then
Exit Sub
End If
La otra opcion es:
If (rs1.EOF And rs1.BOF) Then
Exit Sub 'Si la tabla está Vacía se sale del procedimiento.
End If |