Option Explicit
Dim mdbTexte As Database
Dim tbSammlung As Recordset
Dim dySuche As Recordset
 
Private Sub cmdSuche_Click()
Dim msql As String
Dim mWortpositionen As String
Dim mWortpositionAktuell As String
Dim mAnzahlVorkommen As Long
Dim mAusgabeText As String
 
Dim i As Integer
 
Set mdbTexte = OpenDatabase("Texte.mdb")
Set tbSammlung = mdbTexte.OpenRecordset("Sammlung", dbOpenTable)
 
msql = "SELECT * FROM Sammlung WHERE Wort=" & "'" & txtSuche.Text & "'"
Set dySuche = mdbTexte.OpenRecordset(msql, dbOpenDynaset)
 
 
'Datenbank nach Vorkommnissen durchsuchen und Wortpositionen zwischenspeichern
Do While Not dySuche.EOF
    If dySuche!Wort = txtSuche.Text Then
        'Wortpositionen der Suchergebnisse zwischenspeichern
        mWortpositionen = mWortpositionen & " " & CStr(dySuche!Index)
    End If
    dySuche.MoveNext
Loop
 
 
lblErgebnisseSaetze.Caption = mWortpositionen
 
'Anzahl der Suchergebnisse
mAnzahlVorkommen = UBound(Split(mWortpositionen, " "))
 
 
For i = 1 To mAnzahlVorkommen
 
'Falls es Suchergebnisse gibt, soll das aktuelle (i) ausgewählt werden
If Split(mWortpositionen, " ")(i) <> "" Then
    mWortpositionAktuell = Split(mWortpositionen, " ")(i)
End If
 
    'Die jeweiligen Suchergebnisse sollen ausgegeben werden
    Do While Not tbSammlung.EOF
        If tbSammlung!Index >= (mWortpositionAktuell - 5) And _
          tbSammlung!Index <= (mWortpositionAktuell + 5) Then
            mAusgabeText = mAusgabeText & " " & tbSammlung!Wort
        End If
        tbSammlung.MoveNext
    Loop
 
    lstSuchergebnisse.AddItem mAusgabeText
 
Next i
 
 
End Sub