Public Sub test()
Dim liste As String
 liste =zubehör1 & zubehör2& zubehör3 .......usw
bemerkung = liste
 
 
Private Sub Ch_abs_Click()
 
If Ch_abs = "1" Then
zubehör1= "Abs, "
Else
zuabs = ""
End If
 
Call test
end sub
 
Wenn ich es so probiere klappt es auch soweit. Aber beim Löschen vom Datensatz _
  bekomme ich folgende Fehlermeldung.
 
Fehler bei einen aus meheren Schritten bestehenden Vorgang.
Überprüfen Sie die einzelnen Statuswerte. 
 
Nehme ich den Code raus funktioniert wieder alles einwandfrei.
Für Hilfestellung wäre ich echt dankbar
 
Grüße aus Velbert Rüdiger