Public Function LOAD_Floskel(Table As String, Formular As String, sevObj As _
  String)
 
    Dim sevRST As DAO.Recordset
    Dim sevField As String
    Dim sevTitle As String
 
    With Forms(Formular)(sevObj)
        If Len(.Caption) > 0 Then
            sevTitle = Left$(.Caption, Len(.Caption) - 2)
        End If
        sevField = .ControlSource
        Set sevRST = CurrentDb.OpenRecordset("SELECT " & sevField & " FROM " & _
          Table)
        .PopUpFloskel = True
        With .FloskelDlg
            .Clear
            Do While sevRST.EOF = False
                .AddItem sevRST.Fields(0).Value
                sevRST.MoveNext
            Loop
            .Caption = sevTitle
            .AllowEdit = True
        End With
    End With
 
    sevRST.Close
    Set sevRST = Nothing
 
End Function

Public Function SAVE_Floskel(Table As String, Formular As String, sevObj As _
  String, FldLen As Long)
 
    Dim sevRST As DAO.Recordset
    Dim sevField As String
 
    CurrentDb.Execute "DELETE * FROM " & Table                                _
      'Alte DS löschen
    Set sevRST = CurrentDb.OpenRecordset(Table)                               _
    'Tabelle öffnen
 
    '- Floskelliste auslesen -
 
    With Forms(Formular)(sevObj)
        sevField = .ControlSource
        With .FloskelDlg
            Dim sItem As String
            For i = 0 To .ListCount - 1
                sItem = .List(i)
 
                '- Bemerkungsfeld -
 
                If Right$(sItem, 1) = "|" Then sItem = Left$(sItem, Len(sItem) _
                  - 1)
 
                '- Max. Eingabelänge -
 
                If Len(sItem) > FldLen Then
                    sItem = Left$(sItem, FldLen)
                End If
 
                sevRST.AddNew
                sevRST.Fields(sevField) = sItem
                sevRST.Update
            Next i
        End With
    End With
 
    sevRST.Close
    Set sevRST = Nothing
 
End Function