Hallo,
ich hoffe mir kann jemand helfen! Ich habe eine Datenbank, in der ich das Geburtsdatum eingetragen habe. Ich will nun eine Abfrage machen, in der mir angezeigt werden soll, wer im aktuellen Monat Geburtstag hat! Dazu benötige ich nun die entsprechende Funktion bzw. das Abfragekriterium. Ich habe schon Stundenlang die Hilfe durchgewälzt, aber noch nichts passendes gefunden.
Ich wäre für eure Hilfe sehr dankbar!!!
Gruß Klaus
Hallo Klaus,
auf die schnelle kann ich Dir nur folgendes vorschlagen. Hierzu musst Du dann immer das Anfangs- und Enddatum des Monats eingeben, den Du filtern willst. Es gibt aber sicherlich auch noch bessere Möglichkeiten.
(>=[anfangsdatum] Und [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Ist im Prinzip simpel: Verwende dazu die Funktion MONAT.
Jetzt definierst Du in einer Abfrage ein Feld z.B. Aktuell und gibst als Feldinhalt =Monat([Geburtstag]) an. Sieht dann so aus: AKTUELL: =MONAT([Geburtsttag])
Nun gibst Du als Kriterium =MONAT(JETZT()) ein und: Et voila…
Gruss
Martin
aber sicher geht es komfortabler…
hier das ganze per SQL:
…
Dim strSQL As String, strSELECT As String, strFROM As String
Dim strWHERE As String, strORDERBY As String
Dim von As Variant, bis As Variant
strSELECT = "SELECT * "
strFROM = "FROM Personaldaten "
von = usDatum(DateSerial(Year(Date), Month(Date), 1))
bis = usDatum(DateSerial(Year(Date), Month(Date) + 1, 0))
strWHERE = "WHERE GeburtsDatum BETWEEN " & von & " AND " & bis
strORDERBY = „ORDER BY GeburtsDatum“
strSQL = strSELECT & strFROM & strWHERE & strORDERBY
DOCMD.ApplyFilter (strSQL)
…
Function usDatum(grDatum)
If IsDate(grDatum) Then
grDatum = CVDate(grDatum)
usDatum = „#“ & Format(grDatum, „mm-dd-yy“) & „#“
End If
End Function
mfg Günter
http://www.ccbox.de/vba/