Public Function Auswahl() As String
Auswahl = VarGeräteType
End Function
Private Sub Ersatzteile()
Dim oRs As DAO.Recordset
Dim sql As String
' Datenbank öffnen
If dbOpen(App.Path & "\Daten.mdb") Then
'************* GridAnsprechpartner Voll anzeigen***************
sql = "select TeileNr,Bezeichnung,Preis,ME from Ersatzteile Where '" & Auswahl _
  & "'=-1"
Set oRs = oDB.OpenRecordset(sql)
 
With GridErsatzteile
' autom. Neuzeichnen ausschalten
.LockUpdate True
' Recordset-Kopie erstellen
.CreateClone = True
' Recordset zuweisen
.Clear True
Set .Recordset = oRs
' Zusätzliche Spalten-Eigenschaften festlegen
.Columns(1).ColType = TYPE_COMBOBOX
' Spaltenbreiten festlegen
.Columns(1).Width = 1100
.Columns(2).Width = 2900
.Columns(3).Width = 900
.Columns(4).Width = 700
.Columns(1).Caption = "TeileNr"
.Columns(2).Caption = "Bezeichnung"
.Columns(3).Caption = "Preis"
.Columns(4).Caption = "Einheit"
 
' autom. Sortierung aktivieren
.AutoSort = True
' nach Feld "Name" sortieren
.DoSort "TeileNr"
' interaktives Hinzufügen, Ändern und Löschen ermöglichen
.AllowEdit = True
.AutoUpdate = True
.AllowDelete = True
' interaktives Ändern der Spaltenbreiten zulassen
.AllowColumnSizing = True
' autom. Neuzeichnen einschalten
.LockUpdate False
.Refresh
' ursprüngliches Recordset zerstören
oRs.Close
Set oRs = Nothing
End With
End If
 
End Sub