Office: (Office 2016) Form filtern / Bericht gefiltert öffnen

Helfe beim Thema Form filtern / Bericht gefiltert öffnen in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Moin zusammen, also ich steh mal wieder wie der Ochs vor'm Berg. Problem 1: Ich bekomm mein Formular nicht, mehr, gefiltert. Es hat nämlich schon mal... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Nakoda, 6. Februar 2016.

Seite 1 von 3

NAKODA

Nakoda

Form filtern / Bericht gefiltert öffnen

Moin zusammen,

also ich steh mal wieder wie der Ochs vor'm Berg.
Problem 1: Ich bekomm mein Formular nicht, mehr, gefiltert.
Es hat nämlich schon mal funktioniert. An den Formaten hab ich nix gedreht nur das ich jetzt keine UNION Abfrage mehr als Datenbasis habe.
Ich habe folgenden Code: Code:

Private Sub btnSetFilter_Click()
strFilter = "Year([mEnd]) = " & Me.cmbYears & " AND Month([mEnd]) = " & Me.cmbMonths

On Error Resume Next
If Me.FilterOn = True Then
Me.FilterOn = False
Me.Filter = strFilter
Me.FilterOn = True
Else
Me.Filter = strFilter
Me.FilterOn = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine Auswertung der einzelnen Felder ergab folgendes: Code:

Year([mEnd])= 2015
Month([mEnd])= 11
Me.cmbYears= 2015
Me.cmbMonths= 11
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber gefiltert wird leider trotzdem nicht.

Problem 2: Das selbe mit meinem Bericht. Code:

Private Sub btnPrintAccounting_Click()
If Me.FilterOn = True Then
DoCmd.OpenReport "rptBackOffice", View:=acLayout, WhereCondition:="Year([mEnd]) = " & Me.cmbYears & " AND Month([mEnd]) = " & Me.cmbMonths
Else
DoCmd.OpenReport "rptBackOffice", View:=acLayout
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist sicher nur wieder eine Kleinigkeit die, mal wieder, übersehen habe. *confused.gif*
Habt Ihr einen Tipp für mich?
Falls mehr Infos nötig einfach nachfragen. *Smilie

:)

Nakoda, 6. Februar 2016

#1
JOSEF P.

Josef P.

Hallo!

Wie sieht der fertig zusammengesetzte Filterausdruck (Inhalt von strFilter) aus?
Wie sieht die Datenquelle des Formular aus?
Welchen Datentyp hat das Datenfeld mEnd?

Füge bitte einmal die Datenquelle und den Filterausdruck in einer Access-Abfrage zusammen und prüfe ob Daensätze gefiltert werden.

Ansonsten:
Dein Filterausdruck ist nicht Index-freundlich.
Besser wäre (Prinzip):
Code:

strFilter = "mEnd >= " & Format(Dateserial(Me.cmbYears, Me.cmbMonths, 1), "\#yyyy-mm-dd\#") & _
" AND mEnd < " & Format(Dateserial(Me.cmbYears, Me.cmbMonths + 1, 1), "\#yyyy-mm-dd\#")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... das ist aber

mfg
Josef

Josef P., 8. Februar 2016

#2
NAKODA

Nakoda

Moin Josef,

danke für den Tip.
Wird ich Morgen Nachmittag gelich mal umsetzen.
Für heute ist erst mal Schluß.

Um 05:45 wird aufgestanden. *grins

Nakoda, 8. Februar 2016

#3
NAKODA

Nakoda

Form filtern / Bericht gefiltert öffnen

Hallo zusammen,
da wär ich also. *biggrin.gif*
Werd ich mal schauen ob ich alles Fragen zur Zufriedenheit beantworten kann.
Die Datenquelle des Formulares sieht folgendermaßen aus: Code:

SELECT Format([m].[end], "dd\.mm\.yyyy") AS mEnd,
c.categoryname,
SUM([m].[effort] * 60 / 86400) AS mEffort
FROM (tblcategories AS c
INNER JOIN tblmeasurements AS m
ON c.categoryid = m.categoryid)
INNER JOIN tblofficecategories AS o
ON c.officecategory_id = o.officecategory_id
GROUP BY Format([m].[end], "dd\.mm\.yyyy"),
c.categoryname,
m.end,
m.valid,
o.officecategory_id
HAVING ( ( ( SUM([m].[effort] * 60 / 86400) ) > 0 )
AND ( ( m.end ) IS NOT NULL )
AND ( ( m.valid ) = true )
AND ( ( o.officecategory_id ) = 2 ) );
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mEnd Resultiert aus einem Standarddatumsfeld. Es steht ein Zeitstempel (12.10.2015 13:45:09) drin. Dann wären da noch meine Auswahlfelder.
Code:

'cmbMonths
SELECT Iif([month_id] < 10, 0 & [month_id], [month_id]) AS mID,
tblmonths.mmonthname
FROM tblmonths;

'cmbYears
SELECT DISTINCT Format([End],"yyyy") AS mYear
FROM tblMeasurements;

'Ergebnis strFilter
Year([mEnd]) = 2015 AND Month([mEnd]) = 11
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich schau mal ob ich eine Spielwiese hochladen kann.

Nakoda, 9. Februar 2016

#4
NAKODA

Nakoda

Hier dann also das Beispiel! *biggrin.gif*

Nakoda, 9. Februar 2016

#5
MAGGIEMAY

MaggieMay

Hallo,

ich kann das Problem nicht nachvollziehen, das Filtern klappt einwandfrei.

Kannst du vielleicht den Ablauf einmal ganz genau beschreiben, wie du vorgehst wenn es nicht "klappt" und auch benennen, wie dieses "nicht klappen" sich darstellt?

MaggieMay, 9. Februar 2016

#6
NAKODA

Nakoda

Hallo Maggie,

dascha merkwürdig. *upps
Du hast recht.
Also ich hab immer den Monat und dann das Jahr ausgewählt und dann den Filter gesetzt.
In der hochgeladenen Version geht es bei mir hier nicht.
Die einzige Erklärung die dafür habe ist die tblMeasurements.
Die habe ich vorher "ausgemistet". Leere DS raus und nur auf wenige Kategorien beschränkt. Aber lag es daran???

Nakoda, 10. Februar 2016

#7
NAKODA

Nakoda

Form filtern / Bericht gefiltert öffnen

Aaaalso ....
Es war wohl ein konvolut aus Fehlern.
Ich habe ein wenig Datenbereinigung bei den Basisdaten betrieben und die
Abfrage habe ich auch angepasst.
Code:

SELECT Format([m].[end], "dd\.mm\.yyyy") AS mEnd,
c.categoryname,
SUM([m].[effort] * 60 / 86400) AS mEffort
FROM (tblcategories AS c
INNER JOIN tblmeasurements AS m
ON c.categoryid = m.categoryid)
INNER JOIN tblofficecategories AS o
ON c.officecategory_id = o.officecategory_id
GROUP BY Format([m].[end], "dd\.mm\.yyyy"),
c.categoryname,
m.valid,
o.officecategory_id
HAVING ( ( ( SUM([m].[effort] * 60 / 86400) ) > 0 )
AND ( ( m.valid ) = true )
AND ( ( o.officecategory_id ) = 2 ) );
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nakoda, 10. Februar 2016

#8
MAGGIEMAY

MaggieMay

Hi,

Problem gelöst --> Haken setzen! :-)

MaggieMay, 11. Februar 2016

#9
NAKODA

Nakoda

Ach ja!
Danke Dir für den Tip!
Bei Bedarf werd ich ihn wieder öffnen. *wink.gif*

Nakoda, 11. Februar 2016

#10
NAKODA

Nakoda

Also ich verzweifel langsam.
Spielen wir mal such die Maus.
Ich habe in meinem Beispiel eine Table tblMeasurements und eine neu_tblMeasurements. Benutze ich die tblMeasurements als Basis für Abfrage und Formular und ich setze einen Filter, so wird dieser Ordnungsgemäß gesetzt.
Setze ich jedoch die neu_tblMasurements als Basis is Essig.
Liegt also die Vermutung nahe das an den Tabellen irgendwas anders ist.
Nur find ich einfach nicht was. An der Anpassung von strFilter muß ich auchnoch arbeiten. Aber eins nach dem anderen.

Nakoda, 11. Februar 2016

#11
MAGGIEMAY

MaggieMay

Hi Nakoda,

mit dem Hochladen einer DB ist es ja nicht getan.

Benutze ich die tblMeasurements als Basis für Abfrage und Formular und ich setze einen Filter, so wird dieser Ordnungsgemäß gesetzt.
Setze ich jedoch die neu_tblMasurements als Basis is Essig.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da wäre es doch wohl sinnvoll, beide Szenarios in der Beispiel-DB zum Testen anzubieten, oder?

MaggieMay, 11. Februar 2016

#12
NAKODA

Nakoda

Form filtern / Bericht gefiltert öffnen

Hi Maggie,

ich dachte das hätte ich.

Benutze ich die tblMeasurements als Basis für Abfrage und Formular und ich setze einen Filter, so wird dieser Ordnungsgemäß gesetzt.
Setze ich jedoch die neu_tblMasurements als Basis is Essig.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

- frmBackOffice öffnen und versuchen einen Filter zu setzen = Der Filter wird für den gwählten Monat gesetzt
- tblMeasurements in alt_tblMeasurements umbenennen
- neu_tblMeasurements in tblMeasurements umenennen
- frmBackOffice öffnen und versuchen einen Filter zu setzen = Der Filter wird für den gwählten Monat nicht gesetzt

Ich kann das aber auch noch eben zusammen frickeln.
Dachte nur so geht es schneller.
Bei dem Formular mit dem Zusatz "NEU" funktioniert es nicht.
Beim anderen schon.

Nakoda, 11. Februar 2016

#13
NAKODA

Nakoda

... aber ich muß nochmal nachhaken.
Denn ich selbst find den Fehler leider nicht.
Ein debug.print strFilter ergibt das hier: Code:

mEnd >= 01.09.2015 AND mEnd < 01.10.2015
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das sollte mir doch alles aus September anzeigen oder? Das Textfeld mEnd hat das Format Datum, kurz
mEnd kommt folgendermaßen zustande: Code:

mEnd: Format([m].[end];"tt\.mm\.jjjj")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danach muß ich ja noch gruppieren. In der Urspungstabelle hat das Feld [end] das Format Standarddatum.

Nakoda, 23. Februar 2016

#14
NOUBA

Nouba

Ändere mal Deine Abfrage so um. Code:

SELECT INT([m].[end]) AS mEnd,
c.categoryname,
SUM([m].[effort] * 60 / 86400) AS mEffort
FROM (tblcategories AS c
INNER JOIN tblmeasurements AS m
ON c.categoryid = m.categoryid)
INNER JOIN tblofficecategories AS o
ON c.officecategory_id = o.officecategory_id
WHERE ( ( ( m.valid ) = True )
AND ( ( o.officecategory_id ) = 2 ) )
GROUP BY INT([m].[end]),
c.categoryname
HAVING (( ( SUM([m].[effort] * 60 / 86400) ) > 0 ));
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nouba, 23. Februar 2016

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 3

Thema:

Form filtern / Bericht gefiltert öffnen

Die Seite wird geladen...

Form filtern / Bericht gefiltert öffnen - Similar Threads - Form filtern Bericht
User form Drucken Position
in Microsoft Excel Hilfe
User form Drucken Position: Hallo Leute Habe den Code für das Ausdrucken einer User Form.. Die User Form wird im A4 Blatt gedruckt habe aber links nur einen Abstand von einem 1 cm zum Blattrand. Wie kann ich den Abstand vom...
User Form
in Microsoft Excel Hilfe
User Form: Hallo Leute Habe ine User form dort kann ich Daten aus Tabelle Januar füllen. Habe jetzt noch 11 Tabellanblätter eingefügt Februar bis Dezember. Ist es möglich mit der gleichen User form auf...
Gruppieren von Formen und Bildern in Word 2016
in Microsoft Word Hilfe
Gruppieren von Formen und Bildern in Word 2016: Hallo! Ich versuche gerade in Word 2016 ein Bild mit einer Form zu gruppieren. Ich möchte, dass das rote Viereck mit dem Bild gruppiert wird, so dass sie zusammen gehören. Mit Strg+Mausklick...
Daten in neue Form umsortieren
in Microsoft Excel Hilfe
Daten in neue Form umsortieren: Muss eine vorhandene Excel Datei komplett neu strukturieren, und komme auf keinen grünen Zweig.
Tägliche automatische Verschiebung eines Rechtecks
in Microsoft Excel Hilfe
Tägliche automatische Verschiebung eines Rechtecks: Hallo zusammen, ich habe folgendes Anliegen und hoffe jemand kann mir dabei helfen. Wie kann ich das rote Rechteck (siehe Anhang) automatisch am jeweiligen Tag beim erstmaligen Öffnen auf den...
Excel Tabelle Spesen mit Formes nach Tagen
in Microsoft Excel Hilfe
Excel Tabelle Spesen mit Formes nach Tagen: [ATTACH] Hallo zusammen, nachdem ich beim letzten Mal so gut geholfen bekommen habe, versuche ich es nochmal mit einem neuen Thema. Mir fehlt auch etwas die Inspiration wie die Tabelle überhaubt...
Bild in Form einfügen, druckt mit "hintergrund"
in Microsoft Word Hilfe
Bild in Form einfügen, druckt mit "hintergrund": Bei der Ansicht sieht alles normal aus, aber wenn ich drucke habe ich bei den Bildern einen "Hintergrund". Habe die Bilder auch schon als .png, .jpeg abgespeichert und versucht. Auch mit der...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden