Ver Mensaje Individual
  #4 (permalink)  
Antiguo 26/01/2005, 04:13
Avatar de torpedo78
torpedo78
 
Fecha de Ingreso: enero-2005
Mensajes: 23
Antigüedad: 19 años, 4 meses
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 ...