Access-o-Mania

Hallo,
hat man ne Idee wie ich in  einem Unterformular alle Daten zeige, nachdem ich die Daten gefiltert habe ?
LG
Youssef

Hallo,

das Gegenteil von "Filter setzen" ist "Filter entfernen". Wie filterst du das Unterformular? Kehre die Aktion doch einfach um.

Sollte einfach mit Me.FilterOn = False funktionieren.

Gruß Andreas

mei Code für den Filter schaut so aus :
Private Sub cboDurchmesserType_AfterUpdate()
    Call SearchCriteria
End Sub

Private Sub cboWerkstoffgroupeIDType_AfterUpdate()
Call SearchCriteria
End Sub

Private Sub cboWerkstoffIDType_AfterUpdate()
Call SearchCriteria
End Sub

Private Sub cboWerkstoffnameType_AfterUpdate()
Call SearchCriteria
End Sub
'Filter : Sortieren nach Durchmesser,Material,...
Function SearchCriteria()
Dim DurchmesserType, WerkstoffIDType, WerkstoffnameType, WerkstoffgroupeIDType As String
Dim task, strCriteria As String
       
If IsNull(Me.cboDurchmesserType) Then
    DurchmesserType = "[VALNUM] like '*'"
Else
    DurchmesserType = "[VALNUM] = " & Str(Me.cboDurchmesserType)
End If


If IsNull(Me.cboWerkstoffIDType) Then
    WerkstoffIDType = "[MATERIALID] like '*'"
Else
    WerkstoffIDType = "[MATERIALID] = '" & Me.cboWerkstoffIDType & "'"
End If


If IsNull(Me.cboWerkstoffnameType) Then
    WerkstoffnameType = "[MATERIALNAME] like '*'"
Else
    WerkstoffnameType = "[MATERIALNAME] = '" & Me.cboWerkstoffnameType & "'"
End If


If IsNull(Me.cboWerkstoffgroupeIDType) Then
    WerkstoffgroupeIDType = "[MATERIALGROUPID] like '*'"
Else
    WerkstoffgroupeIDType = "[MATERIALGROUPID] = '" & Me.cboWerkstoffgroupeIDType & "'"
End If

strCriteria = DurchmesserType & "And" & WerkstoffIDType & "And" & WerkstoffnameType & "And" & WerkstoffgroupeIDType
task = "Select * from Filter where " & strCriteria
Me.Filter_Unterformular2.Form.RecordSource = task
Me.Filter_Unterformular2.Form.Requery

End Function

ich will nach dem Sortieren von Daten, zb auf Button Clicken , alle Daten zurück   im Unterformular zeigen lassen

Wo ist dein Problem? Ich hab dir doch schon die Lösung genannt?
Was steckt in der Prozedur SearchCriteria drin?

Andreas

einen Filter

Code?

Hallo,

zunächst einmal:
eine Abfrage oder Tabelle solltest du nicht "Filter" nennen, das ist ein reserviertes Wort in Access.

Außerdem solltest du besser das Unterformular tatsächlich filtern anstatt ihm eine neue RecordSource zuzuweisen:Me.Filter_Unterformular2.Form.Filter = strCriteria
Me.Filter_Unterformular2.Form.FilterOn = TrueDann lässt sich der Filter nämlich leicht wieder entfernen, und zwar mit:Me.Filter_Unterformular2.Form.FilterOn = False

BTW:
- Vor und nach den ANDs fehlen jeweils Leerzeichen.
- Nach Zuweisung der RecordSource ist ein Requery nicht erforderlich.

@Hondo:

ZitatCode?

Der Code der Function wurde bereits mit dem übrigen Code gepostet.

Oh bin ich blind, ich hätte das Codefenster Scrollen sollen.....