Miles de Gracias a ambos por su ayuda!
erbuson: Utilicé el código que me proporcionaste, lo edité un poco y me quedó así:
Código:
Private Sub Command5_Click()
mes = Month(MSFlexGrid1.TextMatrix(i, 6))
Mensuales(mes) = Mensuales(mes) + MSFlexGrid1.TextMatrix(i, 9)
End Sub
Luego quisiera mostrar el resultado en un textbox de nombre 'Text2', para ello hice lo siguiente:
Código:
Private Sub Command5_Click()
mes = Month(MSFlexGrid1.TextMatrix(i, 6))
Mensuales(mes) = Mensuales(mes) + MSFlexGrid1.TextMatrix(i, 9)
Text2(mes) = Mensuales(mes)
End Sub
Como verás, agregué al final una linea para que muestre el resultado dentro del Text2. Pero me marca el sig. error:
gogupe: Gracias por el código, pero lo que no entiendo es cómo mostrar el resultado en un Label o en un Textbox. Hice lo siguiente; dentro de un Command puse esto:
Código:
Private Sub Command4_Click()
gananciasxmes = "Select sum(PrecioTotal) from ventas where month(Fecha)=11"
conexion_tablas.Open gananciasxmes, conexion_basedatos
Label1= ???
conexion_tablas.Close
End Sub
No sé que poner en al lado del Label1... Yo siempre uso este codigo para obtener valores desde una base de datos:
Código:
Label1 = conexion_tablas!Codigo
Pero en este caso, el valor no lo obtengo de la base de datos y por eso no sé como hacer para mostrar el resultado en un Label o Textbox.
De nuevo, gracias a ambos y mil disculpas por las molestias.
Un saludo!!