Private Sub Form_Open(Cancel As Integer)
On Error GoTo Ex
 
    '* Grid initialisieren
    Call Grid_Initialize(Me.Grid1)
 
    '* Grid füllen
    Call FillSearchGrid(Me.Grid1, GridLagerbewegungBestandColumns(), _
      "Lagerdetail_AbmessungNr = " & ReadAbmessungID)
 
Ex:  On Error Resume Next
    Exit Sub
 
Er: FehlerBehandlung "Form_Open", Me.Name
    Resume Ex
 
End Sub

Public Sub Grid_Initialize(ByVal Grid As Object)
On Error GoTo Err_Grid_Initialize
 
    '** Eigenschaften des Grid setzen **
    '***************************************
    With Grid
 
        ' autom. Neuzeichnen des DataGrids unterbinden
        .LockUpdate True
 
        .Clear True
 
        ' Erweiterte Eigenschaften
        .ScrollBarStyle = 0
        .ScrollBars = 4
        .AllowColumnClick = True
        .AllowColumnSizing = True
        .AllowDelete = True
        .AllowEdit = False
        .AllowMultiSelect = False
        .AutoSort = True
        .AutoUpdate = True
        .ShowSortSymbols = True
        .WheelMouse = True
 
        'Scrollbar
        .ScrollBarBackColor = &HE0E0E0
        .ScrollBtnBackColor = &HFF8080
        .ScrollBtnBackColorDown = &HFFC0C0
        .ScrollBtnForeColor = vbWhite
        .ScrollBtnForeColorDown = vbBlack
 
    End With
 
Exit_Grid_Initialize:
    Exit Sub
 
Err_Grid_Initialize:
    MsgBox Err.Description & " in Modul vba_Grid/Grid_Initialize"
    Resume Exit_Grid_Initialize
 
End Sub

Public Sub FillSearchGrid(ByVal Grid As Object, varArrayList As Variant, _
  Optional strWhere As String = vbNullString)
On Error GoTo Err_FillSearchGrid
 
Dim rst As DAO.Recordset
Dim varSQL As Variant
Dim strTable As String
Dim i As Integer
 
    '* Select-string zusammen setzen
    varSQL = ReadSelect(varArrayList)
 
    '* Filter setzen
    If strWhere <> "" Then varSQL = varSQL + " Where " + strWhere
 
    '* Öffnen
    Set rst = CurrentDb.OpenRecordset(varSQL)
 
    With Grid
 
        '* autom. Neuzeichnen ausschalten
        .LockUpdate True
 
        '* Inhalt löschen
        .Clear True
 
        '* Spalten festlegen
        For i = LBound(varArrayList) To UBound(varArrayList)
            AddColumn Grid, CStr(varArrayList(i)(2)), CInt(varArrayList(i)(3)), _
              CBool(varArrayList(i)(5))
        Next i
 
        '* Recordset-Kopie erstellen
        .CreateClone = True
 
        '* Recordset zuweisen
        .Clear True
        Set .Recordset = rst
 
        '* Neuzeichnen des DataGrids wieder aktivieren
        .LockUpdate False
        .Refresh
 
        '* 1. Zeile selektieren
        .Row = 1
 
    End With
 
    '* ursprüngliches Recordset zerstören
    rst.Close
    Set rst = Nothing
 
Exit_FillSearchGrid:
    Exit Sub
 
Err_FillSearchGrid:
    MsgBox Err.Description, vbCritical, "No." & Err.Number
    Resume Exit_FillSearchGrid
End Sub