Office: (Office 365) Gefilterte Datensätze markieren

Hallo,
ich habe ein Endlosformular, bei welchem ich über einige Filter die Ansicht einschränke.
Nun möchte ich die gefilterten Datensätze bearbeiten.
Wie bekomme ich den aktuellen Filter in die Abfrage?

Code:

CurrentDb.Execute "UPDATE abfr_Daten SET Marker = " & Me.XMarkAll & " WHERE " & Me.Filter

funktioniert nicht, dann wird nur das Kästchen des aktiven Datensatzes verändert.
(XMarkAll ist das Kontrollkästchen oben links, welches alle angezeigten Kontrollkästchen de-/markieren soll)

 

Hallo,
folgende Funktion sollte nur das im Formular aktuell gefilterte Recordset ändern:

Code:

Private Sub XMarkAll_AfterUpdate()
 Dim db As Database
 Dim rs As Recordset
 
 Set db = CurrentDb
 Set rs = Me.RecordsetClone
 
 rs.MoveFirst
 Do Until rs.EOF
    rs.Edit
    rs!Marker = Me.XMarkAll
    rs.Update
    rs.MoveNext
 Loop
 Me.Refresh
End Sub

 

Hat es geklappt?

 

Hallo,
entgegen meiner vorherigen Behauptungen funktioniert es mit diesem Code

Code:

Private Sub XMarkAll_AfterUpdate()
    If Me.Filter = "" Then
        CurrentDb.Execute "UPDATE abfr_Daten SET Marker = " & Me.XMarkAll
    Else
        CurrentDb.Execute "UPDATE abfr_Daten SET Marker = " & Me.XMarkAll & " WHERE " & Me.Filter
    End If
    Me.Refresh
End Sub

Aber rein vom angucken her wird Dein Code auch funktionieren.