Muchas gracias de verdad!!!
Pero ahora hay otro problema (siempre me pasa lo mismo)
Resulta que cuando vendo artículos la idea es que el stock de esos artículos se resten según la cantidad que vendí. Para ello utilizo este codigo:
Código:
' grabar factura
For fila = 1 To Grid1.Rows - 1
CnN.Execute "INSERT INTO ventas(Cliente, CantidadVendida, Detalle, Precio , PrecioTotal, NumeroFactura, Codigo, Fecha, Unidad) VALUES ('" & _
Grid1.TextMatrix(fila, 0) & "', '" & Grid1.TextMatrix(fila, 1) & "', '" & _
Grid1.TextMatrix(fila, 2) & "', '" & Grid1.TextMatrix(fila, 3) & "', '" & _
Grid1.TextMatrix(fila, 4) & "', '" & Grid1.TextMatrix(fila, 5) & "', '" & Grid1.TextMatrix(fila, 6) & "', '" & Grid1.TextMatrix(fila, 7) & "', '" & Grid1.TextMatrix(fila, 8) & "')"
Next fila
' leer codigo de stock
For fila = 1 To Grid1.Rows - 1
datos = "select * from stock where codigo = '" & Grid1.TextMatrix(fila, 6) & "' "
Next fila
tablas_apertura1.Open datos, conexion_basedatos
tengo = tablas_apertura1!cantidad
tablas_apertura1.Close
' restar stock
For fila = 1 To Grid1.Rows - 1
queda = tengo - " & Grid1.TextMatrix(fila, 1) & "
Next fila
' regraba nueva cantidad
For fila = 1 To Grid1.Rows - 1
datos = "Update stock set cantidad = " & queda & " where codigo = '" & Grid1.TextMatrix(fila, 6) & "' "
conexion_basedatos.Execute datos
Next fila
Antes funcionaba bien, pero ahora que uso el MSFlexGrid me aparece el siguiente error:
Y si le doy a Depurar me marca la siguiente línea:
Antes trabajaba con TextBOXs en vez de FlexGrids y el código funcionaba
Disculpen las molestias!
Un saludo y muchas gracias.
+1 de karma para SalomonSab!