Sub lstSectors_Click()
Dim JaNein As Integer
Dim i As Integer
 
If gespeichert = False Then
    JaNein = MsgBox("Bericht wurde verändert. Änderungen speichern?", _
      vbQuestion + vbYesNo)
        If JaNein = 6 Then
 
            Set Tabelle = Db.OpenRecordset(SecOld)
 
            Tabelle.MoveFirst
        Do Until Tabelle("ID") = oldid
               Tabelle.MoveNext
            Loop
 
            Tabelle.Edit
            Tabelle("Bericht") = rtf.Text
            Tabelle.Update
            gespeichert = True
        End If
End If
 
lstFeatures.Clear
lstDone.Clear
rtf.Text = ""
txtModifiedSec.Text = ""
 
 
Set Tabelle = Db.OpenRecordset(lstSectors.Text)
For i = 1 To Tabelle.RecordCount
    lstFeatures.AddItem (Tabelle("Feature"))
    Tabelle.MoveNext
Next
 
lblCurSector.Caption = lstSectors.Text
gespeichert = True
SecOld = lstSectors.Text
End Sub

Press any key to continue or any other key to quit...