Tema: Error 3027 base de datos
Ver Mensaje Individual
  #6 (permalink)  
Antiguo 15/03/2010, 14:53
Avatar de gasafonso
gasafonso
 
Fecha de Ingreso: septiembre-2008
Mensajes: 357
Antigüedad: 16 años, 6 meses
Puntos: 1
Respuesta: Error 3027 base de datos
Código vb: 
Ver original
  1. Private Sub cmdFacturar_Click()
  2. Dim criterio As String
  3. Dim criterio1 As String
  4. Dim llave As String
  5. Dim llave1 As String
  6.  
  7. f_CopiaFacturador.Text2.Visible = False
  8. f_CopiaFacturador.txtFacTipo.Visible = True
  9.  
  10.  
  11. Call Letra
  12. criterio = " nrocomprobante ='" + txtNroPresupuesto + "' and tipocomprobante='" & Label7.Caption & "'"
  13. dsDetalleCliente.Recordset.FindFirst (criterio) '("nrocomprobante='" & txtNroPresupuesto.text & "'and tipocomprobante='" & Label7.Caption & "'")
  14.  
  15.  
  16. dsDetalleCliente.Recordset.Edit
  17. dsDetalleCliente.Recordset!tipoComprobante = "FC"
  18. dsDetalleCliente.Recordset!Nrocomprobante = txtNroPresupuesto1.text
  19. dsDetalleCliente.Recordset!condicion = "9"
  20. dsDetalleCliente.Recordset.Update
  21.  
  22. criterio1 = "numfactura ='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'"
  23. dsDetalleFactura.Recordset.FindFirst (criterio1) '("numfactura='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'")
  24.  
  25. dsDetalleFactura.Recordset.Edit
  26. dsDetalleFactura.Recordset!tipoComprobante = "FC"
  27. dsDetalleFactura.Recordset!numfactura = txtNroPresupuesto1.text
  28. dsDetalleFactura.Recordset.Update
  29. -----------------------------------------------------------------------------------------------------
  30. Function Letra()
  31. If cboTipoIva = "Responsable Inscripto" Or cboTipoIva = "Responsable No Inscripto" Then 'XXXXXXXXXXXX
  32. If OpVta.Value = True Then
  33. txtNroPresupuesto1 = Format(dsvariables.Recordset!facturaA + 1, "00000")
  34. Else
  35. txtNroPresupuesto1 = Format(dsvariables.Recordset!NcreditoA + 1, "00000")
  36. End If
  37. Else
  38. If OpVta.Value = True Then
  39. txtFacTipo.text = "B"
  40. txtNroPresupuesto1 = Format(dsvariables.Recordset!factura + 1, "00000")
  41. Else
  42. txtFacTipo.text = "B"
  43. txtNroPresupuesto1 = Format(dsvariables.Recordset!ncredito + 1, "00000")
  44. End If
  45. End If
  46. End Function
  47. --------------------------------------------------------------------------------------------------------
  48. --------------------------------------------------------------------------------------------------------
  49. y me da error 3027 diciendo "can't update database or object is read-only"
  50.  
  51. y el error me lo da en:
  52.  
  53. dsDetalleFactura.Recordset.Edit