hola
mi duda es la siguiente tengo un codigo en visual para graficar, me realiza bien el grafico, el unico problema es que no despliega la informacion de los porcentajes, creo que el problema lo tengo en el .setsize, si alguien me puede ayudar gracias.
aqui dejo el codigo:
desde ya muchas gracias
Public KEYASCII As Integer
Public BD As Database
Public consultar As Recordset
Dim vbuenas, vmalas, vomitidas As Double
Private Sub Command1_Click()
chart.Visible = True
If Len(Combo1.Text) = 10 Then
' Filtramos los Registros de la BD en base a el año seleccionado
'Set consultar = BD.Execute("SELECT * FROM item_a WHERE rut = " & Val(Combo1.Text))
' Calculamos el Porcentaje de las Ventas
' Esperadas y Logradas
With consultar
.MoveFirst
Do While Not .EOF
If consultar!rut = Combo1.Text Then
vbuenas = consultar.Fields("porc_buenas")
vmalas = consultar.Fields("porc_malas")
vomitidas = consultar.Fields("porc_omitidas")
' Colocamos el titulo al Chart
chart.TitleText = "Porcentaje - " & Combo1.Text
With chart.DataGrid
' Establecemos las Etiquetas de las Columnas
.RowLabel(1, 1) = "Buenas - " & Str(Int(vbuenas)) & "%"
.RowLabel(2, 1) = "Malas - " & Str((vmalas)) & "%"
.RowLabel(3, 1) = "Omitidas - " & Str(vomitidas) & "%"
' Establecemos el tamaño del Chart
' Parametros: Total Etiquetas Cols, Total Etiquetas Series,
' Total Columnas, Total Series
.SetSize 3, 1, 3, 1
' Establecemos los valores de cada columna
' Parametros: Columna, Serie, Valor
.SetData 1, 1, vbuenas, 0
.SetData 2, 1, vmalas, 0
.SetData 3, 1, vomitidas, 0
End With
End If
.MoveNext
Loop
End With
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "c:\Archivos de Programa\SISPORC\sisporc.mdb"
Data1.RecordSource = "item_a"
Set BD = OpenDatabase("c:\Archivos de Programa\SISPORC\sisporc.mdb")
Set consultar = BD.OpenRecordset("item_a", dbOpenDynaset)
With consultar
.MoveFirst
Do While Not .EOF
Combo1.AddItem consultar.Fields("rut")
.MoveNext
Loop
End With
End Sub
