Liebe Mit-User, hallo Leute!
In ein MS Access 2003-Formular habe ich das Steuerelement MICROSOFT OFFICE CAHRT 11.0 eingefügt. Folgender Code soll Werte aus einer Tabelle auslesen und grafisch darstellen.
Es handelt sich um ein Buchbeispiel. Was mir auffällt, ist die Zeile
Dim ChSp
Ist diese so korrekt?
und
dass ich die Fehlermeldung erhalte:
With ChSp.Charts(0) <-- ungültiger Parameter
Erbitte Tipps!
danke
Streethawk
HAT SICH ERLEDIGT! Im Buch fehlte der Hinweis, dass man eine Eigenschaft des Steuerelement setzen muss (Datenherkunft). Jetzt funktioniert es. Dennoch danke!!
In ein MS Access 2003-Formular habe ich das Steuerelement MICROSOFT OFFICE CAHRT 11.0 eingefügt. Folgender Code soll Werte aus einer Tabelle auslesen und grafisch darstellen.
VB.NET-Quellcode
- Private Sub Form_Load()
- Dim conn As New ADODB.Connection
- Dim rst As ADODB.Recordset
- Dim obj As AccessObject
- Dim avarWert(4) As Variant
- Dim avarBez(4) As Variant
- Dim i As Integer
- Dim ChSp
- Set conn = CurrentProject.Connection
- Set rst = New ADODB.Recordset
- With rst
- .CursorLocation = adUseClient
- .Open "Artikel", conn, adOpenKeyset, adLockOptimistic
- .Sort = "Einzelpreis Asc"
- For i = 0 To 4
- avarWert(i) = rst("Einzelpreis")
- avarBez(i) = rst("Artikelname")
- .MoveNext
- Next i
- End With
- ' Diagrammerstellung
- Set ChSp = Me.ChartSpace2
- With ChSp.Charts(0)
- .Type = chChartTypeColumnClustered
- .SeriesCollection.Add
- .SeriesCollection(0).Caption = "Die biligsten Artikel"
- .SeriesCollection(0).SetData chDimCategories, chDataLiteral, avarBez
- .SeriesCollection(0).SetData chDimValues, chDataLiteral, avarWert
- .HasLegend = True
- .HasTitle = True
- End With
- rst.Close
- Set conn = Nothing
- Set rst = Nothing
- End Sub
Es handelt sich um ein Buchbeispiel. Was mir auffällt, ist die Zeile
Dim ChSp
Ist diese so korrekt?
und
dass ich die Fehlermeldung erhalte:
With ChSp.Charts(0) <-- ungültiger Parameter
Erbitte Tipps!
danke
Streethawk
HAT SICH ERLEDIGT! Im Buch fehlte der Hinweis, dass man eine Eigenschaft des Steuerelement setzen muss (Datenherkunft). Jetzt funktioniert es. Dennoch danke!!
