Office: (Office 2010) Datum als Variable filtern

Hartmut_M · 25. April 2016

Hallo, ist es richtig, dass ich nicht mit einer Datumsvariablen filtern kann?

Habe folgendes probiert:
Code:

Dim varDatum As Date
varDatum = #1/10/2016#

With Me
.Filter = "Datum = " & varDatum
.FilterOn = True
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da gibt es einen Syntaxfehler Abfrageausdruck 'Datum = 10.01.201'.

Setze ich den Filter wie nachfolgend, funktioniert es.
Code:

.Filter = "Datum = CDATE('" & varDatum & "')"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Speichert Access die Date-Variable tatsächlich als string, der wieder umgewandelt werden muss? *entsetzt

:)

markusxy · 27. April 2016

Ich glaub das Thema gabs auch schon mal

http://www.ms-office-forum.net/forum...d.php?t=112365

ebs17 · 27. April 2016

Nicht würfeln, sondern nachsehen:
Datum an SQL-String übergeben
Grundlagen - SQL ist leicht (5) - Datentypbehandlung für VBA

Hartmut_M · 27. April 2016

Danke für die Tipps. So geht's auch:
Code:

.Filter = "Datum = " & CDbl(varDatum)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

markusxy · 7. Januar 2021

von Hartmut_M

Danke für die Tipps. So geht's auch:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

.Filter = "Datum = " & CDbl(varDatum)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

genau, diesen Hinweis findest du im ersten Link von Eberhard.
Aber nicht vergessen CDbl oder CLng funktionieren nur bei einem Access Backend, bei anderen Datenbanken muss man das jeweils prüfen.

LGM

Josef P. · 27. April 2016

Hallo!

.Filter = "Datum = " & CDbl(varDatum)
wird zum Problem, sobald eine Uhrzeit dabei ist. ... da fehlt dann noch Str(...).

Außerdem wird es zum Problem, sobald (wie von Markus bereits erwähnt) die Daten in einem DBMS (z. B. MSSQL) liegen, die einen anderen Datums-Startpunkt als Access haben.

Ich verstehe allerdings nicht, warum man überhaupt an eine CDbl- bzw. CLng-Konvertierung denkt, wenn man mit einer einmalig erstellten Hilfsfunktion einen ordentlichen SQL-konformen Datumsstring erstellen kann.

Beispiel (gekürzt aus SqlTools):
Code:

Public Function DateToSqlText(ByVal Value As Variant) As String

If IsNull(Value) Then
DateToSqlText = "Null"
Exit Function
End If

If Not IsDate(Value) Then
Err.Raise vbObjectError, "DateToSqlText", "Der Wert '" & Value & "' vom Parameter Value ist kein Datumswert!"
End If

DateToSqlText = Format$(Value, "\#yyyy-mm-dd hh:nn:ss\#")

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

Einsatz:
Code:

.Filter = "Datum = " & DateToSqlText(varDatum)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

.. ob man nun CLng oder DateToSqlText schreibt, ist zeitlich betrachtet ziemlich egal. Mit der Datumsformatierung ist man allerdings sicherer unterwegs.

.. oder mit der von Eberhard verlinkten Funktion:
Code:

.Filter = "Datum = " & cSql(varDatum, vbDate)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

Office: (Office 2010) Datum als Variable filtern

Datum als Variable filtern

Datum als Variable filtern

Datum als Variable filtern

Datum als Variable filtern - Similar Threads - Datum Variable filtern

VBA mit Variable suchen und datum setzen?

aktuellstes Datum in abhängigkeit von zwei Variablen wiedergeben

Heutiges Datum in Variable speichern

Variant-Variable konvertiert Datum

Datum in einer Variablen umformatieren

Dropdown für Maschinen mit Datum und variabler Tabelle

Diagramm mit variabler x Achse und variablen Werte