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