Error: "end of file encountered"

Hola alonso, tambien quiero saber si me puedes colaborar con este codigo del boton "siguiente" lo que pasa es que cuando llega digamos a el ultimo registro y vuelvo y le click entonces como ya no hay mas registros sale el siguiente error "End of file encountered" lo mismo con el boton "atras" el codigo es el siguiente:
SKIP 1
thisform.text1.Value = auxiliar.serie
thisform.text2.Value = auxiliar.ida
thisform.text3.Value = nombre
thisform.text4.Value = edad
thisform.text5.Value =nacmiento
thisform.text6.Value=telefono
thisform.text7.Value=celular
thisform.text8.Value=direccion
thisform.text9.Value=rh
thisform.text10.Value=estudios
thisform.text11.Value=idp
thisform.text12.Value=nomp
thisform.text13.Value=rhp
thisform.text14.Value=idm
thisform.text15.Value=nomm
thisform.text16.Value=rhm
thisform.text17.Value=foto
thisform.image1.Picture=foto
thisform.Refresh

1 respuesta

Respuesta
1
El código es el siguiente:
If !Eof()
  SKIP 1
thisform.text1.Value = auxiliar.serie
thisform.text2.Value = auxiliar.ida
thisform.text3.Value = nombre
thisform.text4.Value = edad
thisform.text5.Value =nacmiento
thisform.text6.Value=telefono
thisform.text7.Value=celular
thisform.text8.Value=direccion
thisform.text9.Value=rh
thisform.text10.Value=estudios
thisform.text11.Value=idp
thisform.text12.Value=nomp
thisform.text13.Value=rhp
thisform.text14.Value=idm
thisform.text15.Value=nomm
thisform.text16.Value=rhm
thisform.text17.Value=foto
thisform.image1.Picture=foto
thisform.Refresh
Else
SKIP - 1
thisform.text1.Value = auxiliar.serie
thisform.text2.Value = auxiliar.ida
thisform.text3.Value = nombre
thisform.text4.Value = edad
thisform.text5.Value =nacmiento
thisform.text6.Value=telefono
thisform.text7.Value=celular
thisform.text8.Value=direccion
thisform.text9.Value=rh
thisform.text10.Value=estudios
thisform.text11.Value=idp
thisform.text12.Value=nomp
thisform.text13.Value=rhp
thisform.text14.Value=idm
thisform.text15.Value=nomm
thisform.text16.Value=rhm
thisform.text17.Value=foto
thisform.image1.Picture=foto
thisform.Refresh
Endif
con el botón de atrás
If !Bof()
  SKIP - 1
thisform.text1.Value = auxiliar.serie
thisform.text2.Value = auxiliar.ida
thisform.text3.Value = nombre
thisform.text4.Value = edad
thisform.text5.Value =nacmiento
thisform.text6.Value=telefono
thisform.text7.Value=celular
thisform.text8.Value=direccion
thisform.text9.Value=rh
thisform.text10.Value=estudios
thisform.text11.Value=idp
thisform.text12.Value=nomp
thisform.text13.Value=rhp
thisform.text14.Value=idm
thisform.text15.Value=nomm
thisform.text16.Value=rhm
thisform.text17.Value=foto
thisform.image1.Picture=foto
thisform.Refresh
Else
Locate
thisform.text1.Value = auxiliar.serie
thisform.text2.Value = auxiliar.ida
thisform.text3.Value = nombre
thisform.text4.Value = edad
thisform.text5.Value =nacmiento
thisform.text6.Value=telefono
thisform.text7.Value=celular
thisform.text8.Value=direccion
thisform.text9.Value=rh
thisform.text10.Value=estudios
thisform.text11.Value=idp
thisform.text12.Value=nomp
thisform.text13.Value=rhp
thisform.text14.Value=idm
thisform.text15.Value=nomm
thisform.text16.Value=rhm
thisform.text17.Value=foto
thisform.image1.Picture=foto
Thisform. Refresh
Endif
Lo anterior puede solucionar el problema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas