Private Sub Form_Load()
  Dim i As Long
  Dim oRs As DAO.Recordset
 
  Me.KeyPreview = True
 
  ' Application-Path
  sAppPath = Left$(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))
 
  ' Datenbank öffnen
  Set oDB = DBEngine.OpenDatabase(CurrentDb.Name)
 
  ' SQL-Abfragestring
  sSQL = "SELECT * FROM Stueckliste;"
 
  ' Recordset erstellen
  Set oRs = oDB.OpenRecordset(sSQL)
 
  ' Spalten festlegen
  With Grid3
    ' autom. Neuzeichnen des DataGrids unterbinden
 
    .CreateClone = True
    .FilterMoveTAB = True
 
    ' Erweiterte Eigenschaften
    .AllowColumnClick = True
    .AllowColumnSizing = True
    .AllowDelete = True
    .AllowEdit = True
    .AllowMultiSelect = True
    .AllowColumnReorder = True
    .AutoSort = True
    .AutoUpdate = True
    .CheckBoxStyle = 2 ' XP-Style
    .ShowSortSymbols = True
    .AutoRefreshVScroll = True
    .ScrollBars = SB_HORIZONTAL
 
    ' Filterzeile oberhalb der Spaltenköpfe anzeigen
    .FilterAlign = FILTER_ALIGN_TOP
    .FilterForeColorDisabled = vbGrayText
    .FilterVisible = True
    .AllowFilterEdit = True
    .FilterMoveTAB = False
    .FilterTextFixCol = "Suche:"
 
 
 
 
    .Caption = "Stückliste"
    .CaptionFont.Name = "Tahoma"
    .CaptionFont.Bold = True
    .CaptionFont.Size = 9
 
    .ColumnHeaderFont.Name = "Tahoma"
    .Font.Name = "Tahoma"
    .FooterFont.Name = "Tahoma"
    .FilterFont.Name = "Tahoma"
 
    ' Recordset zuweisen
    .CreateClone = True
    Set .Recordset = oRs
 
    ' Nach Name sortieren
    .DoSort "txtStuecklistennummer", 1
 
    ' Zuletzt eingestellte Spaltenbreiten wiederherstellen
    .ReadColumnWidth "MyApplication", "DataGrid3", "GridWidth"
 
    ' Filterzeile
    For i = 1 To .Cols
      .Columns(i).FilterShowDisabled = True
    Next i
 
    ' Spalte ausblenden
    .Columns("RecordId").Visible = False
    .Columns("UnitID").Visible = False
    .Columns("UserName").Visible = False
    .Columns("Timestamp").Visible = False
 
    ' Wheelmaus-Unterstützung aktivieren
    .WheelMouse = True
 
    ' Neuzeichnen des DataGrids wieder aktivieren
    .LockUpdate False
    .Refresh
    .Row = 1
 
  End With
 
    Me.Caption = "Stückliste"
 
  ' Recordset kann geschlossen werden, wenn
  ' CreateClone = True
  oRs.Close
  Set oRs = Nothing
 
  ' Filterkriterien...
  ReDim sFilter(Grid3.Cols)
 
 
End Sub

Private Sub cmdAddNew_Click()
  ' Neue Datenzeile hinzufügen
  Grid3.AddNew "txtStuecklistennummer"
 
  ' Schaltfläche "Abbrechen" aktivieren
  cmdAbort.Enabled = True
End Sub
Private Sub cmdAbort_Click()
  If MsgBox("Vorgang wirklich abbrechen?", vbYesNo) = vbYes Then
    Grid3.AbortAddNew
    cmdAbort.Enabled = False
  End If
End Sub
Private Sub Grid3_ErrorAddNew(ByVal nError As Long, _
  ByVal sDescription As String)
 
  ' Es ist ein Fehler beim Speichern aufgetreten
  MsgBox "Fehler beim Hinzufügen der neuen Datenzeile" & vbCrLf & _
    CStr(nError) & " " & sDescription, vbCritical, "Fehler!"
End Sub
Private Sub Grid3_AfterAddNew()
  cmdAddNew.Enabled = True
  cmdAbort.Enabled = False
End Sub
 
Private Sub Grid3_BeforeAddNew(Cancel As Integer)
  Dim nResult As Integer
 
  nResult = MsgBox("Änderung übernehmen?", vbYesNoCancel)
  Select Case nResult
    Case vbYes
      Cancel = 0
    Case vbNo
      Cancel = 1
    Case Else
      Cancel = 2
  End Select
End Sub
 
Private Sub Grid3_CancelAddNew()
  ' AddNew wurde abgebrochen
  Grid3.SetFocus
  cmdAddNew.Enabled = True
  cmdAbort.Enabled = False
End Sub
 
Private Sub Grid3_StartAddNew()
  ' Befehl für "neue Zeile hinzufügen" wurde ausgeführt
  Grid3.SetFocus
  cmdAddNew.Enabled = False
  cmdAbort.Enabled = True
End Sub