none
"No hay ningún registro activo" error 3021 RRS feed

  • Pregunta

  • El problema que tengo radica en que necesito eliminar registros de una tabla con un checkbox, procedimiento que me funciona, pero a veces me da el error 3021, "No hay ningún registro activo". Adjunto el código, a ver si me puede ayudar alguien a ver el error. Gracias.

    Private Sub ELIMINAR_Click() If Eliminar.Value = True Then resp = MsgBox("Esta seguro de eliminar este requerimiento?", vbYesNo, "Eliminación de Requerimientos") If resp = 6 Then If Not (Me.Recordset.EOF And Me.Recordset.BOF) Then

    If ESTADO.Value = "FINALIZADO" Then MsgBox "No puedes eliminar requerimientos finalizados", vbInformation, "Acción Prohibida" Eliminar.Value = False Else If ESTADO.Value = "PENDIENTE" Then DoCmd.SetWarnings (False) Me.Recordset.Delete End If

    End If

    Else End If

    Else End If

    Else End If



    jueves, 15 de mayo de 2014 17:09

Todas las respuestas

  • Cambia 

    If Not (Me.Recordset.EOF And Me.Recordset.BOF) Then

    por 

    If Not Me.Recordset.EOF Then


    Saludos, Javier J

    jueves, 15 de mayo de 2014 17:20
  • Gracias Javier, pero al parecer no sirve cuando solo queda un registro me da dos errores, el mencionado anteriormente, u otro que dice que update sin edit.
    jueves, 15 de mayo de 2014 19:45
  • ¿El error te lo da en la línea Me.Recordset.Delete?

    Supongo que el error Update sin Edit te da en otra parte del código.


    Saludos, Javier J

    viernes, 16 de mayo de 2014 7:27
  • He vuelto a hacer validaciones y aun me indica el error.

    Voy a explicar mejor el panorama, a lo mejor algo estoy pasando por alto:

    Tengo una tabla en un subformulario, en la cual tengo una columna que es donde tengo el si/no llamado ELIMINAR, al cual, en el evento click le asocio el código mencionado.

    En el subformulario, cuando hago click en el check de un registro si lo elimina, pero al querer eliminar el siguiente me da el error de "Update o CancelUpdate sin AddNew o Edit", la única forma que hallé es eliminar un registro, presionar la tecla Esc y proceder a eliminar el siguiente, cosa que no debería ser. Y por último, cuando sólo queda un registro y hago click en eliminar, me arroja el error citado, el 3021: "No hay ningún registro activo".

    Por cierto, el error de "Update o CancelUpdate sin AddNew o Edit" me lo indica sobre el formulario, no me da la opción de depurar para ver donde esta el error y el 3021 si está sobre la línea Me.Recordset.Delete. 

    viernes, 16 de mayo de 2014 12:51