Programación General > Visual Basic para principiantes

 Dudas Con Eof Y Bof

(1/1)

manuelbse:
HOLA SOY UN PROGRAMADOR PRINCIPIANTE Y ESTOY REALIZANDO UN PROYECTO Y ESTOY UTILIZANDO UNA TABLA EN ACCESS Y ESTA NO POSEE NINGUN REGISTRO DE LA CUAL DESDE UN FORMULARIO SE INTRODUCIRAN LOS DATOS PERO QUIERO QUE ESTA LLEVE UN NUMERO DE ORDEN CORRELATIVO Y AUTOMATICO. CUANDO UTILIZO LOS EOF Y BOF SE ME PRESENTA ERROR AQUI LES DOY PARTE DEL CODIGO:

If consulta.EOF = False Then
        consulta.MoveNext
    Else
        consulta.MoveLast
    End If
 'consulta.MoveLast
  NUMORDEN = consulta!ordtrab
  With Form2
        NUMORDEN = NUMORDEN
        NUMORDEN = NUMORDEN + 1
        Form2.Text1.Text = NUMORDEN
    End With

GRACIAS POR LA AYUDA QUE ME PUEDAN DAR!

Shiquilla:
No entiendo muy bien qué es lo que quieres, si coger el siguiente código para el siguiente elemento o recorrer una tabla. Según el código con eso lo que estás haciendo es recorrer la tabla.

DiabloRojo:
Hola manuelbse.
Dices que el error lo tienes en los BOF y EOF. No especificas que tipo de error es pero si tienes la tabla vacía esto genera error:


--- Citar ---If consulta.EOF = False Then
consulta.MoveNext
Else
consulta.MoveLast
End If

--- Fin de la cita ---

Veamos:

If consulta.EOF = False Then : Te devuelve True entonces pasa al Else

y trata de ejecutar:

consulta.MoveLast, pero como tampoco hay un registro anterior (BOF es igual a

True) entonces te genera el error...


Supongo que un código así podría funcionarte:

--- Código: Text --- If consulta.EOF = False Then    consulta.MoveNextElseIf consulta.BOF=False Then    consulta.MoveLastElse    'Entonces la tabla está vacía End If  

Espero que te sea de alguna ayuda.

DiabloRojo.

Widark:
Hola manuelbse!

Creo que deberias validar que no sea ni fin ni principio de archivo y luego si moverte, ej:

--- Código: Text --- If not (rsDesplazar.BOF And rsDesplazar.EOF) Then   rsDesplazar.MoveFirst Rem O lo que quieras, last, next, etc. else   msgbox "No hay registros.",vbInformationEnd If 
espero le sirva, saludos.

ALEX_SP:
HOLA A LO Q HE LEIDO DE TU PREGUNTA LO PRIMERO Q TIENES Q HACER EN LA BASE DE DATOS ES QUE AL CAMPO CODIGO LO DEBES CREAR COMO AUTONUMERICO Y EN LA PROGRAMACION CUANDO INGRESAS LOS DATOS EN EL TEXT DONDE VA EL CODIGO DEBES DEJARLO EN BLANCO
PARA LO Q ES NAVEGACION DEBES USAR EL RECORDCOUNT Y VALIDAR SI ES Q RECORCOUNT = 0 ENTONCES Q ENVIE EN MENSAJE QUE NO HAY REGISTROS ESO ES EN CASO DE Q NO TENGAS REGISTROS Y SI HAY REGISTROS SOLO DEBES VALIDAR EL EOF Y EL BOF.
ESTE ES MI MAIL DASP_01@HOTMAIL.COM

Navegación

[0] Índice de Mensajes