La Fuente
26 de Abril del 2004

Tengo un problema con el movimiento de un recordset, y es el siguiente:

Deseo que al llegar al primer registro, se me deshabiliten los botones de "Ir al primer registro" y el de "Ir al registro anterior" al llegar al 1º registro; al = q para el ultimo registro y los botones de "Ir al ultimo registro" y "Ir al registro posterior"

Pero NO ME RECONOCE EL RECORDSET, o por lo menos, no coge los datos necesarios.

El codigo del formulario es el siguiente:

Private Sub Form_Load()
Forms!Update_Familias.RecordsetClone.MoveLast
Las = Forms!Update_Familias.RecordsetClone.RecordCount
Forms!Update_Familias.RecordsetClone.MoveFirst
Call Movi
End Sub

Sub Movi()
If Forms!Update_Familias.RecordsetClone.AbsolutePosition = 0 Then
cmdPrimer.Enabled = True
cmdAnterior.Enabled = True
cmdPrimer.SetFocus
cmdUltimo.Enabled = False
cmdSiguiente.Enabled = False
Else
If Las = Forms!Update_Familias.RecordsetClone.AbsolutePosition Then
cmdUltimo.Enabled = True
cmdSiguiente.Enabled = True
cmdUltimo.SetFocus
cmdPrimer.Enabled = False
cmdAnterior.Enabled = False
Else
cmdPrimer.Enabled = True
cmdAnterior.Enabled = True
cmdSiguiente.Enabled = True
cmdUltimo.Enabled = True
End If
End If
End Sub

Este codigo esta basado en otro q si funciona, y es el siguiente:

Dim Las As Long

Private Sub Form_Load()
Forms!con_01_proveedores.RecordsetClone.MoveLast
Las = Forms!con_01_proveedores.RecordsetClone.RecordCount
Call Movi
End Sub

Sub Movi()
P_Nota_01.Visible = False
Con_01_Productos_Sub!OD_Nota.Visible = False
If Las = Forms!con_01_proveedores.Recordset.AbsolutePosition + 1 Then
cmdPrimer.Enabled = True
cmdAnterior.Enabled = True
cmdPrimer.SetFocus
cmdUltimo.Enabled = False
cmdSiguiente.Enabled = False
Else
If Forms!con_01_proveedores.Recordset.AbsolutePosition = 0 Then
cmdUltimo.Enabled = True
cmdSiguiente.Enabled = True
cmdUltimo.SetFocus
cmdPrimer.Enabled = False
cmdAnterior.Enabled = False
Else
cmdPrimer.Enabled = True
cmdAnterior.Enabled = True
cmdSiguiente.Enabled = True
cmdUltimo.Enabled = True
End If
End If
End Sub

Alguien me podria decir donde tengo el error, tambien me vale otra forma d hacerlo, pero no me vale mediante los botones de registro q aparecen en cualquier formulario.

La Fuente
26 de Abril del 2004

se me olvidava, el sub modelo "Movi", es llamado desde el evento "Al hacer click" de los botones de desplazamiento del formulario.