Filter im Unterformular bzw. Combobox löschen?1

[silentwolf]

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

Code [Auswählen] Erweitern

    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

[69bruno]

Würde es nicht schon reichen, den Filter abzufangen, bevor er gesetzt wird (für den Fall, dass cboWohnung leer ist )??

Code [Auswählen] Erweitern


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.

[database]

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:

Code [Auswählen] Erweitern


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

[Maxel]

Oder Du trägst ins Kombifeld (per Union-Abfrage) als ersten Eintrag "- Alle -" ein und wertest diesen Eintrag entsprechend aus.