Hallo an alle,
hab eine Combobox in meinerm Unterformular eingebaut um mir Datensätze eines FK zu filtern.
Es funktioniert auch soweit.
Nur kann ich jetzt die Daten nur gefiltert ansehen.
Wie bekomme ich denn es hin das ich wieder alle Daten sehen kann.
Mein Code
Me.Filter = "GesRaum_W_Id=" & Me!cboWohnung
Me.FilterOn = True
Soll ich einen zusätzlichen Button einfügen der mir den Filter wieder deaktiviert wenn ja wie geht das??
Wäre dankbar für Eure Hilfe.
Lg
Albert
Würde es nicht schon reichen, den Filter abzufangen, bevor er gesetzt wird (für den Fall, dass cboWohnung leer ist )??
If me!cboWohnung = "" then
me.FilterOn = false
else
me.FilterOn = ........
me.FilterOn = true
end if
Wäre mein Versuch.....setzt aber voraus, dass Du cboWohnung auch leeren kannst.
Hallo Albert,
alternativ könntest du auch eine Umschaltfläche verwenden um den Filter zu bedienen.
Zu diesem Zweck baust du eine solche neben das Kombifeld ein und benennst sie 'tglFilter'.
Ins Klickereignis nimmst du folgenden Code auf:
Private Sub tglFilter_Click()
If Me.tglFilter = -1 Then
If Not IsNull(Me.cboWohnung) Then
Me.Filter = "GesRaum_W_Id=" & Me.cboWohnung
Me.FilterOn = True
Me.tglFilter.Caption = "Filter aus"
Else
MsgBox "Es wurde keine Auswahl getroffen um die Daten zu filtern!", vbExclamation, "Filter"
Me.tglFilter = 0
End If
Else
Me.FilterOn = False
Me.cboWohnung = Null
Me.tglFilter.Caption = "Filter ein"
End If
End Sub
HTH
Oder Du trägst ins Kombifeld (per Union-Abfrage) als ersten Eintrag "- Alle -" ein und wertest diesen Eintrag entsprechend aus.