Office: (Office 2010) Filter von Datenblattansicht validieren

Komtur77 · 26. Mai 2017

Es liegt scheinbar an der Datenherkunft. Dort ist nicht der Tabellename hinterlegt, sondern eine "Select ...". Scheinbar gibt es auch ein Problem, wenn man mit je einem Alias für die Felder arbeitet. Ich baue mal eine extra Abfrage und teste. Wir sind dem Ziel ganz nah ;-)

Komtur77 · 26. Mai 2017

Code:

Option Compare Database
Dim strOldFilter As String

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
Me.TimerInterval = 50

If Me.Filter = strOldFilter Then
Exit Sub
End If

Dim rs As DAO.Recordset
Dim strFilter As String

strFilter = Nz(Me.Filter, "")

If strFilter = "" Then
'Handle this specific scenario
Exit Sub
End If

Set rs = Me.RecordsetClone
rs.Filter = Replace(strFilter, "[dbo_VIEW_Retoure_Stamm].", "")

Dim rsf As DAO.Recordset
Set rsf = rs.OpenRecordset

If rsf.EOF Then
Me.Filter = strOldFilter
MsgBox ("Der Filter kam zu keinem Ergebnis. Bitte löschen Sie denn Filter.")
End If
End Sub

Private Sub Form_Timer()
Me.TimerInterval = 50
strOldFilter = Nz(Me.Filter, "")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So damit funktioniert es soweit. Aber 100% gefällt mir die Lösung noch nicht.

Für Optimierungsvorschläge wäre ich sehr dankbar. Auch ansonsten danke an alle.

Marsu65 · 26. Mai 2017

Hallo,

wie wäre es damit:
Code:

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
Dim rs As DAO.Recordset
Dim ThisFilter As String

ThisFilter = Replace(Me.Filter, "[DeinTabellenName].", "")
If ThisFilter = vbNullString Then Exit Sub
Set rs = Me.RecordsetClone
rs.FindFirst ThisFilter
If rs.NoMatch Then
MsgBox "Die Filterkriterien ergeben keine Daten" & vbNewLine & " Filter wird zurückgesetzt"
Cancel = True
End If
Set rs = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Komtur77 · 30. Mai 2017

Hallo Marsu.

Mit deinem Vorschlag habe ich nun eine finale Lösung gefunden. Vielen Dank.

Natürlich auch vielen Dank an alle anderen :-)

Beste Grüße
Komtur77

Office: (Office 2010) Filter von Datenblattansicht validieren

Filter von Datenblattansicht validieren

Filter von Datenblattansicht validieren

Filter von Datenblattansicht validieren

Filter von Datenblattansicht validieren - Similar Threads - Filter Datenblattansicht validieren

Outlook-Kontakte verknüpfen und Filtern

Filter nach Wert in Zahlengruppe

Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche)

Intelligente Tabelle Filter fixieren

neue Filter Funktion

Filter Formel geht nicht

SQL: Filtern mit mehreren Werten aus einer Excelspalte (Liste)