Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== [VBA][SQL] Filterstrings ======

//Immer wieder sehe ich Fragen in Forum zu SQL-Statements oder Filterstrings die daran scheitern, das die Werte falsch übergeben werden//

===== Filterstring =====
Der Filterstring wird in Formularen und Reports verwendet. Er entspricht aber auch dem WHERE-Abschnitt eines SQL-Statements oder der Bedinung eines DCOUNT(), DLOOPUKP() etc.

<code sql>-- Datum muss entweder im US Format oder im ISO-Format sein
-- US: #MM/DD/YYYY#
[mein_datum_feld] = #06/12/2017#
-- ISO: #YYYY-MM-DD#
[mein_datum_feld] = #2017-06-12#

-- Zeit: #NN:HH:SS#
[mein_zeit_feld] = #12:45:00#

-- Zeitstempel: #MM/DD/YYYY 12:45:00#
[mein_timestpam_feld] = #06/12/2017 12:45:00#

-- Zahlen: 0.0
[mein_long_feld] = 12345
[mein_double_feld] = 12345.67

-- Text 'Text', "text"
[mein_text_feld] = 'abc'
[mein_text_feld] = "abc"</code>

===== Beispiele =====
Angewandt in VBA mit einer Variablen als wert.
Hier eine kleine methode, welche die Umsetzungen zeigt
<code vb>Public Sub showroomFilterStrings()
    Dim strFilter As String
    Dim varValue As Variant
    'Datum: #MM/DD/YYYY#
    varValue = Now
    strFilter = "[mein_datum_feld] = #" & format(varValue, "MM\/DD\/YYYY") & "#"
    Debug.Print strFilter
    
    'Zeit: #NN:HH:SS#
    varValue = Now
    strFilter = "[mein_zeit_feld] = #" & format(varValue, "HH:NN:SS") & "#"
    Debug.Print strFilter
    
    'Zeitstempel: #MM/DD/YYYY 12:45:00#
    varValue = Now
    strFilter = "[mein_timestpam_feld] = #" & format(varValue, "MM\/DD\/YYYY HH:NN:SS") & "#"
    Debug.Print strFilter
    
    'Zahlen: 0.0
    varValue = 12345
    strFilter = "[mein_long_feld] = " & varValue
    Debug.Print strFilter
    varValue = 12345.34
    strFilter = "[mein_double_feld] = " & varValue
    Debug.Print strFilter
    
    'Text 'Text', "text"
    varValue = "abc"
    strFilter = "[mein_text_feld] = '" & varValue & "'"
    Debug.Print strFilter
    strFilter = "[mein_text_feld] = """ & varValue & """"
    Debug.Print strFilter
End Sub</code>
<code sql>-- Ausgabe im Direktfenster
[mein_datum_feld] = #06/26/2017#
[mein_zeit_feld] = #10:36:50#
[mein_timestpam_feld] = #06/26/2017 10:36:50#
[mein_long_feld] = 12345
[mein_double_feld] = 12345.34
[mein_text_feld] = 'abc'
[mein_text_feld] = "abc"</code>
Yaslaw.Info

User Tools

Site Tools

Page Tools
