Office: (Office 2000) Abfrageergebnis NUR höchstes Datum

don_mosquito · 23. Oktober 2005

Hi, ich habe schon das Forum durchsucht und einige nützliche Tipps gefunden, dafür schonmal danke! *wink.gif*

Aber es funktioniert für mich noch nicht zu 100%

Ich habe eine Tabelle: Calls

ID Date Customer
439 25.09.2005 0001291660
441 25.07.2005 0001291660
442 25.10.2005 0001291660

und ich versuche es in einer Abfrage folgendermaßen zu filtern:

Check wann der letzte Besuchseintrag (Tabelle Kd_Besuchsfolge) war, zerleg ihn nach Monat und vergleich ob der Monat um X hinter dem aktuellen Datum zurückliegt.

Code:

SELECT Call.Date, Month([Date]) AS GMON, Call.CustomerID, Kd_Besuchsfolge.Besuchsfolge
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert... nur ein Problem habe ich:

ID Date Customer
439 25.09.2005 0001291660
441 25.07.2005 0001291660

liegen beide z.B. 1 Monat hinter dem aktuellen Datum zurück... d.h. ich bekomme den Kunden 2 mal ausgegeben obwohl mir ja EIN Termin reichen würde.

Wie bekomme ich mit SQL oder der Abfragenoberfläche die Doppeleinträge raus?

Danke für eure Hilfe schonmal

:)

Siegfried · 25. Oktober 2005

ich denke zum einen kannst du in der abfrage über rechte maustaste - eigenschaften - duplikate anzeigen - ja oder nein einstellen.
oder mit kriterium maxdatum müsste es auch gehen (siehe sqltext im code).
desweiteren habe ich in einer bspdatenbank "Bestellabwicklungen" das letzte (höchste) datum in die tabelle Kunden beim schließen mit folgendem code übergeben:

Code:

Private Sub Form_Close()
Dim db As Database
Dim rec As Recordset
Dim bestdat As Date

Set db = CurrentDb

sqltext = "SELECT Max(Bestellungen.Bestelldatum) AS [MaxBestelldat] "
sqltext = sqltext & " FROM Bestellungen "
sqltext = sqltext & "WHERE (((Bestellungen.[Kunden-Nr])=" & Me![Kunden-Nr] & "));"

Set rec = db.OpenRecordset(sqltext)

If Not IsNull(rec!MaxBestelldat) Then
bestdat = rec!MaxBestelldat
Forms![Bestellungen nach Kunden]![LetztesDatum] = bestdat
End If
Forms![Bestellungen nach Kunden].Refresh
rec.Close
Set rec = Nothing
db.Close

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

don_mosquito · 25. Oktober 2005

Ich bin nicht so der VBS Checker... deswegen arbeite ich meist mit den Kontexten und EInstellungen...

ich denke zum einen kannst du in der abfrage über rechte maustaste - eigenschaften - duplikate anzeigen - ja oder nein einstellen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Funktion geht aber nicht so recht weil er bei mehreren Auswahlfeldern der Abfrage nicht die Eindeutigkeit feststellen kann.
Sprich er tut bei der Auswertung nichts anderes als ohne die Einstellung...

Gibt es denn keinen SQL Befehl zum vorfiltern?
So in der Art von

Select.... Where Kunde + Datum = Höchstes Datum Und Monat vom Datum = Date() -1 ?

Nouba · 25. Oktober 2005

Das höchste Datum im Vormonat je Kunde sollte so ermittelbar sein.

Code:

SELECT
Max([C].[Date])
, C.CustomerID
FROM Calls AS C
WHERE Year([C].[Date]) * 12 + Month([C].[Date]) = Year(Date()) * 12 + Month(Date()) - 1
GROUP BY C.CustomerID
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

don_mosquito · 26. Oktober 2005

Yaay es funktioniert *Smilie (natürlich funktioniert es *wink.gif* )

Ich habe es noch ein wenig dynimisch umgestrickt so dass es für mich passt.
Im Grunde sind es nun 2 Abfragen, eine vorselektion in der ich das höchste Datum pro Kunden raussuche wie Nouba es vorgeschlagen hat:

Code:

SELECT Max(C.Date) AS Ausdr1, C.CustomerID AS Ausdr2
FROM Call AS C
WHERE (((Year([C].[Date])*12+Month([C].[Date]))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2000) Abfrageergebnis NUR höchstes Datum

Abfrageergebnis NUR höchstes Datum

Abfrageergebnis NUR höchstes Datum

Abfrageergebnis NUR höchstes Datum

Abfrageergebnis NUR höchstes Datum - Similar Threads - Abfrageergebnis höchstes Datum

Abfrageergebnis soll keine doppelten Werte enthalten

Excel bedingte Formatierung - höchster und zweithöchster Wert

Steuerelemente (Textfelder) mit Abfragen

Gruppierung auf ein Abfrageergebnis

Ausschluss Daten aus Abfrageergebnis

Chinesische Zeichen als Abfrageergebnis

Abfrageergebnis Wahr/Falsch in 0/1 umwandeln