Office: (Office 2016) Jubilare filtern

magic1708 · 9. Mai 2020

Hallo,

wie muss ich es anstellen, wenn ich Jubilare auf einem Geburtsdatum errechnen und filtern möchte.

Ich möchte zum schluss eine Liste haben mit Einträgen von Personen, die im aktuellen Jahr 30,40,50, 60 etc werden

Code:

SELECT
[Mitglied].[Name] & ", " & [Mitglied].[Vorname] AS username,
MITGLIED.Geburtstag,
ADRESSE.STRASSE,
ADRESSE.HAUSNR,
ADRESSE.PLZ,
ADRESSE.ORT,
FucAlter([Mitglied].[GEBURTSTAG]) AS [Alter]

FROM (EATRITT INNER JOIN MITGLIED ON EATRITT.MITGLNR = MITGLIED.MITGLNR) INNER JOIN ADRESSE ON MITGLIED.ADRESSGRP = ADRESSE.ADRESSGRP

WHERE ((FucAlter([Mitglied].[GEBURTSTAG])=70) AND ((EATRITT.FESTEBEITRAGSART) Is Null) AND ((EATRITT.ORGID)=1) AND ((EATRITT.AUSTRITT) Is Null) AND ((EATRITT.AKTIV)="J")) OR (((EATRITT.FESTEBEITRAGSART) Not Like "Passiv" And (EATRITT.FESTEBEITRAGSART) Not Like "Z_Beit") AND ((EATRITT.ORGID)=1) AND ((EATRITT.AUSTRITT) Is Null) AND ((EATRITT.AKTIV)="J"));
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Function FucAlter(xdat As Date) As Integer
FucAlter = DateDiff("yyyy", xdat, Now()) + ((Format(Now(), "mmdd") < (Format([xdat], "mmdd"))))
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank

:)

ebs17 · 10. Mai 2020

Geburtstagsliste sortiert mit Altersberechnung und Hervorhebung von runden Geburtstagen

magic1708 · 10. Mai 2020

Hallo,

danke für den Link,
ich bin mal diesem Beispiel gefolgt!
Code:

SELECT
[Mitglied].[Name] & ", " & [Mitglied].[Vorname] AS username,
MITGLIED.Geburtstag,
ADRESSE.STRASSE,
ADRESSE.HAUSNR,
ADRESSE.PLZ,
ADRESSE.ORT,
DateDiff("yyyy",DateAdd("yyyy",0,[Mitglied].[GEBURTSTAG]),DateAdd("yyyy",0,Now())) AS d2

FROM (EATRITT INNER JOIN MITGLIED ON EATRITT.MITGLNR = MITGLIED.MITGLNR) INNER JOIN ADRESSE ON MITGLIED.ADRESSGRP = ADRESSE.ADRESSGRP

WHERE
(((DateDiff("yyyy",DateAdd("yyyy",0,[Mitglied].[GEBURTSTAG]),DateAdd("yyyy",0,Now()))) In (20,30,40,50,60,70,80,90,100))
AND ((EATRITT.FESTEBEITRAGSART) Is Null) AND ((EATRITT.ORGID)=1)
AND ((EATRITT.AUSTRITT) Is Null) AND ((EATRITT.AKTIV)="J"))
OR (((EATRITT.FESTEBEITRAGSART) Not Like "Passiv" And (EATRITT.FESTEBEITRAGSART) Not Like "Z_Beit")
AND ((EATRITT.ORGID)=1)
AND ((EATRITT.AUSTRITT) Is Null)
AND ((EATRITT.AKTIV)="J"));
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jedoch bekomme ich bei der ganzen Where Klausel, auch Geburtstage mit anderen Zahlen wie in dem IN

fredfred · 10. Mai 2020

Liegt wohl an d m OR.

magic1708 · 10. Mai 2020

So scheint es zu passen

Code:

WHERE
(((DateDiff("yyyy",DateAdd("yyyy",0,[Mitglied].[GEBURTSTAG]),DateAdd("yyyy",0,Now()))) In (20,30,40,50,60,70,80,90,100))
AND ((EATRITT.FESTEBEITRAGSART) Is Null
Or (EATRITT.FESTEBEITRAGSART) Not Like "Passiv"
Or (EATRITT.FESTEBEITRAGSART) Not Like "Z_Beit")
AND ((EATRITT.ORGID)=1)
AND ((EATRITT.AUSTRITT) Is Null)
AND ((EATRITT.AKTIV)="J"));
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

fredfred · 10. Mai 2020

Du musst auf die korrekte Klammerung achten, wenn du AND mit OR kombinierst

(A AND B) OR C
ist was anderes als A AND B OR C

Köbi · 13. Mai 2020

Vielleicht hilft dir meine antike DB "Geburtstagsträume" weiter.

Office: (Office 2016) Jubilare filtern

Jubilare filtern

Jubilare filtern

Jubilare filtern

Jubilare filtern - Similar Threads - Jubilare filtern

Intelligente Tabelle Filter fixieren

neue Filter Funktion

Filter Formel geht nicht

SQL: Filtern mit mehreren Werten aus einer Excelspalte (Liste)

Filtern von Datensätzen

Vorkommen von Kunden in mehreren Tabellen per Abfrage filtern

Schneller Suchen und Filtern