SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Herchi en Lunes 20 de Junio de 2005, 18:04
-
hola.
tengo un boton de 'nuevo alumno' con su tipico:
adoAlumno.Recordset.AddNew
Me funciona siempre y cuando no haya borrado el ultimo registro desde el programa. El error que me da:
error '-2147217842(80040e4e)' Operacion cancelada. un mensaje indescriptivo y sin ayuda.
Lo curioso es que el programa me funciona cuando la base de datos está en blanco y le doy al 'Añadir alumno'. Con lo cual el error sólo surge en el caso anterior
Gracias
OS PEGO EL CÓDIGO, POR SI LAS MOSCAS
----------------------------
Private Sub cmdNuevo_Click()
adoAlumno.Recordset.AddNew 'AQUI ES DONDE DA ERROR
NuevoAlumno
End Sub
Public Function BorrarAlumno()
Dim esElPrimero As Boolean
If frmAlumno.adoAlumno.Recordset.AbsolutePosition = 1 Then esElPrimero = True
frmAlumno.adoAlumno.Recordset.Delete
frmAlumno.adoAlumno.Recordset.Update
'Si borra el único registro existente deshabilitamos el botón borrar y la barra de navegación
If (frmAlumno.adoAlumno.Recordset.RecordCount = 0) Then
'Chapuza necesaria para que al borrar el último registro y añadir uno nuevo no me diga
'error '-2147217842(80040e4e)' Operacion cancelada
'Unload frmAlumno
'frmAlumno.Show
NoHayRegistros
Else
If esElPrimero Then
frmAlumno.adoAlumno.Recordset.MoveFirst
Else
frmAlumno.adoAlumno.Recordset.MovePrevious
End If
End If
ActualizarDisplay
End Function