Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Umstellung des Filters im Unterformular
zurück: Formular in den Autostart weiter: individuelles Textfeld im Endlossformular Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
s_Techert
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. Okt 2011, 13:43
Rufname:
Wohnort: Berlin

Umstellung des Filters im Unterformular - Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Hallo,

ich habe einen Filter per VBA, der mir im Hauptformular die Datensätze nach belieben filtert. Diesen Filter möchte ich gerne umschreiben auf das Unterformular, weil sie das Unterformular dauernd ändert (die DB ist noch am Anfang).

Hier mein Quellcode:
Code:
Private Sub cmdFilter_Click()
    Dim strWhere As String
    Dim lngLen As Long
   
    If Not IsNull(Me.txtFilter1) Then
        strWhere = strWhere & "([reginale LL ID] Like ""*" & Me.txtFilter1 & "*"") AND "
    End If
   
    If Not IsNull(Me.txtFilter2) Then
        strWhere = strWhere & "([Maßnahme] Like ""*" & Me.txtFilter2 & "*"") AND "
    End If

    lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then
        MsgBox "No criteria", vbInformation, "Nothing to do."
    Else
        strWhere = Left$(strWhere, lngLen)
        Me.Filter = strWhere
        Me.FilterOn = True
    End If
End Sub


Wie schreibe ich den um, damit ich im Unterformular, mit den selben Feldern, filtern kann.
Nouba
nicht ganz unwissend :)


Verfasst am:
13. Okt 2011, 14:04
Rufname:
Wohnort: Berlin


AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Hallo,

siehe Don Karls FAQ 4.2 Bezug auf Unterformular/bericht.

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
s-Techert
Gast


Verfasst am:
17. Okt 2011, 12:14
Rufname:

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

ich pack das nicht wirklich umzusetzen, könnt ihr mir da weiterhelfen?

Gruß

s_Techert
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
17. Okt 2011, 12:45
Rufname: Mike

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Hallo,
an welcher Stelle hast du konkret das Problem?

Du möchtest mit Werten aus dem HForm des UForm filtern? Der Befehl wir im HForm ausgelöst?
Dann musst du eigentlich nur Me durch dein UForm ersetzen. Wie das geht steht im Link.

_________________
Grüße
Mike
s-Techert
Gast


Verfasst am:
18. Okt 2011, 11:02
Rufname:


AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Code:
If Not IsNull([01_Frm_Ufrm_Test].txtFilter1) Then
        strWhere = strWhere & "([reginale LL ID] Like ""*" & Me.txtFilter1 & "*"") AND "
    End If


so funktioniert das nicht Sad
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
18. Okt 2011, 11:23
Rufname: Mike

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Hallo,
Zitat:
Du möchtest mit Werten aus dem HForm das UForm filtern? Der Befehl wir im HForm ausgelöst?
Stimmt das so!? Dann besteht natürlich keine Notwendigkeit an den Textfeldern änderungen vorzunehmen. Du musst lediglich nicht den Me.Filter sondern den Unterformular-Filter setzen:
Code:
'        Me.Filter = strWhere
        Me("01_Frm_Ufrm_Test").form.Filter = strWhere
'        Me.FilterOn = True
        Me("01_Frm_Ufrm_Test").form.FilterOn = True

_________________
Grüße
Mike
s-Techert
Gast


Verfasst am:
18. Okt 2011, 11:41
Rufname:

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

genau! ich möchte in einem Textfeld im Hauptformular etwas eintragen und im Unterformular soll es dann gefiltert werden.

ich glaube ich stelle mich total dumm an, aber ich weiss nicht, wo ich es ändern muss.

dies ist mein bisheriger nicht funktionierender Code
Code:
Private Sub cmdFilter_Click()
    Dim strWhere As String
    Dim lngLen As Long
   
    If Not IsNull(Me.txtFilter1) Then
        strWhere = strWhere & "([reginale LL ID] Like ""*" & Me.txtFilter1 & "*"") AND "
    End If
   
    If Not IsNull(Me.txtFilter2) Then
        strWhere = strWhere & "([Maßnahme] Like ""*" & Me.txtFilter2 & "*"") AND "
    End If
   
    If Not IsNull(Me.txtFilter3) Then
        strWhere = strWhere & "([MLB Auftrags ID] Like ""*" & Me.txtFilter3 & "*"") AND "
    End If
   
    If Not IsNull(Me.txtFilter4) Then
        strWhere = strWhere & "([[Nummer] Like ""*" & Me.txtFilter4 & "*"") AND "
    End If
   
    If Not IsNull(Me.txtFilter5) Then
            strWhere = strWhere _
                 & "([A-Standort] Like ""*" & Me.txtFilter5 & "*""" _
              & " OR [B-Standort] Like ""*" & Me.txtFilter5 & "*"") AND "
    End If
'________________________________________________

    lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then
        MsgBox "No criteria", vbInformation, "Nothing to do."
    Else
        strWhere = Left$(strWhere, lngLen)
        'Me.Filter = strWhere
        Me("01_Frm_Ufrm_Test").Form.Filter = strWhere
        'Me.FilterOn = True
        Me("01_Frm_Ufrm_Test").Form.FilterOn = True
    End If
End Sub
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
18. Okt 2011, 11:58
Rufname: Mike

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Hallo,
sieht für mich erst mal so recht gut aus (vorausgesetzt der Code war für das HForm schon getestet). Wo ist das Problem?

_________________
Grüße
Mike
s-Techert
Gast


Verfasst am:
18. Okt 2011, 12:04
Rufname:

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

es passiert nichts!

verstehe ich das richtig, ich sollte den Code für Hauptformular und Unterformular trennen? bzw. zwei verschiedene haben??
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
18. Okt 2011, 12:36
Rufname: Mike

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Hallo,
Zitat:
es passiert nichts!
Bau mal ein MsgBox ein, um zu testen, ob der Code überhaupt "angefahren" wird.

Zitat:
ich sollte den Code für Hauptformular und Unterformular trennen
Nein.
_________________
Grüße
Mike
s-Techert
Gast


Verfasst am:
18. Okt 2011, 13:05
Rufname:

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

grml... hatte die filterfunktionen nicht den buttons hinterlegt.

jetzt bekomme ich einen fehler bei
Code:
Me![Test2].Form.Filter = strWhere


"Microsoft Office Access kann das in Ihrem Ausdruck angesprochene Feld 'Test2' nicht finden."

gebe ich hier an, das er sich auf das Unterformular "Test2" beziehen soll???
Code:
 lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then
        MsgBox "No criteria", vbInformation, "Nothing to do."
    Else
        strWhere = Left$(strWhere, lngLen)
        'Me.Filter = strWhere
        Me![Test2].Form.Filter = strWhere
        'Me.FilterOn = True
        Me![Test2].Form.FilterOn = True
    End If
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
18. Okt 2011, 13:15
Rufname: Mike

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Hallo,
"Test2" ist der Name deines Unterformularsteuerelements?
Dieser Name entspricht nicht (unbedingt) dem Namen des Formularobjektes![/quote]

_________________
Grüße
Mike
Gast



Verfasst am:
18. Okt 2011, 13:36
Rufname:

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Test2 ist der Name meines Unterformulars, ich habe den unbenannt, um Probleme zu vermeiden.

was meinst du mit Formularobjekt?
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
18. Okt 2011, 13:40
Rufname: Mike

AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

Hallo,
es gibt einen Formularnamen (so wie es unter den accessobjekten aufgeführt ist) und es gibt den Namen des Steuerelements unter welchem das UForm im HForm "registriert" ist.
UForm markieren->Eigenschaften->Andere->Name

_________________
Grüße
Mike
Gast



Verfasst am:
18. Okt 2011, 13:44
Rufname:


AW: Umstellung des Filters im Unterformular - AW: Umstellung des Filters im Unterformular

Nach oben
       Version: Office 2003

du bist der beste!
es klappt!!!!


der name war falsch! bzw. es war der Name, welchen ich vorher benutzt habe.
vielen lieben Dank.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Formular, Unterformular, Versionierung/automatisches Zählen 3 RammTammTamm 91 31. März 2014, 21:13
MiLie Formular, Unterformular, Versionierung/automatisches Zählen
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular nach Zeitspanne filtern 2 Udosym 105 01. Dez 2013, 14:48
MaHumba Unterformular nach Zeitspanne filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Per VBA neuen Datensatz in Unterformular 5 turbochris 9357 28. Aug 2013, 16:57
sponsorsearch Per VBA neuen Datensatz in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: txt_Feld mit Suchbutton soll Unterformular 6 BabyHoppi 375 08. Aug 2013, 13:44
endorfin txt_Feld mit Suchbutton soll Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung in Unterformular 1 Bollerkohl 100 09. Okt 2012, 08:19
kyron9000 Berechnung in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Laufende Uhrzeit im Unterformular 3 Iron70 305 23. Sep 2012, 07:57
Iron70 Laufende Uhrzeit im Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular Neuer Datensatz nicht am Schluss 1 chris374 389 03. März 2012, 10:56
KlausMz Unterformular Neuer Datensatz nicht am Schluss
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular per SQL füllen / Objekt geschlossen... 6 htc.zenit 513 15. Feb 2012, 18:12
Gast Unterformular per SQL füllen / Objekt geschlossen...
Keine neuen Beiträge Access Tabellen & Abfragen: Auf Unterformular zugreifen 1 Vermillion 181 12. Jan 2012, 18:38
MiLie Auf Unterformular zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: ENVIRON() Umstellung XP/off2000 auf Win7/off2010 14 PetraS 1605 04. Jul 2011, 09:27
steffen0815 ENVIRON() Umstellung XP/off2000 auf Win7/off2010
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular für Artikelbestellung 5 JochenGAST 303 01. März 2011, 20:10
KlausMz Unterformular für Artikelbestellung
Keine neuen Beiträge Access Tabellen & Abfragen: Variabler Wert in einem Abhängigem Unterformular 7 Ogni 588 07. Feb 2011, 18:45
Bitsqueezer Variabler Wert in einem Abhängigem Unterformular
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum