el valor bof o eof es true o el actual registro se elimino
Publicado por Numan (1 intervención) el 26/09/2015 22:09:51
Primero que nada saludos, y agradecería mucho en lo que me puedan ayudar, no tengo mucha experiencia en vb 6.0, pero ahi va, tengo un problema con mi codigo cuando intento ejecutarlo funciona y al final me da un error, lo que intento hacer es que en un formulario guarde en dos tablas distitntas estoy utilizando una conexion ADO para la base de datos acces 2010, el detalle esta es que me funciona en el formulario de compras pero en el de facturacion no, aqui dejo el codigo para ver si estoy errado en algo:
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub btnGuardar_Click()
On Error GoTo errGuardar
If validar = True Then
adoFactura.Recordset.Update
deshabilitar
dtgDetalle.AllowDelete = False
adodetalle.Recordset.MoveFirst
adoProductos.Refresh
Do 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.Refresh
adoKardex.Recordset.AddNew
adoKardex.Recordset!codigoArt = adodetalle.Recordset!codigo
adoKardex.Recordset!Fecha = Date
adoKardex.Recordset!detalle = "Venta S/F No." & adoFactura.Recordset!nrofactura
adoKardex.Recordset!cantidadSa = adodetalle.Recordset!cantidad
adoKardex.Recordset!punitarioSa = adoProductos.Recordset!pCompra
adoKardex.Recordset!totalSa = adodetalle.Recordset!cantidad * adoProductos.Recordset!pCompra
adoKardex.Recordset.Update
End If
If Not adodetalle.Recordset.EOF And Not adodetalle.Recordset.BOF Then
adodetalle.Recordset.MoveNext
End If
Loop
If adoFormaPago.Recordset!plazoDias > 0 Then
adoCtasxCobrar.Refresh
adoCtasxCobrar.Recordset.AddNew
adoCtasxCobrar.Recordset!nrofactura = adoFactura.Recordset!nrofactura
adoCtasxCobrar.Recordset!diasPlazo = adoFormaPago.Recordset!plazoDias
adoCtasxCobrar.Recordset!fechaVenc = Date + adoCtasxCobrar.Recordset!diasPlazo
adoCtasxCobrar.Recordset!detalle = "Venta Nro. " & adoFactura.Recordset!nrofactura
adoCtasxCobrar.Recordset!valor = CDbl(txtTotal.Text)
abono = 0
If MsgBox("¿Desea Realizar un Abono a la Deuda?", vbYesNo, "NewJos") = vbYes Then
op = vbNo
Do While op = vbNo
abono = Val(InputBox("Ingrese la Cantidad a Abonar:", "NewJos"))
If abono = 0 Then
op = MsgBox("La Cantidad a Abonar tiene que ser Mayor que Cero" & vbCrLf & vbCrLf & "¿Desea Cancelar la Operación de Abono a la Deuda?", vbYesNo, "NewJos")
Else
op = vbYes
End If
Loop
End If
adoCtasxCobrar.Recordset!abono = abono
adoCtasxCobrar.Recordset!estado = False
adoCtasxCobrar.Recordset.Update
End If
End If
Exit Sub
errGuardar:
MsgBox Err.Description, vbInformation, "NewJos"
Valora esta pregunta
0