combit Relationship Manager - Objekt-Referenz - combit GmbH

FAQ
VBScript Beispiele
Set oCurrentRecordSet = Nothing
Set oActiveView = Nothing
Set oProject = Nothing
8.1.12 Erstellen eines Filters anhand einer Telefonnummer
Option Explicit
Dim oProject, oActiveView, oCurrentRecordSet, bFound, sPhoneNumber
' Aktives cRM Projekt
Set oProject = cRM.CurrentProject
Set oActiveView = oProject.ActiveViews.ActiveView
Set oCurrentRecordSet = oActiveView.CurrentRecordSet
sPhoneNumber = InputBox("Zu suchende Telefonnummer", "Test Script")
bFound = oCurrentRecordSet.FindRecordByPhoneNumber(sPhoneNumber, true, false)
If bFound Then
Msgbox "Anzahl Datensätze im Filter: " & oActiveView.FilterRecCount
Else
Msgbox "Es konnten keine Datensätze gefunden werden!"
End If
' Objekte freigeben
Set oCurrentRecordSet = Nothing
Set oActiveView = Nothing
Set oProject = Nothing
8.1.13 Feldinhalt in einem aktiven Datensatz in der 'Firmen'-Ansicht
ändern (ChangeDS.vbs)
Option Explicit
' Aktives cRM Projekt
Dim oProject, oActiveViews, oActiveView
136