Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

 [Access 2003] Tabellen zusammenlegen
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
lagenie
Newbie
Newbie


Anmeldedatum: 15.04.2008
Beiträge: 10

BeitragVerfasst am: 29.04.2008, 20:22 Nach oben

Hallo,

Meine Datenbank beinhaltet folgende Tabellen:

Tabelle Person Tabelle Kosten Tabelle Zahlungen
p_nr Name p_nr Kosten p_nr Zahlung
11570 Ralf 21970 700 22357 400
21970 Müller 11570 1000 11570 2000
22357 Florian
30529 Michael

Die drei Tabellen möchte ich zur eine Tabelle zusammenführen so dass Sie am ende folgenden Aufbau hat:

p_nr Name Kosten Zahlung
11570 Ralf 1000 2000
21970 Müller 700 0
22357 Florian 0 400
30529 Michael 0 0

Die Tabelle Person enthält alle p_nr die auch in den anderen Tabellen auftauchen.

Das Problem habe ich mit Anfügeabfragen zulösen versucht. Es war aber nicht ganz das was ich haben wollte. Ich hoffe Jemand kann mir dabei behilflich sein.
Danke
Benutzer-Profile anzeigenPrivate Nachricht senden
jens05
Newbie
Newbie


Anmeldedatum: 16.04.2008
Beiträge: 27

BeitragVerfasst am: 29.04.2008, 23:15 Nach oben

Hallo,
warum sollte das eine Tabelle weden?
Genügt nicht eine Abfrage zur Darstellung?
Als Beispiel zur Darstellung
Code:
SELECT P.p_NR, P.Person, K.Kosten, Z.Zahlung
FROM (Person As P
        LEFT JOIN Kosten As K
         ON P.p_NR = K.p_NR)
      LEFT JOIN Zahlung As Z
      ON P.p_NR = Z.p_NR;
Benutzer-Profile anzeigenPrivate Nachricht senden
lagenie
Newbie
Newbie


Anmeldedatum: 15.04.2008
Beiträge: 10

BeitragVerfasst am: 04.05.2008, 15:11 Nach oben

Hallo,

die Abfrage ergab genau die richtige Darstellung die ich haben wollte. Nach der Abfrage arbeite ich mit der Darstellung weiter und berechne aus den Zahlungen und den Kosten eine Kennzahl!!!
Dies ist mir nicht immer gelungen da viele Zellen leer waren.
Um die Zellen mit Nullen zufüllen habe ich folgende Funktion geschrieben:
Function Nullsetzen(Zelle AS Double)
If Zelle<>"" Then
Nullsetzen=Zelle
Else
Nullsetzen=0
End If
End Function

Diese Funktion rufe ich in der Abfrage mit auf. Es erfolgt aber eine Fehlermeldung die auf die 2. Zeile If Zelle<>"" Then zeigt.

Ich würde gern wissen wie ich sonst die leeren Zellen mit Nullen füllen kann.
Danke

Gruß Fouad
Benutzer-Profile anzeigenPrivate Nachricht senden
lagenie
Newbie
Newbie


Anmeldedatum: 15.04.2008
Beiträge: 10

BeitragVerfasst am: 05.05.2008, 18:52 Nach oben

Hallo,

ich weiss mitlerweile warum es mit meine Funktion nicht geklappt hat.
Für die Variable Zelle musste ich den Datentyp von Double in Variant verändern. Der Datentyp Double schliesst keine leeren Felder ein!!!
Benutzer-Profile anzeigenPrivate Nachricht senden
jens05
Newbie
Newbie


Anmeldedatum: 16.04.2008
Beiträge: 27

BeitragVerfasst am: 05.05.2008, 22:21 Nach oben

Hallo,
anstatt der uneffizienten Funktion "Nullsetzen", sollte die NZ() Funktion performanter laufen. Wink
Code:
    Debug.Print Nz([MeinFeld],0)
Nz wandelt NULL in eine bestimmte Zeichenfolge, hier in 0. Smile
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge Etiketten Seriendruck: Problem bei se... aimz Microsoft Word Hilfe 0 12.08.2008, 19:14 Letzten Beitrag anzeigen
Keine neuen Beiträge Tabellen in Word einfügen Til Microsoft Word Hilfe 0 09.08.2008, 21:32 Letzten Beitrag anzeigen
Keine neuen Beiträge Tabellen mit Filter kopieren in neue ... Ahasihe Microsoft Excel Hilfe 4 08.08.2008, 10:22 Letzten Beitrag anzeigen
Keine neuen Beiträge Tabellen schützen maxseidel Microsoft Excel Hilfe 2 01.08.2008, 11:04 Letzten Beitrag anzeigen
Keine neuen Beiträge Brauche Hilfe bei vergleich von zwei ... whitefox Microsoft Excel Hilfe 2 24.07.2008, 16:33 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de