Actualizar varios registros en un mismo form con ADO
Publicado por Numan (3 intervenciones) el 27/04/2016 18:10:10
Saludos a toda la comunidad, y agradeceria mucho que me pudieran ayudar, tengo un programa en vb 6.0 de facturacion, le estoy agregando un modulo de devolucion para eso necesito actualizar varios registros enlazados en un mismo form, aqui esta el problema que no me actualiza si no que genera un nuevo registro, adjunto el codigo para ver si me pueden ayudar, gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Command1_Click()
On Error GoTo errGuardar
If validar = True ThenadoFactura.Recordset.Update
dtgDetalle.AllowDelete = False
adoDetalle.Recordset.MoveFirst
adoProductos.RefreshDo While Not adoDetalle.Recordset.EOF
adoProductos.Recordset.Filter = "codigo='" & Trim(adoDetalle.Recordset!codigo) & "'"
If Not adoProductos.Recordset.EOF And Not adoProductos.Recordset.BOF Then
adoProductos.Recordset!stock = adoProductos.Recordset!stock + adoDetalle.Recordset!cantidad
adoProductos.Recordset.Update
adoKardex.RefreshadoKardex.Recordset!codigoArt = adoDetalle.Recordset!codigo
adoKardex.Recordset!fecha = Date
adoKardex.Recordset!detalle = "Devlucion S/F No." & adoFactura.Recordset!nroFactura
adoKardex.Recordset!cantidadIn = adoDetalle.Recordset!cantidad
adoKardex.Recordset!punitarioIn = adoProductos.Recordset!pCompra
adoKardex.Recordset!totalin = adoDetalle.Recordset!cantidad * adoProductos.Recordset!pCompra
adoKardex.Recordset!ivain = "0,00"
adoKardex.Recordset!cantidadSa = "0"
adoKardex.Recordset!punitarioSa = "0,00"
adoKardex.Recordset!totalSa = "0,00"
adoKardex.Recordset!iva = "0,00"
adoKardex.Recordset.Update
End If
If Not adoDetalle.Recordset.EOF And Not adoDetalle.Recordset.BOF Then
adoDetalle.Recordset.MoveNext
End If
Loop
End If
MsgBox "Su registro fue guardado exitosamente", vbInformation, "NewJos"
Exit Sub
errGuardar:MsgBox Err.Description, vbInformation, "NewJos"
Valora esta pregunta
0