Hola:
Espero buestra respuesta pues lo he probado todo y no me salgo.
tengo un procedimiento donde quiero insertar una factura nueva en la tabla "factura" ,
pero cuando la ejecuto siempre me sale el error de que no se puede insertar porque es de solo lectura
os envio el codigo para que me digais donde esta el error o si tengo que poner algo más
es urgente porfavor , no puedo facturar!"
If IsNull(DLookup("[Idpedido]", "factura", "[idpedido]=" & posicion)) Then
Dim lin As String
Dim sConnect As String, sSQL As String
Dim cnnActiva As ADODB.Connection
Dim rst_Ado As ADODB.Recordset
Set cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=My Dropboxempresarepara-espinosaRepara-Espinosa ultima.mdb;Persist Security Info=False;"
Set rst_Ado = New ADODB.Recordset
rst_Ado.Open "Select Max(idfactura) From factura", _
cnnActiva, adOpenStatic, adLockPessimistic
fac = rst_Ado.Fields(0)
ano = CStr(Year(Forms![clientes1]![subpedidos]![FechaEnvío]))
If Left(fac, 4) <> ano Then
fac = ano & "000"
End If
DoCmd.OpenForm "factura"
rst_Ado.AddNew aqui me sale el error " no se puede actualizar.Base de datos u objeto solo lectura"Forms![factura]![idfactura] = rst_Ado.Fields(0) + 1
Forms![factura]![IdCliente] = Me.IdCliente
Forms![factura]![fechafactura] = Date
Set rst_Ado = Nothing
' cnactiva.Close
Set cnnActiva = Nothing
GoTo final
Gracias de antemano
