Die drei vom cRM-Objekt abzweigenden Objekte können wie folgt zugewiesen werden:
' Zuweisen des Project-Objekt über die Methode CurrentProject() des cRM-Objekts
Dim oProject : Set oProject = cRM.CurrentProject()
' Zuweisen eines DialogForm-Objekts über die Eigenschaft DialogForm des cRM-Objekts
Dim oDialogForm : Set oDialogForm = cRM.DialogForm
' Zuweisen eines phonemanager-Objekts über die Eigenschaft phonemanager des cRM-Objekts
Dim oPhonemanager : Set oPhonemanager = cRM.phonemanager
Ausgehend von dieser Logik können wir den Weg zum häufig verwendeten Record-Objekt erstellen. Dabei kann auf das separate Zuweisen von Objektvariablen auch verzichtet werden.
' Zuweisen eines Record-Objekts über den visuellen Pfad (aktuell angezeigter Datensatz)
Dim oRecord : Set oRecord = cRM.CurrentProject.ActiveViews.ActiveView().CurrentRecordSet().CurrentRecord()
Nutzen Sie gerne die Möglichkeit den Pfad innerhalb der Grafik der Objekthierarchie nachzuvollziehen.
Wenn Sie im weiteren Verlauf des Scripts auf Eigenschaften und Methoden von Objekten zugreifen möchten, dann wird empfohlen die Objekte in Objektvariablen zu übernehmen. Der Weg zu einem Record-Objekt könnte dann wie folgt aussehen:
Dim ocRM : Set ocRM = cRM
Dim oProject : Set oProject = ocRM.CurrentProject
Dim oListViews : Set oListViews = oProject.ActiveViews
Dim oActiveView : Set oActiveView = oListViews.ActiveView()
Dim oRecordSet : Set oRecordSet = oActiveView.CurrentRecordSet()
Dim oRecord : Set oRecord = oRecordSet.CurrentRecord()