Tema: error 3027 can't update database or object is read-only
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/03/2010, 07:52
Avatar de gasafonso
gasafonso
 
Fecha de Ingreso: septiembre-2008
Mensajes: 357
Antigüedad: 15 años, 7 meses
Puntos: 1
error 3027 can't update database or object is read-only
Código vb: 
Ver original
  1. 1.
  2.       Dim criterio As String
  3.    2.
  4.       Dim criterio1 As String
  5.    3.
  6.       Dim llave As String
  7.    4.
  8.       Dim llave1 As String
  9.    5.
  10.        
  11.    6.
  12.       f_CopiaFacturador.Text2.Visible = False
  13.    7.
  14.       f_CopiaFacturador.txtFacTipo.Visible = True
  15.    8.
  16.        
  17.    9.
  18.        
  19.   10.
  20.       Call Letra
  21.   11.
  22.       criterio = " nrocomprobante ='" + txtNroPresupuesto + "' and tipocomprobante='" & Label7.Caption & "'"
  23.   12.
  24.       dsDetalleCliente.Recordset.FindFirst (criterio) '("nrocomprobante='" & txtNroPresupuesto.text & "'and tipocomprobante='" & Label7.Caption & "'")
  25.   13.
  26.        
  27.   14.
  28.        
  29.   15.
  30.       dsDetalleCliente.Recordset.Edit
  31.   16.
  32.       dsDetalleCliente.Recordset!tipoComprobante = "FC"
  33.   17.
  34.       dsDetalleCliente.Recordset!Nrocomprobante = txtNroPresupuesto1.text
  35.   18.
  36.       dsDetalleCliente.Recordset!condicion = "9"
  37.   19.
  38.       dsDetalleCliente.Recordset.Update
  39.   20.
  40.        
  41.   21.
  42.       criterio1 = "numfactura ='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'"
  43.   22.
  44.       dsDetalleFactura.Recordset.FindFirst (criterio1) '("numfactura='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'")
  45.   23.
  46.        
  47.   24.
  48.       dsDetalleFactura.Recordset.Edit
  49.   25.
  50.       dsDetalleFactura.Recordset!tipoComprobante = "FC"
  51.   26.
  52.       dsDetalleFactura.Recordset!numfactura = txtNroPresupuesto1.text
  53.   27.
  54.       dsDetalleFactura.Recordset.Update
  55.   28.
  56.       -----------------------------------------------------------------------------------------------------
  57.   29.
  58.       Function Letra()
  59.   30.
  60.       If cboTipoIva = "Responsable Inscripto" Or cboTipoIva = "Responsable No Inscripto" Then 'XXXXXXXXXXXX
  61.   31.
  62.       If OpVta.Value = True Then
  63.   32.
  64.       txtNroPresupuesto1 = Format(dsvariables.Recordset!facturaA + 1, "00000")
  65.   33.
  66.       Else
  67.   34.
  68.       txtNroPresupuesto1 = Format(dsvariables.Recordset!NcreditoA + 1, "00000")
  69.   35.
  70.       End If
  71.   36.
  72.       Else
  73.   37.
  74.       If OpVta.Value = True Then
  75.   38.
  76.       txtFacTipo.text = "B"
  77.   39.
  78.       txtNroPresupuesto1 = Format(dsvariables.Recordset!factura + 1, "00000")
  79.   40.
  80.       Else
  81.   41.
  82.       txtFacTipo.text = "B"
  83.   42.
  84.       txtNroPresupuesto1 = Format(dsvariables.Recordset!ncredito + 1, "00000")
  85.   43.
  86.       End If
  87.   44.
  88.       End If
  89.   45.
  90.       End Function
  91.   46.
  92.       --------------------------------------------------------------------------------------------------------
  93.   47.
  94.       --------------------------------------------------------------------------------------------------------
  95.   48.
  96.       y me da error 3027 diciendo "can't update database or object is read-only"
  97.   49.
  98.        
  99.   50.
  100.       y el error me lo da en:
  101.   51.
  102.        
  103.      dsDetalleFactura.Recordset.Edit

si alguien me puede ayudar muyyyyyyyyyyy agradecido