Error 3027 base de datos

[gasafonso]

Iniciado por gasafonso

Código vb:

Private Sub cmdFacturar_Click()
Dim criterio As String
Dim criterio1 As String
Dim llave As String
Dim llave1 As String
 
f_CopiaFacturador.Text2.Visible = False
f_CopiaFacturador.txtFacTipo.Visible = True
 
 
Call Letra
criterio = " nrocomprobante ='" + txtNroPresupuesto + "' and tipocomprobante='" & Label7.Caption & "'"
dsDetalleCliente.Recordset.FindFirst (criterio) '("nrocomprobante='" & txtNroPresupuesto.text & "'and tipocomprobante='" & Label7.Caption & "'")
 
 
dsDetalleCliente.Recordset.Edit
dsDetalleCliente.Recordset!tipoComprobante = "FC"
dsDetalleCliente.Recordset!Nrocomprobante = txtNroPresupuesto1.text
dsDetalleCliente.Recordset!condicion = "9"
dsDetalleCliente.Recordset.Update
 
criterio1 = "numfactura ='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'"
dsDetalleFactura.Recordset.FindFirst (criterio1) '("numfactura='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'")
 
dsDetalleFactura.Recordset.Edit
dsDetalleFactura.Recordset!tipoComprobante = "FC"
dsDetalleFactura.Recordset!numfactura = txtNroPresupuesto1.text
dsDetalleFactura.Recordset.Update
-----------------------------------------------------------------------------------------------------
Function Letra()
If cboTipoIva = "Responsable Inscripto" Or cboTipoIva = "Responsable No Inscripto" Then 'XXXXXXXXXXXX
If OpVta.Value = True Then
txtNroPresupuesto1 = Format(dsvariables.Recordset!facturaA + 1, "00000")
Else
txtNroPresupuesto1 = Format(dsvariables.Recordset!NcreditoA + 1, "00000")
End If
Else
If OpVta.Value = True Then
txtFacTipo.text = "B"
txtNroPresupuesto1 = Format(dsvariables.Recordset!factura + 1, "00000")
Else
txtFacTipo.text = "B"
txtNroPresupuesto1 = Format(dsvariables.Recordset!ncredito + 1, "00000")
End If
End If
End Function
--------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------
y me da error 3027 diciendo "can't update database or object is read-only"
 
y el error me lo da en:
 
dsDetalleFactura.Recordset.Edit
 

ahora siiiiiii, que lindooooooooo queda gracias muchachosssssssssssss