Access query Frage bzgl. Datum

Hallo Gemeinschaft,

habe folgendes Problem - ich benötige in einer query immer das Datum vom nächsten Samstag

strSQL = "SELECT * FROM Kurtaxe where Kd_anreise = DateValue('5/8/2023')"

könnt ihr mir das helfen

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 8048189727

Url: https://administrator.de/forum/access-query-frage-bzgl-datum-8048189727.html

Ausgedruckt am: 15.01.2025 um 09:01 Uhr

8 Kommentare

Neuester Kommentar

So sollte das funktionieren, das sah nach VBA in Microsoft Access aus oder?

SELECT * 
FROM Kurtaxe 
WHERE Kd_anreise = (
    SELECT 
        IIf(DatePart("w", Date()) <= 5,   
            DateAdd("d", 6 - DatePart("w", Date()), Date()),   
            DateAdd("d", 6 - DatePart("w", Date()) + 7, Date())  
        )
);

Moin,

Weil Freitag ist:

Access desktop database reference

lks

Zitat von @jensgebken:

habe folgendes Problem - ich benötige in einer query immer das Datum vom nächsten Samstag

Als Grundlage mal mit einem vernünftigen Backend:

SELECT
        GETDATE() AS [Now],
	DATEADD(DAY, DATEDIFF(DAY, -1, GETDATE()) / 7 * 7, -1) AS [Last sunday]

@Snuffchen - wie würde das nur in vba aussehen

Du musst doch nur dein strSQL = "xxx" drumherum machen, der SQL-Befehl bleibt ja der gleiche

Oder hier nochmal als VBA Funktion mit DAO:

Sub ExecuteQuery()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSql As String
    Dim nextSaturday As Date

    ' Berechnung des nächsten Samstags  
    If DatePart("w", Date()) <= 5 Then  
        nextSaturday = DateAdd("d", 6 - DatePart("w", Date()), Date())  
    Else
        nextSaturday = DateAdd("d", 6 - DatePart("w", Date()) + 7, Date())  
    End If

    ' SQL-Abfrage  
    strSql = "SELECT * FROM Kurtaxe WHERE Kd_anreise = #" & Format(nextSaturday, "mm/dd/yyyy") & "#"  

    ' Datenbankverbindung öffnen  
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSql)

    ' Hier können Sie den Recordset 'rs' weiterverarbeiten  

    ' Schließen der Verbindungen  
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub