Office: (Office 2010) Variable Bedingung in Kreuztabelle für Unterformular

Hallo Alle zusammen,

ich habe ein Problem mit meiner Datenbank.
dazu habe ich schon einige Beiträge gelesen und wirklich sehr (!) viel rumprobiert.

Daher komme ich nun auf euch zu:


Es generiert sich aus einer Tabelle mit Bewerbern und deren Attributen eine Kreuztabelle über deren Abschlüsse und über Einstellung (Ja/nein) der Bewerbung.
Weiterhin gibt es u.a. das Feld "Eingang" über welches dann gefiltert werden soll.
Das Filtern an sich klappt (also als festes Kriterium).
Bau ich als Filter allerdings eine Variable ein gibt es Probleme.
Eigentlich möchte ich die Variable aus einem Textfeld meines Unterformulars auslesen, aber selbst die Pop-Up-Abfrage würde jetzt erstmal genügen.

Gebe ich also nun ein Kriterium ein und lege dies auch unter Parametern fest, werde ich (mehrfach) nach dem entsprechedem Kriterium gefragt.

Die reine Abfrage funktioniert dann hiermit.

Sobald ich aber die Abfrage in mein Formular als Unterformular einbauen möchte, bekomme ich folgende Fehlermeldung:

"Sie können weder eine SQL-Pass-Through-Abfrage noch eine Kreuztabellenabfrage, für die keine Spaltenüberschriften festgelegt ist, als Datensatzquelle eines Unterformulares oder Unterberichtes verwenden".

Seltsamerweise geht das allerdings schon, wenn ich kein Kriterium hinterlege, dann wird die Abfrage sauber im Unterformular dargestellt.
Sobald die Variable als Kriterium hinzu kommt, passt sich zwar die Abfrage selbst alleine an, im Unterformular gibt es dann aber obige Fehlermeldung.

Ich habe auch schon verschiedene fixierte Spaltenüberschriften in den Formulareigenschaften probiert, aber der Fehler bleibt.


Kann mir da jemand helfen?
Wie gesagt, ich habe bereits viel dazu gelesen, finde aber kein Trouble-Shooting oder wirkliches Workaround.

Ich würde mich sehr über eure Hilfe freuen.

:)

 

Wenn der Ausdruck Variable als Synonym für Parameter verwendet wird, könnte die FAQ 3.18 helfen.

 

Das hab ich bereits gemacht,

meinte ich mit:

sonst würde allgemein ja eine Parameterabfrage nicht funktionieren.

Das geht ja, nur wenn ich diese Abfrage, mit definiertem Parameter in ein Formular einbaue, dann kommt es zum Fehler.
Sobald ich die Parameterabfrage entferne, also die Abfrage (Kreuztabelle ohne Bedingung einbaue) geht's auch.



Also zur kurzen Übersicht:

Kreuztabelle mit "variablen" Kriterium über Pop-Up: funktioniert
Kreuztabelle ohne Kriterium in Unterformular: funktioniert
Kreuztabelle mit "Variablen" Kriterium über PopUp in Unterformular: funktioniert nicht

 

Ich nutze Kreuztabellenabfragen eigentlich nie direkt in Unterformularen, sondern erstelle einmalig ein Formular mit einer ausreichenden Anzahl von Steuerelementen, welches dann über ein Recordset seine Daten bezieht.

 

Hi, dass Recordset könnte eine Lösung sein.
Das Beispiel mit den Überlebenden wäre ja genau das, was ich suche.
Muss ich nur erstmal verstehen. Bin ja auch noch recht frisch in Access und "leider" schon sehr weit gekommen, ohne alles im Detail verstanden zu haben, grade was Basics angeht *wink.gif*
Schon mal vielen Dank für den Hint!

 

Hi nochmal,

ich hab mich nun den Tag damit beschäftigt das ganze zu verstehen und den Code entweder umzuschreiben, oder aber erstmal zu replizieren.

Irgendwie bin ich dafür aber zu blöd.


Ich bau ein Formular und setzte da als Code dann was ein um eine Kreuztabelle als Recordset anzeigen zu lassen?

Gefunden hab ich nun das (mit meinem Kreuztabellennamen):

PHP:

         Private Sub Form_Load()

Dim db As DAO.Database

Dim rst As DAO.Recordset

Set db = CurrentDb

Set rst = db.OpenRecordset("qry_21_BewAbschl", dbOpenDynaset)

End Sub


 

Im Hauptformular ist ein Unterformularsteuerelement eingebettet, welches die Daten der Kreuztabellenabfrage über das Formular frmResult darstellt.

In frmResult müssen genügend Textfeldsteuerelemente vorrätig sein, um alle Felder der Kreuztabellenabfrage darstellen zu können.

Jedem Textfeld ist noch ein Bezeichnungsfeld zugeordnet, um Überschriften individuell gestalten zu können.

Im Modul mSupport ist eine Prozedur, mit der ein solches Formular erzeugt werden kann. Kopiere CreateResultForm in Deine Datenbank und führe die Prozedur einmalig z. Bsp. im VBA-Direktbereich aus. Es wird dann ein Formular frmResult mit 64 Textfeldsteuerelementen (T1 - T64) und 64 Bezeichnungsfeldsteuerelementen (L1 - L64) angelegt. Benötigst Du mehr oder weniger Steuerelemente, setze das Argument NumTextLabelPairs beim Aufruf auf den entsprechenden Wert. Die Prozedur kann dann wieder gelöscht werden.

Jetzt erstellst Du Dein Hauptformular und fügst ein Unterformularsteuerelement im Detailbereich ein, welches als Herkunftsobjekt das soeben erstellte Formular enthält.

In meinem Beispiel wird der variable Parameter der Kreuztabellenabfrage (das ist ja das eigentliche Thema des Threads) über das Kombifeld im Kopfbereich des Hauptformulars eingestellt. Im Nach Aktualisierung Ereignis des Kombifelds wird das Befüllen des Unterformulars jeweils ausgelöst.

Im Beim Laden Ereignis des Formulars wird zunächst der Wert des Kombifelds auf 1 (All) festgelegt und die Prozedur zum Befüllen manuell angestoßen. Hier dazu der effektive Code: Code:

Die Klasse UserColumnSettings ist Beiwerk und speichert nur die vom Benutzer gesetzten Spaltenbreiten - kann als vernachlässigt werden.

Die eigentliche Arbeit wird nun in PopulateResult verrichtet. Zuerst wird der Name der Kreuztabellenabfrage als Konstante deklariert, sowie einige Variablennamen festgelegt. Code:

Jetzt wird das Kombifeld ctlState ausgewertet und der Wert in State gespeichert. Code:

Nun kann die Kreuztabellenabfrage geladen, der Parameter zugewiesen und das Recordsetset geöffnet werden. Code:

In fields_count wird die Anzahl der vorhandenen Felder gespeichert. Code:

Ich nehme im weiteren die zuvor erwähnte Klasse aus dem Code herraus. Das Unterformularsteuerelement heißt ctlResult. Auf das darin enthaltene Formular wird sich im folgenden Code bezogen. Es werden alle Steuerelementpaare, die ja eine fortlaufende Zahl als Endung haben, in einer Schleife abgearbeitet. Ziel 1 ist es, nur die Steuerelemente einzublenden, die auch im Recordset vorkommen. Dazu wird die ColumnHidden-Eigenschaft verwendet. Im nächsten Schritt wird der Steuerelementinhalt (ControlSource) auf den korrespondierenden Namen des Recordsets festgelegt bzw. gelöscht. Die Fields-Auflistung des Recordets ist 0-basiert. Ich lege dann noch optional die Textausrichtung für die Spalten fest (1 = linksbündig, 3 = rechtsbündig). Nun wird noch die Überschrift in die Bezeicnungsfelder eingetragen. Weil in meinem Fall Punkte vorkommen und diese zuvor in der Kreuztabellenabfrage durch Unterstriche ersetzt wurden, ersetze ich die Unterstriche wieder durch Punkte. Ganz am Ende wird nun das zuvor geöffnete Recordset (rs) an das Recordset des Formulars übermittelt. Code:

 

Vielen Dank für die ausführliche Erläuterung.

Leider habe ich aber schon zu beginn ein Problem:

Wenn ich den Code von "CreateResultForm" im Direktbereich mit "Sub" etc eingebe, kommt der Fehler, dass das so nicht erlaubt ist.
Ok, hab ich Sub und End Sub entfernt (wie es ja wohl richtig ist), passiert allerdings auch nach dem Enter nichts.

Dann hab ich den gesamten Code mal in ein Public Sub beim Öffnen eines Formulares kopiert bzw. versuchsweise auch mal auf einen Button in einem Formular, dann kommt der Fehler:

PHP:

         Sie haben als Einstellung der Ereignisprozedur den Ausdruck Bei Laden eingegeben. Dieser Ausdruck hat einen Fehler verursacht: Deklaration der Prozedur entspricht nicht der Beschreibung des Ereignisses oder einer Prozedur mit demselben Namen


 

Wenn Du das komplette Modul kopiert hast, ändere die Konstante in: Code:

Ansonsten wird der nachfolgende Code nicht gesehen. Siehe auch Bedingte Kompilierung.

Du kannst aber auch nur die Prozedur selbst in ein allgemeines Modul kopieren - dann hast Du damit nicht zu kämpfen.

 

Hi,

Ja, ich hatte es dann in ein eigenes Modul kopiert. Ging trotzdem nicht.
Nachdem ich die On Error-Marke inkl. Sprung rausnahm, konnte ich dann die Prozedur ablaufen lassen und es entstand auch das frmResult.

Ich hab nun nach der Anleitung zwar noch immer Fehler, aber ich versuche die erstmal zu finden um dann ein Replikat zu haben, an dem ich dann meine Anpassungen vornehmen.

Auf jeden Fall nochmal und soweit schonmal vielen vielen Dank.

Ggf. komm ich aber noch mal drauf zurück!

 

Falls es nicht weiter geht, kannst Du ja auch ein Minimal-Beispiel mit anonymisierten Daten hochladen.

 

Ich hab nun das ganze erstmal nachgebaut.
Allerdings kommt da nun mein bekannter Fehler (wie in meiner ersten eigenen Datenbank), dass fixierte Spalten für eine Kreuztabellenabfrage fehlen, was ja genau durch diese Form gelöst werden sollte.

Ich hänge daher mal meinen "Nachbau" an.
Irgendwas scheint da ja nicht koscher... ;(


Ansonsten häng ich auch gerne mein Problem meiner Datenbank an.
Hab das mal um so gut wie alles bereinigt und ein paar Dummy-Daten ergänzt.
Ggf. ist das ja viel einfacher zu lösen, als der Fall Titanic.

Ich habe also eine Tabelle 00_Bewerber
Darin sind alle (und jetzt auch z.T. unnötigen) Daten.

Daraus habe ich eine Abfrage gebaut, die mir nur noch anzeigt:
Abschluss, Eingangdatum, Ob der Vertrag angenommen wurde und die "von bis" Spalten, die mehr zu Versuchszwecken waren.

Ebenfalls habe ich zwei Kreuztabellenabfragen gebaut.
(qry_21_BewAbschl und qry_21x_BewAbschl)
Die erste gibt alles in einer Kreuztabelle aus, die zweite ist noch um die Bedingung erweitert, dass der Eingang nach einem Parameter sein muss. (VonVar), dieser wird auch per PopUp abgefragt.

Im Formular (frm_21_BewAbschl) sind dann beide Abfragen eingebunden.
Die untere ist die ohne Bedinungen, die obere mit.
Da es hier eine Bedingung gibt, kommt das PopUp-Fenster (warum auch imemr 2 mal) und dann der Fehler, womit die Abfrage nicht angezeigt wird.
Und genau dieser Fehler kommt ja auch im Titanic-Beispiel-Nachbau.

Im Grunde möchte ich also über die Felder im Formular den Bereich als Bedingungen vorgeben, in dem Sich das Eingangsdatum befinden muss und darüber die Kreuztabelle befüllen.

 

Ich habe ein eigenes Formular erstellt, weil Dein Formular nicht auf meinem 13" Notebóok Platz findet.

PS: Über die verwendeten Namen (Sonder- und Leerzeichen, sowie führende Ziffern in Tabellennamen) und die Verwendung von Nachschlagefeldern solltest Du noch einmal nachdenken.

 

Wow!
Vielen vielen Dank!
Das hilft mir so ungemein weiter.


Ja, das wurde mir mit der Zeit dann auch klar.
Ist mein erste Access-Arbeit überhaupt und habe versucht schnell zum Ergebnis zu kommen. Quasi ein Lernprozess der hier gut abgebildet ist *biggrin.gif*
Hatte begonnen und alles erst durch learing-by-doing angefangen zu verstehen und dann erst einige Probleme und Konventionen dadurch kennengelernt.
Werde wohl einiges jetzt auch noch anpassen, aber bei der nächsten Datenbank wird sowas dann auch von Beginn an richtig gemacht.

Aber nochmals herzlichsten Dank!

 

Hallo nochmal.

Leider ist mir noch ein Problem aufgefallen. (Hab nun aber sonst soweit alles fertig und es funktioniert bis auf dieses Punkt auch alles)

In dem eigentlichen Ergebnisformular (frmMain) gibt es "doppelte" Abschlüsse.
In deiner rückgesendeten Datenbank ist das auch schon zu sehen.

Wenn man also in frmMain direkt auf z.B. den 21.10.2016 geht, erhält man 2x M.Sc. als Abschluss. (Ich dachte erst, das wäre eine Problematik des Eintrages in der Urtabelle, lässt sich aber mit jedem anderen Abschluss reproduzieren)

Habe versucht mir das anhand der Kreuztabelle anzuschauen, aber nicht das wirkliche Problem gefunden. Scheint doch alles richtig auf Gruppierung zu sein?
Vielleicht weißt du da direkt schon das Problem?