Buenas Noches Foreros !!!
Verán tengo el siguiente código para insertar datos en mi BD Access:
Private Sub BtnInsertar_Click()
Set R = CN.Execute("select titulo from libros where Titulo = '" & Me.TxtTitulo.Text & "'")
If Not R.EOF Then
MsgBox "El Libro ya existe", vbCritical, "Error Al Insertar"
Exit Sub
Else
On Error GoTo ErrorInsertando
R.AddNew
R!Titulo = TxtTitulo.Text
R!Autor = TxtAutor.Text
R!Editorial = TxtEditorial.Text
R!Disponibles = TxtDisponibles.Text
R.Update
MsgBox "Datos Insertados Correctamente", vbInformation, "Confirmación al Insertar"
Exit Sub
ErrorInsertando:
MsgBox Err.Description, vbCritical, "Error al Insertar"
End If
End Sub
Sin embargo, al ejecutar el R.AddNew me salta este error:
"El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloque seleccinado."
Por favor, ¿Alguien podría indicarme como solucionar este problema?
Desde ya, muchas gracias.
