26/01/2005, 04:13
|
| | | Fecha de Ingreso: enero-2005
Mensajes: 23
Antigüedad: 20 años Puntos: 0 | |
Al final parece que "mariconeando" un poquito he llegado a una solucion que me sirve... aunque no sé si es muy ortodoxa ... aki la pego por si a alguien le sirve
---------------------------
Private Sub Form_Current()
Dim ultimo As Integer
ultimo = Me.RecordsetClone.RecordCount
If CurrentRecord > 1 Then
Me.Anterior.Enabled = True
Me.Primero.Enabled = True
End If
If CurrentRecord = 1 Then
Me.Anterior.Enabled = False
Me.Primero.Enabled = False
End If
If CurrentRecord = ultimo Then
Me.Siguiente.Enabled = False
Me.ultimo.Enabled = False
End If
If CurrentRecord < ultimo Then
Me.Siguiente.Enabled = True
Me.ultimo.Enabled = True
End If
--------------
ai veces k solo ai k kaminar un pokito para llegar a la meta ... |