MS Access 2003 - Sparkline- Graphs in Microsoft Access

Question

Hey guys. Nur frage mich, wenn jemand eine Methode kennt Spark Graphen auf einem Formular in MS Access zu erstellen. Der Chart Builder ist wirklich nicht sehr gut funktionieren Sparkline-Diagramme (Grafiken, dass kleine) zu erstellen.

Einfach nur neugierig, danke!

Answer 1

Ich glaube nicht, dass irgendetwas in für Sparkline- Diagramme in MS Access gebaut ist. Sie haben eine Fremdüberwachung nutzen und zusammen mit Ihrer App für alle Benutzer oder Anwendung MS Excel Steuerelement eingebettet bereitstellen um die Grafik zu zeigen.

Answer 2

Es gibt eine VBA-powered Sparkline-Lösung auf dem Access kennzeichnete Blog nicht allzu langer Zeit: http://blogs.office.com/b/microsoft-access/archive/2011/02/10/power- tip-Add-Sparkline-like-Graphen-to-access-reports.aspx

Sie haben eine .mdb sowie eine .accdb Beispieldatei zur Verfügung, so vermute ich, es funktioniert über mehrere Versionen.

Answer 3

Ich begann mit dem VBA-powered Spark aber nicht wie, dass es aussah mit niedriger Auflösung und ich es nicht auf einer kontinuierlichen Form verwenden könnte (es funktioniert nur auf Berichte). Die Lösung kam ich mit war die Charts in Excel zu erstellen und die Diagramm Bilder in einem Unterordner speichern. Dann ist es einfach, das Bild auf einem Bericht oder kontinuierliche Form zu verknüpfen. Meine Charts aktualisieren jede Nacht, wenn die Excel-Diagramm Gebäude Schleife ist wirklich schnell. Der langsame Teil der Daten zu erzeugen, dass die Diagramme benötigen, die variieren je nachdem, was Sie Charting.

habe ich eine Vorlage in Excel, die ein Diagramm mit dem Aussehen und der Auflösung hatte, dass ich wollte. Ich schrieb eine VBA-Routine in Access eine Excel-Tabelle zu öffnen und Schleife durch jeden Datensatz, dass ich entwerfen wollte. Das Blatt wird an diese Funktion übergeben (siehe unten), die lädt eine Aufzeichnungen Diagrammdaten und in Excel gibt, der automatisch die ‚SparkChart‘ Objekt aktualisiert wird. Es speichert dann das Bild in einen Unterordner. Die Excel-Datei bleibt geöffnet und ist mit jeder Schleife wiederverwendet. Ich habe beinhalten nicht die Funktion mit der Schleife.

Hier ist, was wie mein Diagramm sieht in Excel:

Hier ist ein Beispiel für die Sparklines in einer kontinuierlichen Form gezeigt:

Public Function fCreateSparklineChart(pDQ_ID As Long, pChartSheet As Object) As Boolean
' Pass in a Dashboard Query ID for data that has already compiled into the top-n
' temp table and the data will be copied to the passed pChartSheet in Excel.  This
' will update a chart object, then the chart is saved as a .png file.

    Dim strSQL As String
    Dim strChartPath As String
    Dim rs As DAO.Recordset

    On Error GoTo ErrorHandler

    ' Get chart data from a table that has already been compiled with 
    ' min and max values as percentages so the lowest value is 0
    ' and the highest value is 100.
    strSQL = "  SELECT DQ_ID, Trend_Value, " & _
            " IIf(Trend_Value=0,0,Null) AS Min_Point, " & _
            " IIf(Trend_Value=100,100,Null) AS Max_Point " & _
            " FROM " & DASHBOARD_TMP_TABLE & _
            " WHERE (DQ_ID=" & pDQ_ID & ") "
    strSQL = strSQL & " ORDER BY RowNo "

    Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

    If rs.RecordCount > 0 Then

        pChartSheet.Range("A1").CurrentRegion.Clear
        pChartSheet.Range("A1").CopyFromRecordset rs
        pChartSheet.ChartObjects("SparkChart").Chart.SetSourceData pChartSheet.Range("rngData")

        ' Use a filename that includes the record ID.
        strChartPath = CurrentProject.Path & "\Images\Sparkline_DQ_ID_" & Format(pDQ_ID, "0000") & ".png"

        ' Delete the file if it already exists.
        DeleteFile strChartPath

        ' Save the Excel chart as a png file.
        pChartSheet.ChartObjects("SparkChart").Chart.Export strChartPath, "png"

        fCreateSparklineChart = True
    End If

Exit_Function:
    Exit Function

ErrorHandler:
    fCreateSparklineChart = False

    MsgBox "Error #" & err.Number & " - " & err.Description & vbCrLf & "in procedure fCreateSparklineChart of basSparkline"
    GoTo Exit_Function

End Function

Ich habe nachgedacht ein YouTube-Video zu schaffen, zu erklären, wie ich das Data Quality Dashboard Datentrends Diagramm aufgebaut. Lassen Sie uns wissen, wenn Sie interessiert sind, und ich kann es zu tun, gefördert werden.