Run-Time error '3219': La operación no está permitida en este contexto.

[hernino88]

Hola tengo este problema... Run-Time error '3219' La operación no está permitida en este contexto.

Les explico la situación, estoy haciendo un sistemita de presupuestos, el tema es el siguiente... cuando agrego un producto, este se guarda en una tabla temporal, y permite seguir agregando... cuando ya no se desean agregar mas productos al presupuesto, al cerrar ese form, el formulario principal contiene un MSHFlexGrid que se actualiza... lo lleno por una funcion creada en un modulo que realiza una consulta sql:

Function Actualiza_grilla()

id = Format(frm_presupuesto.lbl_numero.Caption, "000-00000")

If rst_actualiza.State = adStateOpen Then rst_actualiza.Close

rst_actualiza.Open "SELECT cantidad, codigo, descripcion, p_uni, importe " & _
"FROM Presu_tempo WHERE id='" & id & "'", cnn

rst_actualiza!p_uni = rst_actualiza!p_uni * 1

Set frm_presupuesto.MSHFlexGrid1.DataSource = rst_actualiza

frm_presupuesto.MSHFlexGrid1.Refresh

With frm_presupuesto.MSHFlexGrid1
.Cols = 5

.RowHeight(0) = 0

.ColWidth(0) = 1000
.ColAlignmentFixed(0) = 3
.ColAlignment(0) = 3

.ColWidth(1) = 1500
.ColAlignmentFixed(1) = 3
.ColAlignment(1) = 1

.ColWidth(2) = 3500
.ColAlignmentFixed(2) = 3
.ColAlignment(2) = 3

.ColWidth(3) = 1000
.ColAlignmentFixed(2) = 3
.ColAlignment(2) = 3

.ColWidth(4) = 1000
.ColAlignmentFixed(2) = 3
.ColAlignment(2) = 3
End With

For i = 0 To Val(frm_presupuesto.MSHFlexGrid1.Rows) - 1 Step 1
frm_presupuesto.MSHFlexGrid1.TextMatrix(i, 4) = CCur(Val(frm_presupuesto.MSHFlexGrid1.TextMatrix(i , 3)) * Val(frm_presupuesto.MSHFlexGrid1.TextMatrix(i, 0)))
frm_presupuesto.MSHFlexGrid1.TextMatrix(i, 3) = CCur(Val(frm_presupuesto.MSHFlexGrid1.TextMatrix(i , 3)) * 1)
frm_presupuesto.MSHFlexGrid1.TextMatrix(i, 4) = Format(frm_presupuesto.MSHFlexGrid1.TextMatrix(i, 4), "standard")
Next

End Function

al ejecutar por primera vez, esa consulta funciona... pero al ejecutarlo por 2da vez, me tira error en la siguiente linea...

If rst_actualiza.State = adStateOpen Then rst_actualiza.Close

marcandome lo que señale en rojo como el error... quisiera saber porque, es la primera vez que me pasa...

Espero una respuesta... gracias...

[ValentinoMolinari]

prueba seteando el recordset cada vez que llamas a la función

Function Actualiza_grilla()

set rst_actualiza = New ADODB.RecordSet

id = Format(frm_presupuesto.lbl_numero.Caption, "000-00000")

If rst_actualiza.State = adStateOpen Then rst_actualiza.Close

rst_actualiza.Open "SELECT cantidad, codigo, descripcion, p_uni, importe " & _
"FROM Presu_tempo WHERE id='" & id & "'", cnn



cuentanos como te fue

[Avellaneda]

Hola, como te dice Valentino, debes setear el recordset al entrar en la función, pero lo que ya no tiene sentido es poner esta instrucción:

If rst_actualiza.State = adStateOpen Then rst_actualiza.Close

Porque cuando se asigna el recordset a la variable 'rst_actualiza' el objeto recordset siempre está cerrado.

Por otra parte, hay algunas cosas que me llaman la atención:

rst_actualiza!p_uni = rst_actualiza!p_uni * 1

¿Qué es lo que quieres hacer? pues le estás asignando el mismo valor (el resultado de un número multiplicado por la unidad es siempre el mismo número).

For i = 0 To Val(frm_presupuesto.MSHFlexGrid1.Rows) - 1 Step 1

La función Val sobra, ya que la propiedad Rows del control MSHFlexGrid devuelve un Long.
La instrucción Step 1 sobra ya que en un bucle For..Next siempre se salta paso a paso (de uno en uno).
Esta instrucción se suele poner si quieres realizar el bucle de dos en dos (o mas) o si se quiere hacer de atrás hacia adelante (Step -1).

Saludos

[hernino88]

antes que anda quería agradecer a Valentino por darme esa solució... funcó de maravilla ... Y en segundo lugar queria explicar el porque de la línea:

rst_actualiza!p_uni = rst_actualiza!p_uni * 1

Es algo que me olvide borrar xD... por andar probando cosas se ve que quedo colgada por ahi :D

Muchas gracias a todos!!!

:apla uso: