+49 (0)7531 906010| service@combit.net

VBS-Script für Filtern nach Datum

Hallo und frohes neues Jahr,

ich möchte gerne Datensätze mit einem Datum von … bis … mit einem VB-Script Filtern.

Leider bekommen ich ständig Fehlermeldungen.
Es scheint sich um ein Formatfehler zu handeln.

Andscheinend muß die Datumsangabe anderst gemacht werden.
Nur wie???
Ich habe im SDK und hier nichts gefunden.

hier mein Code:


Option Explicit

' Name der konfigurierten Ansicht
Const sView = "Verträge"

' Aktives cRM Projekt
Dim oProject
Set oProject = cRM.CurrentProject

' Liste der konfigurierten Ansichten
Dim oListViewConfigs
Set oListViewConfigs = oProject.ViewConfigs

Dim oListViews
Set oListViews = oProject.ActiveViews

Dim oView
Set oView = oListViews.ActiveView

Dim oViewConfig
Set oViewConfig = oListViewConfigs.ItemByName(CStr(sView))

Dim oRecordSet
Set oRecordSet = oViewConfig.CreateRecordSet

Dim oRecord
Set oRecord = oRecordSet.CurrentRecordSynchronized

Dim oActiveViews
Set oActiveViews = oProject.ActiveViews

Dim oActiveView
Set oActiveView = oActiveViews.ActiveView

Dim oCurrentRecordSet
Set oCurrentRecordSet = oActiveView.CurrentRecordSet


Set oView = oListViews.ActiveView

MsgBox CStr("Aktive Ansicht: " & oView.Name), vbInformation, CStr("combit Relationship Manager")



Dim sAbrechnungsmonat
sAbrechnungsmonat = InputBox ("Eingabe der abzurechnenden Monats. Januar =01","Input Required")

Msgbox sAbrechnungsmonat

Dim bFilter
'bFilter = oCurrentRecordSet.SetFilter("naechste_Rechnungsstellung_am = " & sAbrechnungsmonat)
bFilter = oCurrentRecordSet.SetFilter("naechste_Rechnungsstellung_am = " & "01.01.2013")

If bFilter = True Then
 Msgbox "Es befinden sich " & oActiveView.FilterRecCount & " Datensätze im Filter."
Else
 Msgbox "Es konnte kein Filter erstellt werden!"
End If

Msgbox "Es exitieren " & oActiveView.RecCount & " Datensätze in der Tabelle."

Hat jemand eine Lösung für das Problem?

Danke

Hallo Ronald,

auch Dir alles Gute für 2013!

Versuche doch mal, das Datum ins Format ‚yyyy-mm-dd‘ umzuwandeln. In Deinem Fall also ‚2013-01-01‘.

HTH

Walter Rank

© combit GmbH