Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Access Stammtisch München am 13.11.2014 (Do)
  • StefanWirrer11.11.14 13:37
  • Farbe auf Formular-Seiten
  • Marzer10.11.14 16:43
       └ RE: Farbe auf Formular-Seiten Karl Donaubauer10.11.14 19:04
          └ RE: Farbe auf Formular-Seiten Marzer11.11.14 08:26
  • Zahl in Worten
  • klauskinski13.10.14 14:01
       └ RE: Zahl in Worten Karl Donaubauer17.10.14 11:50
  • Emails per EWS versenden
  • willi15413.10.14 16:13
  • MS Access DB Analyzer
  • Benne10107.10.14 16:23
       └ RE: MS Access DB Analyzer Karl Donaubauer08.10.14 17:48
  • Access Stammtisch München am 09.10.2014 (Do)
  • StefanWirrer06.10.14 15:09
  • Ribbon Dropdown -Unselect
  • nasrudin30.09.14 15:26
       └ RE: Ribbon Dropdown -Unselect Gunter Avenius03.10.14 14:12
          └ RE: Ribbon Dropdown -Unselect nasrudin04.10.14 09:35
  • Outlook Kontakte in Access einbinden (Felder fehle...
  • StadtgmeindeH23.09.14 11:25
  • Neue Datenbank mit mehreren Tabellen
  • Manfred13.09.14 08:48
       └ RE: Neue Datenbank mit mehreren Tabellen StefanWirrer15.09.14 16:20
  • Access Datenbank auf zwei Rechnern
  • Manfred07.09.14 12:07
       └ RE: Access Datenbank auf zwei Rechnern Karl Donaubauer08.09.14 12:09
          └ RE: Access Datenbank auf zwei Rechnern Manfred13.09.14 08:38
  • Access Stammtisch München am 11.09.2014 (Do)
  • StefanWirrer08.09.14 10:42
  • Diagramm Datentabelle im Bericht formatieren?
  • willi15429.08.14 12:59
       └ RE: Diagramm Datentabelle im Bericht formatieren? Karl Donaubauer04.09.14 15:06
          └ RE: Diagramm Datentabelle im Bericht format... willi15404.09.14 17:13
             └ RE: Diagramm Datentabelle im Bericht formati... Karl Donaubauer04.09.14 17:44
                └ RE: Diagramm Datentabelle im Bericht forma... willi15405.09.14 08:39
  • Alle Ebenen reduzieren
  • Marzer29.08.14 09:39
       └ RE: Alle Ebenen reduzieren Karl Donaubauer04.09.14 13:43
  • Bestätigung
  • Marzer03.09.14 14:45
       └ RE: Bestätigung Karl Donaubauer04.09.14 13:36
  • access2010: mit aktualisierungsabfrage felddaten ä...
  • Oblomow130.08.14 11:07
       └ RE: access2010: mit aktualisierungsabfrage feldd... Karl Donaubauer30.08.14 17:08
    willi154
    Gesendet: 04.09.14 17:13
    Betreff: RE: Diagramm Datentabelle im Bericht formatieren?


    Member

    Beiträge: 13

    Hallo Karl,

    Sorry, ich arbeite mit Access2007.

    Zum Ablauf:
    Zuerst zeige ich die Auswertung in einem Formular an. Wo wie gesagt die Formatierung der Datentabelle mittels VBA funktioniert.
    Der Bericht wird dann über ein Button im Formular aufgerufen. Hinter dem Button steht folgender Code:

    Private Sub Befehl4_Click()
    Application.Echo False
    DoCmd.OpenReport "ber_dia_periode", acViewDesign
    Reports![Ber_Dia_periode]!ole_absolut_linie.RowSource = Forms![For_dia_Periode]!ctr_Sqlstr_Dia1
    Reports![Ber_Dia_periode]!ole_absolut_balken.RowSource = Forms![For_dia_Periode]!ctr_Sqlstr_Dia1
    Reports![Ber_Dia_periode]!ole_absolut_balken_vk.RowSource = Forms![For_dia_Periode]!ctr_Sqlstr_Dia2
    'Reports![ber_diagramme]!ctr_Überschrift.Caption = Forms![For_diagramme]!ctr_Überschrift.Caption
    'Reports![ber_diagramme]!ctr_Periode.Caption = Forms![For_diagramme]!ctr_Periode.Caption

    'Formatieren der Datentabelle im Diagramm. Hintergrund:
    'Egal wie die Herkunftsdaten formatiert wurden, werden diese in der Datentabelle des Diagramms in der "Roh"-version dargestellt
    'und müssen somit nach der Zuweisung des RowSource programmtechnisch formatiert werden!
    Dim objGraph As Object, objDS As Object, rsData As Recordset
    Dim intRowMax As Integer, intColMax As Integer
    Dim i As Integer, j As Integer
    Set objGraph = Reports![Ber_Dia_periode]!ole_absolut_linie.Object
    Set objDS = objGraph.Application.DataSheet
    Set rsData = CurrentDb.OpenRecordset(Reports![Ber_Dia_periode]!ole_absolut_linie.RowSource)
    rsData.MoveLast
    intRowMax = rsData.RecordCount
    rsData.Close
    For i = 0 To intRowMax - 1
    For j = 0 To ErmPer
    objDS.cells(i + 2, j + 1) = Format(objDS.cells(i + 2, j + 1), "#,###.00")
    Debug.Print objDS.cells(i + 2, j + 1)
    Next j
    Next i
    Set objDS = Nothing
    DoEvents
    objGraph.Refresh
    Set objGraph = Nothing

    DoCmd.Close acReport, "ber_Dia_Periode", acSaveYes
    DoCmd.OpenReport "ber_dia_Periode", acViewPreview
    Application.Echo True
    End Sub

    Hier Kurz zur Erklärung:
    Der Bericht besteht aus insges. 3 Diagrammen, wobei nur das Diagramm "ole_absolut_linie" mit einer Datentabelle angezeigt wird.
    Die Debug.print_Anweisung dient nur zum Prüfen ob die formatierten Werte übernommen werden. (Was momentan nicht der Fall ist!)

    Danke schon mal für Deine Hilfe

    Gruß
    Willi

    Anhänge
    ----------------
    Anhänge Screenshot's_Dia.docx (51KB - 3 downloads)
    Top of the page Bottom of the page


    Seite: < 30 31 32 33 34 35 ... 36 37 38 39 40 41 42 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)