SoloCodigo

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!

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:

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

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:


Espero que te sea de alguna ayuda.

DiabloRojo.

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