Office: (Office 2000) Jahr aus Datum extrahieren und danach Filter (per Abfrage)

GTRDRIVER · 14. Juli 2009

Hallo Leute

ich habe hier eine einfache Abfrage, welche auf eine Tabelle zugreift, in der ein Datumsfeld ist (Format: DD.MM.JJJJ) - ich muss in einer 2 Tabelle nach Jahr Filtern und von einem Formular aus nach "JAHR" selektieren können.

Also dachte ich ganz einfach - ich lege in der Abfrage ein weitere Feld namens "JAHR":

jahr: ZInteger(Format([VERTRAGSDATUM];"YYYY"))

Dies liefert mir das Jahr auch perfekt - gebe ich dann aber als Kriterium z.B. folgendes ein:

>2005

Kommt: Tytentypen im Kriterienausdruck unverträglich

Wo habe ich hier einen Denkfehler ?

Gleiches Problem, wenn ich über Dcount im Fomrular nach "JAHR" zählen will:

Me.Text24 = DCount("[Vertragsnummer]", "ABF_VAP_VERKAUF1", "[jahr] = " & CStr(jahr) & " and [benutzerid] = " & CDbl(Me.UserID))

Wer hat einen Tipp für mich ?

CU
GTR

:)

fraeser · 16. Juli 2009

Hallo GTR,

probiers in der Abfrage mal mit YEAR(VERTRAGSDATUM) bzw.
JAHR(VERTRAGSDATUM)...

LG
Jan

GTRDRIVER · 16. Juli 2009

Servus

Tja - man lernt eben nie aus - danke für den Hinweis - klappt prima !
Einfach zu umständlich gedacht...

GTRDRIVER · 16. Juli 2009

Hallo

Darf ich evtl noch was fragen:

Ich habe hier einen String mit fester länge in dem buchstaben, Zahlen und sonderzeichen vorkommen.

Gibt es eine Funktion mit der ich alle Zeichen ausser den Zahlen automatisch daraus entfernen kann ?

Beispiel:
Code:

string: js2o4jl842j"okj"s4
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gewünschtes Ergebnis: 2048424

Bin für alle Anregungen dankbar !

CU
GTR

ebs17 · 16. Juli 2009

Wenn man den Ausdruck js2o4jl842j"okj"s4 als String zu greifen bekommt (wegen der "):
Code:

Public Function fChangeText(sText As String) As String ' oder As Long ??
Dim Regex As Object
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
' löscht alles außer Ziffern
.Pattern = "\D"
.Global = True
fChangeText = .Replace(sText, "")
End With
Set Regex = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2000) Jahr aus Datum extrahieren und danach Filter (per Abfrage)

Jahr aus Datum extrahieren und danach Filter (per Abfrage)

Jahr aus Datum extrahieren und danach Filter (per Abfrage)

Jahr aus Datum extrahieren und danach Filter (per Abfrage)

Jahr aus Datum extrahieren und danach Filter (per Abfrage) - Similar Threads - Jahr Datum extrahieren

Alter aus Datum oder nur Jahr berechnen

Excel Formel Zählenwenn mit Datum_Monate/Jahre

Beim Datum Jahr hinzufügen

Älter als Datum (in 2 Spalten) = "Entsorgen"

Zähle wenn Datum älter als ein Jahr

Zelle farblich markieren wenn Datum älter als 1 Jahr ist bzw. abläuft

EXCEL Rechnen mit ZEITangaben (Jahre Monate Tage)... kein Datum...