Private Sub updatePreismatrix(tmpIDArtikel as Long)
 
    Dim sqlPreismatrix As String
 
        sqlPreismatrix = "TRANSFORM Sum(Preis) AS [Summe von Preis] " & _
                         "SELECT y " & _
                         "FROM tblArtikel_Preismatrix " & _
                         "WHERE IDArtikel = " & tmpIDArtikel & " " & _
                         "GROUP BY IDArtikel, y " & _
                         "ORDER BY y, x " & _
                         "PIVOT x "
 
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
 
    Set myGridView = Me!axPreismatrix.Object
 
    Set db = CurrentDb
    Set rs = db.OpenRecordset(sqlPreismatrix)
 
  ' Spalten festlegen
  With myGridView
 
    ' autom. Neuzeichnen des DataGrids unterbinden
    .LockUpdate True
    .FilterMoveTAB = True
 
    ' Erweiterte Eigenschaften
    .AllowColumnClick = False
    .AllowColumnSizing = True
    .AllowDelete = True
    .AllowEdit = True
    .AllowMultiSelect = False
    .AllowColumnReorder = False
    .AutoSort = False
    .AutoUpdate = True
    .CheckBoxStyle = 2 ' XP-Style
    .ShowSortSymbols = False
    .AutoRefreshVScroll = True
 
    ' Recordset zuweisen
    .CreateClone = True
    Set .Recordset = rs
 
    ' Wheelmaus-Unterstützung aktivieren
    .WheelMouse = True
 
    ' Neuzeichnen des DataGrids wieder aktivieren
    .LockUpdate False
    .Refresh
    .Row = 1
 
  End With
 
  rs.Close
  Set rs = Nothing
 
End Sub

db.Close