Hallo erst mal,...
Habe da ein Problem das denke ich auf eine NZ() funktion hinaus laufen wird.

Ich habe eine Abfrage(A) die mir aus mehreren Abfragen(B,C,D;...) einen Summe-Wert holt.
wenn einer dieser Summen-Werte leer ist, weil in dieser Abfrage(D) keine Werte sind, zeigt mir Abfrage(A) für diesen Wert nicht 0 an sondern zeigt statt dessen überhaupt keine Werte mer an.

Mein Plan ...
Die Abfrage denkt sich:
da steht nicht 0 sondern null ... oder "" ...
und aus null oder "" kann ich keine Summe Bilden!
also mach ich mal vorsichtshalber garnix!

Jetzt will ich aber die Werte aus Abfrage(A) in einem Formular, in verschiedenen Textfeldern anzeigen lassen.

Formular denkt sich ...
Wenn Abfrage(A) mir keine Werte zeigt ...
brauch ich auch meine Textfelder nicht zu zeigen.

Und mein Formular verschwindet!

muss ich die einzelnen Abfragen(B,C,D...) mit NZ([summevonPreis],0) auf nicht NULL sondern 0 setzen? Habe NZ() gegooglet aber komme irgendwie nicht klar.
Wo muss ich das denn hin Schreiben?

Hoffe auf Hilfe ...
Gruß Gabriel

Hi gabriel,

denkende Abfragen und Formulare. Ich wusste gar nicht, dass die vernunftbegabt sind.

Zunächst einmal interessiert es mich, wie die Abfragen B, C und D mit A verknüpft sind. Es gibt in den Eigenschaften der Verknüpfung die Möglichkeit, alle Felder von Abfrage A anzeigen zu lassen und nur diejenigen von B, die den gleichen Wert im Verknüpfungsfeld haben.

Vielelicht liegt da der Knackepunkt schon.
Ansonsten verwendest Du die NZ-Funktion, indem Du im Abfragen-Editor in eine Spalte einträgst:
SummeB: nz(Summenfeldname von Abfrage B)
Der Name vor dem Doppelpunkt wird in der Abfrage dann angezeigt. Hinter dem Doppelpunkt steht die Formel, die ausgeführt wird.

Gruß Shai

Hallo Shai ...
meine Abfragen sind eigentlich garnicht verknüpft!
Ich habe 18 Abfragen aus einer Tabelle.
Abfrage(B):
SELECT Sum([Abfrage STK und BFF].Preis) AS BG1F3
FROM [Abfrage STK und BFF]
GROUP BY [Abfrage STK und BFF].Baugruppe, [Abfrage STK und BFF].Funktion
HAVING ((([Abfrage STK und BFF].Baugruppe)=1) AND (([Abfrage STK und BFF].Funktion)=3));

und eine Abfrage die aus den 18 eine macht
Abfrage(A):
SELECT [BG1 FK1].BG1F1, [BG1 FK2].BG1F2, [BG1 FK3].BG1F3 ...
FROM [BG1 FK1], [BG1 FK2], [BG1 FK3] ... ;

und wenn ein Preis fehlt weil beispielsweise kein Baugruppe 1 und Funktion 3 Kriterium zu trifft...

In Punkto nz() schreibt er mir trotzdem ein leeres Feld

Ich bin ratlos und hänge schon bestimmt ne Woche daran ohne auch nur einen Schritt weiter zu kommen

Hi gabrial,

Diese Schwierigkeiten kenne ich zur Genüge. So aus der Entfernung kann ich da wenig machen.
Ich habe es meistens irgendwie geschafft, dass die Untersummenabfragen für jedes Kriterium immer einen Wert zeigen, aber wie das hinzubiegen ist, sieht man meist erst, wenn man das Konstrukt vor Augen hat. Vielleicht müsste man sogar an der Tabellenstruktur was machen.

Was passiert eigentlich, wenn Du in Abfrage A die Summen im Format
Anzeigename: nz(SummenWert;0)
anzeigst?

In letzter Zeit bin ich bei allzu komplizierter Struktur dazu übergegangen, mit Hilfe von VBA im Arbeitsspeicher die Matrix aufzubauen und sie dann in eine neue Tabelle wegzuschreiben.

Liebe Shai,
na dann bin ich ja schon mal beruhigt, dass ich mich wohl doch nicht soo doof angestellt habe...

das mit der nz() klappt immernoch nicht ...
kann ich nicht in Abfrage(B,C,D,...) sagen wenn summe = "" dann 0 ?
oder sowas in der Richtung? Wenn ja wie müsste ich das denn schreiben? Und wohin? in Kriterien?

In Pumkto VBA:
kann ich da nicht so was in Richtung
Dim BG1F1 as Double
BG1F1 = select ... sum() .... From ... where ... like ...

und das dann einfach in meinem Formular aufrufen?

Wie schreibe ich denn das?

Ich bin sooooo Ratlos ...
und das ist für eine Studienarbeit die ich Samstag abgeben muss

Gabriel hat geschrieben:Liebe Shai,
Ich bin sooooo Ratlos ...
und das ist für eine Studienarbeit die ich Samstag abgeben muss

Dann hab ich ja noch 2 Tage Zeit.
Bin grad auf der Arbeit. Mal gucken wann Zeit ist.

Gruß Shai

das wäre soooo super ...

Hi Gabriel,

ich hab mir jetzt mal Deine Abfragenstruktur zur Gemüte geführt.
Wie viele Baugruppen und Funktionen gibt es eigentlich?
18 Abfragen? Hmm 6 Baugruppen und 3 Funktionen, oder umgekehrt?

Was passiert, wenn jemand sich ne neue Baugruppe oder eine weitere Funktion ausdenkt, dann kannst du alles übern Haufen werfen.

Hast Du schon einmal eine Kreuztabelle probiert? Als Spaltenüberschriften die Baugruppen und als Zeilenüberschriften die Funktionen oder umgekehrt. Da sollte genau das rauskommen, was Du willst und das ist flexibel gegenüber der Anzahl von Baugruppen und Funktionen.
Als Basis müsstest Du diese Abfrage "[Abfrage STK und BFF]" nehmen.

Ich glaube, da kommen wir ohne VBA aus.

Gruß Shai

Du bist klasse !!!
genau, 6 Baugruppen 3 Funktionen ...
Also mein Programm ist für 6 Baugruppen und 3 Funktionen ausgelegt.
Es ist dazu da Produkte unter konstruktiv relevanten Gesichtspunkten, Preislich zu Betrachten.
"Funktionsbezogene Kostenanalyse"
Dem Benutzer stehen nur 6 Baugruppen und 3 Funktionen zur Verfügung, die er frei benenen kann.
Alles ist sagen wir mal "Formular gesteuert".
Der Benutzer sieht nur Formulare Textfelder und Berichte.
Tabellen und Abfragen laufen nur im Hintergrund.
Will außerdem das Programm mittels Access-Runtime laufen lassen.
Und den Runtime-Rahmen mittels VBA ausblenden. (Skript aus dem I-Net aptippen )

Von daher würde eine Kreuztabelle denke ich nicht ins Bild passen.
Aber du hast richtig erkannt das eins meiner Formulare bzw. Tab-Pages aussieht wie eine Kreuztabelle.

Fände die Lösung mit VBA klasse .... ua. aus lerntechnischen Gründen.
Habe auch schon mit einer API funktion heißt das glaube ich Benutzer und Computernamen auslesenlassen.

Und mit VBA einen Bericht mit verschieden Daten öffnen lassen.
so im style ... nach passendem Modul googlen und anpassen.

finde nur nix für dieses Problem

Hi Gabriel!

Naa guuuut. *mich mal breitschlagen lass*
Um die berechneten Summen auf einem Formular darzustellen, muss dieses wie eine Matrix aufgebaut werden:

Code: Alles auswählen

            Funktion1 Funktion2 Funktion3
Baugruppe1  =SB(1,1)  =SB(1,2)  =SB(1,3)
Baugruppe2  =SB(2,1)  =SB(2,2)  =SB(2,3)
Baugruppe3  =SB(3,1)  =SB(3,2)  =SB(3,3)
Baugruppe4  =SB(4,1)  =SB(4,2)  =SB(4,3)
Baugruppe5  =SB(5,1)  =SB(5,2)  =SB(5,3)
Baugruppe6  =SB(6,1)  =SB(6,2)  =SB(6,3)

Du siehst in den Schnittpunkten von Baugruppe und Funktion jeweils eine Formel stehen. Ich habe sie aus Platzgründen "SB" genannt, das steht für "Summe berechnen". Als Parameter für die Funktion wird jeweils die Nummer der Baugruppe und die Nummer der Funktion mitgegeben.
Die Formel setzt Du unter Eigenschaften als SteuerelementInhalt in die Matrixfelder hinein.

Nun schreibst Du im VBA-Editor folgenden Code:

Code: Alles auswählen

Private Function SB(intBaugruppe as Integer, intFunktion as integer) as Double
On Error Goto Err_SB ' Fehlerabfangroutine
   Dim Dbs as DAO.Database
   Dim Rs as DAO.Recordset
   Dim dblSumme as Double
   Dim strSQL as String
   
   ' SQL-String zusammenbauen. & Zeichen verbindet 2 Strings, _ = Zeilenumbruch
   ' die Übergabeparameter Baugruppe und Funktionwerden in den SQL Befehl eingearbeitet
   strSQL = "SELECT Sum([Abfrage STK und BFF].Preis) AS SumWert " & _
                " FROM [Abfrage STK und BFF] " & _
                " GROUP BY [Abfrage STK und BFF].Baugruppe" & _
                               ", [Abfrage STK und BFF].Funktion " & _
                " HAVING ((([Abfrage STK und BFF].Baugruppe)=" & intBaugruppe & ") " & _
                " AND (([Abfrage STK und BFF].Funktion)=" & intFunktion & "));"
   
   Set Dbs = CurrentDB  ' Datenbank ist die aktuelle
   Set Rs = Dbs.OpenRecordset (strSQL,dbOpenDynaSet) ' Recordset ist die obige SQL-Abfrage
   
   With Rs
      If Not (.EOF and .BOF) then ' Wenn der Recordset Daten enthält
        dblSumme = !SumWert
     Else
        dblSumme = 0
     End If
   End With

   ' Recordset und Datenbank schliessen
   Set Rs = Nothing
   Set Dbs = Nothing

   ' Funktionsergebnis 
   SB = dblSumme

Exit_SB:
   Exit Function

Err_SB:
   MsgBox Err.Description
   Resume Exit_SB

End Function

Das wärs eigentlich schon. Ich geb keine Gewähr auf Tippfehler.
Wichtig ist, dass unter Verweise "Microsoft DAO 3.6 Object Library" geladen wird. Im VBA-Editor findet sich der Punkt "Verweise" im Menü Extras.

Du kannst übrigens auch mit der Runtime Kreuztabellen öffnen.

Gruß Shai