Group: Forum Members
Posts: 46,
Visits: 251
|
Hi
I have to update a 3TH party database, I need to put a null value into field but the field is integer; the mayor problem is that this field has a constraint with other table... But I can't put a default value in the table, is no my.
The bold line shows how I'm trying to do.
With Me.Detalle_Produccion_Exactus1
If Not .Seek("orden_produccion = '" &
Me.Orden_Produccion1.ORDEN_PRODUCCION & "'" & _
" and FECHA_HORA_PRODUC = " & TicketProduccion1.FECTICK & "
AND " & _
" OPERACION = 'GALERA' ") Then
.NewRow()
.ORDEN_PRODUCCION = Me.Orden_Produccion1.ORDEN_PRODUCCION
.ARTICULO = Me.TicketProduccion1.ARTICULO
.OPERACION = "GALERA"
.LOCALIZACION = "ND"
.ESTADO = "N"
.CALIDAD = "P"
.LOTE = "ND"
.DET_PROD_LINEA = nLineaDetalleProduccion
.FECHA_HORA_PRODUC = TicketProduccion1.FECTICK
.BODEGA = "1037"
.CLIENTE = "01-02-00"
.LIQUIDACION = ""
.SERIE_CADENA = IIf(True, DBNull.Value, 0)
nLineaDetalleProduccion = nLineaDetalleProduccion + 1
End If
.CANTIDAD_PRODUCIDA = .CANTIDAD_PRODUCIDA + _
(TicketProduccion1.PRONETA - (TicketProduccion1.RECDIAC +
TicketProduccion1.RECDIAM)) / 1000
nTotalEncabezadoProduccion = nTotalEncabezadoProduccion + _
(TicketProduccion1.PRONETA - (TicketProduccion1.RECDIAC +
TicketProduccion1.RECDIAM)) / 1000
.Save()
End With
Thanks SF
|