Workshop zur Benutzung SGrid2-Controls unter MS-Access

1 1 1 1 1 1 1 1 1 1 Rating 5.00 (3 Votes)

Details: Kategorie: Workshops ActiveX-Controls; Geschrieben von TommyK; Zugriffe: 18104

Nur für 32Bit Office Versionen

Dieser Workshop soll nur eine kurze Anleitung sein und Hinweise bei der Benutzung des Controls
unter MS-Access ab Version 2000 sein und ist bei weitem nicht vollständig.
Die Hinweise beziehen sich auf die Bsp-DB des beiliegenden Downloads.

Einführung:

Das SGrid2-Control ist ein Datagrid von vbAccelerator

Eigentlich ist dieses Grid für VB5/6 geschrieben worden. Aber es kann auch unter MS-Access
eingesetzt werden. Und das möchte ich hier in diesem Workshop zeigen wie.

Jetzt wird sich mancher fragen, ja ein Datagrid na und, in Access habe ich doch das Listenfeld und
Unterformulare. Mit dem Control könnt Ihr aber Dinge darstellen das geht mit den herkömmlichen Möglichkeiten nicht.
Hier mal zur Einstimmung 2 Screenshots aus dem Downloadanhang.

Voraussetzungen:

Das Bsp ist unter A00-A07 lauffähig.

Das Control ("vbalSGrid6.ocx") selbst ist in der Setup-Datei enthalten.'
Genauere Infos und der Sourcecode des Controls findet Ihr auf der Homepage des Autors

Im Setup sind noch ein weiteres OCX und zwei DLL's enthalten
Die beiden DLL's (SSubTmr.dll und SSubTmr6.dll) sind für die Funktionalität
der Controls erforderlich und müssen auf dem Zielsystem registriert werden (übernimmt hier das Setup)

Dann kommt noch vbAccelerator ImageList Control and Class v2.0 zum Einsatz.
Diese Imagelist hat ggü. der Imagelist von MS den Vorteil das man nachträglich
die Größe und Farbtiefe der Icons ändern kann.

Einfügen des Controls in ein Formular.
Formularentwurf
Menü -> Einfügen -> ActiveX-Steuerelement
In der Liste das Control auwählen (roter Rahmen) und OK klicken.

Der blaue Rahmen ist die Imagelist.

Setzen der Icons in der Imagelist

Aufruf:

Grundeinstellungen im 1. Register sind Größe der Icons und deren Farbtiefe

Dann können im 2. Register die Icons hinzugefügt werden

Code Grundeinstellungen

Eigentlich wird das Grid genau wie jedes andere Control im Code angesprochen.

Nun hat aber Access die Eigenart von externen Controls die Eigenschaften und Methoden nich per
Intellisense anzuzeigen.
Das kann aber auch realisiert werden.

Im Modulkopf deklarieren wie eine Variable:

1
2
3

Option Compare Database
Option Explicit
Dim oSGrid As vbAcceleratorSGrid6.vbalGrid

Im Load Ereignis des Forms wird die Variable gesetzt und im Entladen wieder gelöscht.

Private Sub Form_Load()
    Set oSGrid = Me!vbalGrid1.Object
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set oSGrid = Nothing
End Sub

Danach kann dann auf die Intellisense-Funktion zugegriffen werden.

Alle Bsp-Codes beziehen sich auf die Bsp-DB dieses Workshops

Kommen wir nun zum eigentlichen Füllen des Grids

Initialisierung des Grids

Als ersten müssen dem Grid ein paar Grundangaben mitgeteilt werden.

- Spalten und deren Eigenschaften

- Zuweisen der Imagelist

- allgemeine Einstellungen

Hier für nehmen wir eine Prozedur die 5 Spalten erstellt:

Private Sub InitialiseGrid()
    With oSGrid
        'Setzen der Zeilenhöhe
        .DefaultRowHeight = 30
        'Zuweisen das jede 2. Zeile eine andere Farbe hat
        .AlternateRowBackColor = RGB(252, 252, 230)
        'Zuweisen der Imagelist
        .ImageList = Me!vbalImageList1.hIml
        'Hinzufügen der Spaltenköpfe und deren Eigenschaften
        .AddColumn "ID", "ID", 0, , 50, True, , , , , , CCLSortNumeric
        .AddColumn "Artikel", "Artikel", 0, , 200, True, , , , , , CCLSortString
        .AddColumn "Lieferant", "Lieferant", 0, , 150, True, , , , , , CCLSortString
        .AddColumn "Katogrie", "Katogrie", 0, , 100, True, , , , , , CCLSortString
        .AddColumn "Einzelpreis", "Einzelpreis", ecgHdrTextALignRight, , 100, , , , , "#.00", , CCLSortNumeric
    End With
End Sub

Ich gehe nur kurz auf die wichtigsten Parameter der AddColumn-Methode ein
Genaueres im Objektkatalog.

1. Parameter: Eindeutige Schlüsselfeldbezeichnung
2. Parameter: Bezeichnung des Spaltenkopfs die im Grid erscheinen soll
3. Parameter: Ausrichtung der Spaltenbezeichnung

5. Parameter: Spaltenbreite
6. Parameter: Spalte sichtbar
10. Parameter: Formatstring
12. Parameter: Feldtyp für die Sortierung

Jetzt würde das Ganze nach dem Aufruf der Prozedur "InitialiseGrid()" so aussehen.

Nun fehlen noch die Daten.

Auch hier kommt ein Prozedur zum Einsatz. Diese öffnet ein Recordset und damit werden
die Daten dem Grid hinzu gefügt.

Private Sub addData()
    Dim rss As DAO.Recordset
    Dim sSQL As String
    Dim lRow As Long
    Set rss = CurrentDb.OpenRecordset("qry_Artikel")
    rss.MoveLast
    lRow = rss.RecordCount
    rss.MoveFirst
    With oSGrid
        .Rows = lRow
        For lRow = 1 To .Rows
            .RowHeight(lRow) = 20
            .CellDetails lRow, 1, rss!Art_Nr, DT_RIGHT
            .CellDetails lRow, 2, rss!Artikelname
            .CellDetails lRow, 3, rss!Firma
            .CellDetails lRow, 4, rss!Kategoriename
            .CellDetails lRow, 5, rss!Einzelpreis, DT_RIGHT
            rss.MoveNext
        Next lRow
    End With
    rss.Close
End Sub

Wenn Ihr dann alles in das Load-Ereignis packt sieht das Grid nach dem Öffnen so aus.

Private Sub Form_Load()
    Set oSGrid = Me.vbalGrid1.Object
    InitialiseGrid
    addData
End Sub

Aber das noch nicht ganz dass was wir wollen.
Also weiter.

Jetzt wollen wir aber das die einzelnen Felder nach bestimmten Kriterien formatiert
und Icons der entsprechenden Kategorie zugeordnet werden.
Dafür bohren wir die Prozedur "addData()" auf.

Setzen der Icons für die entsprechende Kategorie

If rss!Kategoriename = "Fleischprodukte" Then
        .CellDetails lRow, 4, rss!Kategoriename, , 0
    ElseIf rss!Kategoriename = "Getreideprodukte" Then
        .CellDetails lRow, 4, rss!Kategoriename, , 1
    ElseIf rss!Kategoriename = "Getränke" Then
        .CellDetails lRow, 4, rss!Kategoriename, , 2
    ElseIf rss!Kategoriename = "Gewürze" Then
        .CellDetails lRow, 4, rss!Kategoriename, , 3
    ElseIf rss!Kategoriename = "Meeresfrüchte" Then
        .CellDetails lRow, 4, rss!Kategoriename, , 4
    ElseIf rss!Kategoriename = "Milchprodukte" Then
        .CellDetails lRow, 4, rss!Kategoriename, , 5
    ElseIf rss!Kategoriename = "Naturprodukte" Then
        .CellDetails lRow, 4, rss!Kategoriename, , 6
    ElseIf rss!Kategoriename = "Süßwaren" Then
        .CellDetails lRow, 4, rss!Kategoriename, , 7
 End If

Wobei hier zu beachten wäre das der Index der Icons aus der Imagelist, entgegen
der Anzeige im Imagelistcontrol, bei 0 beginnt.

Im nächsten Schritt wollen wir die Spalte mit dem Preis formatieren.
Folgende Kriterien habe ich mal genommen.

>100 Textfarbe Rot, Fett, Fontsize 14

>=20 und <100 Textfarbe Blau, Schrift normal
>=10 und <20 Textfarbe Schwarz, Zellhintergrund Gelb, Schrift normal
<10 Textfarbe Schwarz, Zellhintergrund Grün, Schrift normal

Zum Setzen der Fonts ist zusätzlicher Code erforderlich.
Für jede Änderung wäre eine neue Zuweisung der Variable "Fnt" erforderlich
bzw. zusätzliche Variablen.

Dim Fnt As Font
    Set Fnt = New StdFont
    With Fnt
        .Name = "Arial"
        .Bold = True
        .Size = 14
    End With

Jetzt noch die Farben. Wichtig ist hier das die Farben (Text und Hintergrund) als Hex-Werte
gesetzt werden müssen.

If rss!Einzelpreis >= 100 Then
        .CellDetails lRow, 5, rss!Einzelpreis, DT_RIGHT, , , &HFF, Fnt
    ElseIf rss!Einzelpreis >= 20 And rss!Einzelpreis < 100 Then
        .CellDetails lRow, 5, rss!Einzelpreis, DT_RIGHT, , &H80FFFF
    ElseIf rss!Einzelpreis >= 10 And rss!Einzelpreis < 20 Then
        .CellDetails lRow, 5, rss!Einzelpreis, DT_RIGHT, , , &HFF0000
    Else
        .CellDetails lRow, 5, rss!Einzelpreis, DT_RIGHT, , &HFF00&, &H0
End If

Somit sieht die komplettierte "addData()" Prozedur so aus:

Private Sub addData()
    Dim rss As DAO.Recordset
    Dim sSQL As String
    Dim lRow As Long, nRow As Long
    Dim Fnt As Font
    Set rss = CurrentDb.OpenRecordset("qry_Artikel")
    rss.MoveLast
    nRow = rss.RecordCount
    rss.MoveFirst
    Set Fnt = New StdFont
    With Fnt
        .Name = "Arial"
        .Bold = True
        .Size = 14
    End With
    With oSGrid
        .Rows = nRow
        For lRow = 1 To .Rows
            .RowHeight(lRow) = 20
            .CellDetails lRow, 1, rss!Art_Nr, DT_RIGHT
            .CellDetails lRow, 2, rss!Artikelname
            .CellDetails lRow, 3, rss!Firma
            If rss!Kategoriename = "Fleischprodukte" Then
                .CellDetails lRow, 4, rss!Kategoriename, , 0
            ElseIf rss!Kategoriename = "Getreideprodukte" Then
                .CellDetails lRow, 4, rss!Kategoriename, , 1
            ElseIf rss!Kategoriename = "Getränke" Then
                .CellDetails lRow, 4, rss!Kategoriename, , 2
            ElseIf rss!Kategoriename = "Gewürze" Then
                .CellDetails lRow, 4, rss!Kategoriename, , 3
            ElseIf rss!Kategoriename = "Meeresfrüchte" Then
                .CellDetails lRow, 4, rss!Kategoriename, , 4
            ElseIf rss!Kategoriename = "Milchprodukte" Then
                .CellDetails lRow, 4, rss!Kategoriename, , 5
            ElseIf rss!Kategoriename = "Naturprodukte" Then
                .CellDetails lRow, 4, rss!Kategoriename, , 6
            ElseIf rss!Kategoriename = "Süßwaren" Then
                .CellDetails lRow, 4, rss!Kategoriename, , 7
            End If
            If rss!Einzelpreis >= 100 Then
                .CellDetails lRow, 5, rss!Einzelpreis, DT_RIGHT, , , &HFF, Fnt
            ElseIf rss!Einzelpreis >= 20 And rss!Einzelpreis < 100 Then
                .CellDetails lRow, 5, rss!Einzelpreis, DT_RIGHT, , &H80FFFF
            ElseIf rss!Einzelpreis >= 10 And rss!Einzelpreis < 20 Then
                .CellDetails lRow, 5, rss!Einzelpreis, DT_RIGHT, , , &HFF0000
            Else
                .CellDetails lRow, 5, rss!Einzelpreis, DT_RIGHT, , &HFF00&, &H0
            End If
            rss.MoveNext
        Next lRow
    End With
    rss.Close
End Sub

Und das ist das Ergebnis:

Kommen wir nun zu einigen zusätzlichen Möglichkeiten des Grids.

Auslesen eines Zellinhaltes auf den geklickt wurde

Hier kommt das Ereignis "SelectionChange" des Grids zum Einsatz.

Private Sub vbalGrid1_SelectionChange(ByVal lRow As Long, ByVal lCol As Long)
    With oSGrid
        MsgBox "Zeile: " & lRow & vbNewLine & "Spalte: " & lCol & vbNewLine & .CellText(lRow, lCol)
    End With
End Sub

Und das Ergebnis:

Grid Leeren

Zum Leeren gibt es die Methode Clear

1	oSGrid.Clear

Wobei die Clear-Methode noch ein zusätzlichen Parameter hat
Wird es so aufgerufen:

1	oSGrid.Clear True

Werden auch die Spaltenköpfe mit gelöscht.

Spalten aus- bzw. einblenden

Per VBA können Spalten zur Laufzeit aus- bzw. eingeblendet werden.

'Ausblenden der Spalte ID
oSGrid.ColumnVisible("ID") = False
'Einblenden der Spalte ID
oSGrid.ColumnVisible("ID") = True

Spalten gruppieren

Eine der besten Eigenschaften des Grids ist das Gruppieren von Daten.

Diese kann per VBA oder in den Eigenschaften des Grids eingestellt werden.

Per Code:

1 2	oSGrid.AllowGrouping = True oSGrid.AllowGrouping = False

oder im Form:

Dort wird auch der Text festgelegt der im Kopfbereich erscheinen soll.

Dann kann mittels Drag 'n Drop eine Spalte in in diesen Bereich gezogen werden.

Im weiteren können auch weitere Spalten hinzu gefügt werden.

Das Ergebnis sähe dann so aus:

Auch ganze Spalten können mit Drag 'n Drop im Grid zur Laufzeit getauscht werden.
Alle Spalten behalten trotzdem den gleichen Spaltenindex.

Gruppierte Spalten alle ein- bzw. ausblenden

Es ist nun möglich per VBA alle gruppierten Ebenen ein- bzw auszublenden

Dafür sind 2 Prozeduren erforderlich die dann aufgerufen werden.

Einblenden:

Private Sub ExpandAllGroups()
Dim iRow As Long
   oSGrid.Redraw = False
   For iRow = 1 To oSGrid.Rows
      If (oSGrid.RowIsGroup(iRow)) Then
         oSGrid.RowGroupingState(iRow) = ecgExpanded
      End If
   Next iRow
   oSGrid.Redraw = True
End Sub

Ausblenden:

Private Sub CollapseAllGroups()
Dim iRow As Long
   oSGrid.Redraw = False
   For iRow = 1 To oSGrid.Rows
      If (oSGrid.RowIsGroup(iRow)) Then
         oSGrid.RowGroupingState(iRow) = ecgCollapsed
      End If
   Next iRow
   oSGrid.Redraw = True
End Sub

Dateien:

Workshop SGrid2-Komponente Beliebt

(1 Stimme)

Bsp-DB zum Workshop zur Benutzung SGrid2

Setup enthält folgende Dateien:

Workshop zur Benutzung SGrid2.pdf

tk_vbaac_Grid00.mdb

vbalSGrid6.ocx

vbalIml6.ocx

SSubTmr6.dll

SSubTmr.dll

Für MS-Access ab A00

05.02.2018

1.92 MB

1.471

Download

Suche

Tag Cloud

Workshop zur Benutzung SGrid2-Controls unter MS-Access

Login Form

Neueste Artikel

Online

Top Vote

Letzte Kommentare

Berechnen von Zeiträumen als Abfragekriterium

SQL zu VBA Konverter

SQL zu VBA Konverter

Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

Top Downloads

Meistgelesen