Hilfe bei Kombifeld und Formular

[MaggieMay]

Hi,

zeig doch bitte mal den SQL-Code der dem Bericht zugrunde liegenden Abfrage.

PS:
Beziehungen sollten grundsätzlich mit referentieller Integrität eingerichtet werden, aber damit hat der Fehler hier nichts zu tun.

[Dr.Cornwallis]

Code [Auswählen] Erweitern

SELECT Korridor_Daten.PersNr, Korridor_Daten.Mitarbeiter, Rohdaten.[OrgEinh#], Rohdaten.Kostenstelle, Rohdaten.[DM Bereich], Korridor_Daten.Anzahl
FROM Korridor_Daten INNER JOIN Rohdaten ON Korridor_Daten.OrgEinh = Rohdaten.[OrgEinh#];

[MaggieMay]

Wo in der Abfrage siehst du das Datenfeld ZUBA??

[Dr.Cornwallis]

Das hätte ich eigentlich eingefügt und den Haken bei "anzeigen" entfernt, da es im Bericht überflüssig wäre, warum es jetzt nicht im SQL Text angezeigt wird, verstehe ich auch nicht.
Heißt das also die ZUBA sowie die Periode müssen angezeigt werden(in der Query)?

[MaggieMay]

warum es jetzt nicht im SQL Text angezeigt wird, verstehe ich auch nicht.

Naja, vielleicht weil du den Haken rausgenommen hast?! 

Natürlich müssen die Datenfelder nach denen du filtern willst auch in der Abfrage enthalten sein.

[Dr.Cornwallis]

Trotzdem funktioniert der Filter nicht, auch wenn ich alles einblende... Öffnet man einfach die query, passt die Beziehung, also daran kann es nicht liegen.
Der Filter wird einfach nicht akzeptiert/genutzt...
Ich bin normalerweise kein Trinker aber heute brauch ich einen Schnaps :-)

[MaggieMay]

Dann zeig doch bitte nochmal den aktuellen Stand deines Codes (SQL + VBA).

[Dr.Cornwallis]

Hallo,

so weit so gut, jetzt funktioniert die Auswahl im Formular:

Code [Auswählen] Erweitern

DoCmd.OpenReport "test_Kreuztabelle2", acViewPreview, WhereCondition:="ZUBA = " & Me!txtOrgEinh & " AND Periode BETWEEN #" & Format(datvon.Value, "yyyy\/mm\/dd") & "# AND #" & Format(datbis.Value, "yyyy\/mm\/dd") & "#"


Nun habe ich eine Kreuztabelle erstellt, damit das Datum als Spaltenüberschrift angezeigt wird, jetzt zum nächsten Problem:

MIt dem Bericht der aus der Kreuztabelle entsteht, funktioniert die Auswahl im Formular wieder nicht, meine Vermutung:

Er findet die Datumswerte nicht da diese jetzt als Überschrift dienen.

Kann man dies irgendwie umgehen?


Danke!

Gruß

Dr.

[DF6GL]

Hallo,

möglicherweise klappt es deshalb nicht:



DoCmd.OpenReport "test_Kreuztabelle2", acViewPreview, WhereCondition:="ZUBA = " & Me!txtOrgEinh & " AND Periode BETWEEN #" & Format(Me!datvon, "yyyy\-mm\-dd") & "# AND #" & Format(Me!datbis, "yyyy\-mm\-dd") & "#"

[MaggieMay]

Hi,

ich denke die Vermutung, dass der auf der Kreuztabellenabfrage basierende Bericht nicht mehr nach dem Datum gefiltert werden kann, ist schon ganz richtig. Die Filterung müsste also vor oder in der KT-Abfrage passieren.

Wenn du dazu Hilfe brauchst, zeige bitte den SQL-Code der KT-Abfrage.

[Dr.Cornwallis]

Hallo,
@df6: du meinst also ich soll die rot markierten Zeichen entfernen?

@MaggieMay: habe ich dann nicht wieder das Problem dass die Daten nicht aktualisiert werden?
Es kommen täglich 2000 neue Datensätze in den Table.

Dieses Projekt raubt mir noch den letzten Nerv!

Gruß

Dr.

[MaggieMay]

@Dr.:
Ich kann dir nicht ganz folgen. Was hat das Filtern einer Kreuztabellenabfrage bzw. eines Berichts mit der Aktualisierbarkeit einer Tabelle zu tun?

[Dr.Cornwallis]

Damit das neue Datum quasi autom. im Bericht angefügt wird.
Es hat keinen Sinn, ihr gebt euer Bestes um mir zu helfen, aber ein komplettes Projekt in einem Forum zu realisieren ist einfach unmöglich.

Werde mal mit dem Chef reden dass so etwas eine Zumutung für jemanden ist, der mit dieser Materie keinerlei Erfahrung hat.

Gruß

Dr.

[Dr.Cornwallis]

Hallo,
@df6: du meinst also ich soll die rot markierten Zeichen entfernen?

@MaggieMay: habe ich dann nicht wieder das Problem dass die Daten nicht aktualisiert werden?
Es kommen täglich 2000 neue Datensätze in den Table.

Dieses Projekt raubt mir noch den letzten Nerv!

Gruß

Dr.

Sorry, hab ich vorhin übersehen, hier der Code:

Code [Auswählen] Erweitern

TRANSFORM Sum(Korridor_Daten.Anzahl) AS SummevonAnzahl
SELECT Korridor_Daten.Mitarbeiter, Rohdaten.ZUBA
FROM Rohdaten INNER JOIN Korridor_Daten ON Rohdaten.[OrgEinh#] = Korridor_Daten.OrgEinh
WHERE (((DateSerial(Year([Periode]),Month([Periode]),1))=DateSerial(Year(Now()),Month(Now()),1)))
GROUP BY Korridor_Daten.Mitarbeiter, Rohdaten.ZUBA
PIVOT DateAdd("d",-(Weekday([Korridor_Daten]![Periode],1))+IIf(Weekday([Korridor_Daten]![Periode],7)=1,1,8),[Korridor_Daten]![Periode]);


DatAdd und DatSerial hat nicht geholfen, bzw. erreiche ich damit nicht das gewünschte Ergebnis.


Gruß

Dr.

[DF6GL]

Hallo,

nein, nicht entfernen, sondern korrigieren.....

wobei sich das nur auf richtige Formatierung eines Datumswertes bezieht und nicht unbedingt auf die Lösung Deines Problems.


IN Sql muss entweder das USA-Format oder das ISO-Format verwendet werden:

USA:  #31/12/2016#
ISO:   #2016-12-31#