Private Sub cmdHalten_Click()
Dim i As Long
Dim nSelCount As Long
Dim nRow As Long
Dim nTopRow As Long
 
With svgOffPos
  ' Anzahl der selektierten Einträge
  nSelCount = .SelCount
  nTopRow = .TopRow
  .LockUpdate True
 
  ' alle selektierten Einträge durchlaufen
  For i = 0 To nSelCount - 1
    ' Index der selektierten Datenzeile
    nRow = .SelRow(i)
 
    With .Recordset
      .MoveFirst
      If nRow > 1 Then .Move = nRow - 1
      .Fields("Halten") = True    'In dieser Zeile wird der Fehler ausgelöst
      .Update
    End With
  Next i
 
  .TopRow = nTopRow
  .LockUpdate False
  .Refresh
End With
End Sub