Kreuztabellenabfrage unter Kriterien variabilisieren

[ToBu]

Hallo Franz! Leider wird trotz Einfügen von Column(1)... noch immer nicht gefiltert, d.h. es werden keine Werte zurückgebracht!
Bin ratlos!
Viele Grüße ToBu

[DF6GL]

Hallo,

lad die DB hier hoch, komprimiert/repariert, kompiliert und gezippt.


Vielleicht liegt es auch an "fixierten Spaltenüberschriften"

[ToBu]

Hallo Franz,
ich hoffe, du kannst die von mir gezippte db öffnen. Habe dort 2 Versionen von KT erstellt. Beide nicht wirklich zufriedenstellend!
Bin auf deine Antwort gespannt. Gruß ToBu

[DF6GL]

Hallo,

anbei...

[ToBu]

Hallo Franz,
einfach genial! Wäre ich als Anfänger nie drauf gekommen! Herzlichen Dank! Muss mich unbedingt mehr mit dem Thema Module beschäftigen und viel lernen! Werde jetzt meine db daraufhin umstellen. Hoffentlich klappt das auch bei mir! Nochmals herzlichen Dank und viele Grüße,
ToBu.

[DF6GL]

Hallo,

ich hab das Ding doch schon bei #9 gepostet.....

[ToBu]

Hallo Franz,
habe noch eine weitere Frage zur Where-Klausel:
Es gibt in meinem Formular auch noch eine weitere Filterung, die die Auswertungen begrenzt über ein KF Basisjahr.
Leider wirkt der Filter nicht! Was ist nachstehend verkehrt?:

Private Sub Befehl15_Click()
Dim Basisjahr As Long
Dim stDocName As String
Dim strSQl As String
strSQl = "TRANSFORM Sum(Basis1.[Import-t]) AS [SummevonImport-t]" & _
" SELECT Basis1.Jahr, Basis1.[Land(engl)]" & _
" FROM Basis1  Where Basis1.[Land(engl)]  = '" & Me!Wahlland & "' or " & CInt(Me!Wahlland = "Alle") & _
" AND Basis1.Jahr >= '" & Me!Basisjahr & "'" & _
" GROUP BY Basis1.Jahr, Basis1.[Land(engl)]" & _
" PIVOT Basis1.[HS-Nr]"
CurrentDb.QueryDefs![Basis1-Import-t_Kreuztabelle].SQL = strSQl
stDocName = "Silk and Silk Products-Import-t"
DoCmd.OpenReport stDocName, acViewPreview
End Sub

Gruß ToBu

[DF6GL]

Hallo,
falsch ist die Umschließung von "Me!Basisjahr" mit Hochkommata.

[ToBu]

Habe die ' ' herausgenommen, aber es wird dennoch nicht gefiltert:
" AND Basis1.Jahr >= " & Me!Basisjahr & " " & _

werden auch noch die beiden " " weggenommen, kommt eine Fehlermeldung: fehlender Ausdruck oder erkennt ME!Basisjahr nicht als gültigen Feldnamen.
Könntest du bitte die Zeile einmal mit Filterungsfunktion schreiben?
Vielen Dank!
Gruß ToBu

[DF6GL]

Hallo


.
.
" AND Basis1.Jahr >= " & nz(Me!Basisjahr,Year(Date))  &  _
.
.



sollte funktionieren, sofern "Basisjahr" ein Formular-Textfeld ist und eine Jahreszahl enthält.  Die nz()-Funktion sorgt nur dafür, dass das aktuelle Jahr benutzt wird, wenn "Basisjahr" leer ist. Ansonsten gäbe es in diesem Fall eine Fehlersituation.


Auf "Jahr" als Benennung für ein Tabellenfeld würde ich verzichten, weil es zu Komplikationen mit der Jahr()-Funktion (Year()-Funktion)  kommen könnte.

[ToBu]

Es funktioniert leider auch nicht!
Basisjahr ist der Name in einem Kombinationsfeld, dessen Inhalt numerische Jahreszahlen sind.
Kann es sein, dass in einer Kt-Abfrage nur eine begrenzte Anzahl von Bedingungen realisiert werden?
Im Kt-Abfrageentwurf zeigen sich mittlerweile 3 Bedingungsfelder: für das Wahlland, 0 <> falsch und Basisjahr.
Mir scheint, dass mehr als 2 Bedingungen nicht ausgeführt und somit alle Jahre ungefiltert ausgegeben werden.
Gruß ToBu

[DF6GL]

Hallo,

nein, die Anzahl der Kriterien spielt hier keine Rolle.

Zeige mal die Datensatzherkunft des Kombis.


PS:

sehe gerade, dass da eine OR-Verknüpfung vorhanden ist. Diese OR-Bedingung muss geklammert werden:

" FROM Basis1  Where (Basis1.[Land(engl)]  = '" & Me!Wahlland & "' or " & CInt(Me!Wahlland = "Alle") & _
") AND Basis1.Jahr >= '" & Me!Basisjahr & "'" & _

[ToBu]

Hallo Franz,
ja, das ist es ! 100 Punkte!!!
Jetzt läuft es optimal!
Vielen Dank für Deine Hilfe!
Gruß ToBu.