Unterformular Daten aktualisieren

[Youssef]

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

[MaggieMay]

Hallo,

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

[Hondo]

Sollte einfach mit Me.FilterOn = False funktionieren.

Gruß Andreas

[Youssef]

mei Code für den Filter schaut so aus :

Code [Auswählen] Erweitern

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

[Hondo]

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

Andreas

[Youssef]

einen Filter

[Hondo]

Code?

[MaggieMay]

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:

Code [Auswählen] Erweitern

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:

Code [Auswählen] Erweitern

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:

Code?

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

[Hondo]

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