Foros del Web » Programación para mayores de 30 ;) » Programación General »

primer registro

Estas en el tema de primer registro en el foro de Programación General en Foros del Web. Buenas noxes a todos!!! Tengo un problema con una bd creada con access... hay dos botones que lo q hacen es desplazarme un registro hacia ...
  #1 (permalink)  
Antiguo 23/11/2003, 16:17
 
Fecha de Ingreso: noviembre-2003
Ubicación: España->Madrid
Mensajes: 368
Antigüedad: 20 años, 5 meses
Puntos: 0
Mensaje primer registro

Buenas noxes a todos!!!
Tengo un problema con una bd creada con access...
hay dos botones que lo q hacen es desplazarme un registro hacia atras/delante respectivamente...
el problema surge cuando estoy en el rpimer registro o ultimo respectivamente.. que me sale un error que me da acceso al codigo...

entonces yo lo que querría es deshabilitar esos botones cuand este en el primer/ultimo registro... alguna idea?¿

gracias de antemano
  #2 (permalink)  
Antiguo 10/12/2003, 14:38
Avatar de lic_dahool  
Fecha de Ingreso: noviembre-2003
Mensajes: 418
Antigüedad: 20 años, 6 meses
Puntos: 0
para saber si esta en el primer registro usas BOF() para saber si es el último EOF()
__________________
La cantidad total de inteligencia del planeta permanece constante.
La población, sin embargo, sigue aumentando.

COLE


:cool: Los ordenadores no resuelven problemas ... ejecutan soluciones.
Laurent Gasser


Tienes alguna duda :pensando: ? >>> www.google.com :aplauso: <<<
  #3 (permalink)  
Antiguo 11/12/2003, 03:43
 
Fecha de Ingreso: abril-2003
Ubicación: Madrid
Mensajes: 707
Antigüedad: 21 años
Puntos: 0
Digamos que si a uno de los botones le llamas ComandoAnterior, y al otro ComandoSiguiente, puedes poner esto

Private Sub ComandoAnterior_Click()
On Error GoTo Err_ComandoAnterior_Click


DoCmd.GoToRecord , , acPrevious

Exit_ComandoAnterior_Click:
Exit Sub

Err_ComandoAnterior_Click:
MsgBox Err.Description, vbExclamation
Resume Exit_ComandoAnterior_Click

End Sub


Private Sub ComandoSiguiente_Click()
On Error GoTo Err_ComandoSiguiente_Click


DoCmd.GoToRecord , , acNext

Exit_ComandoSiguiente_Click:
Exit Sub

Err_ComandoSiguiente_Click:
MsgBox Err.Description, vbExclamation
Resume Exit_ComandoSiguiente_Click

End Sub

Gestiona los errores desde el código y evitaras que se pueda entrar en el código con sólo pulsar un botón Depurar


Un saludo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:38.