combit Relationship Manager - Objekt-Referenz - combit GmbH
combit Relationship Manager - Objekt-Referenz - combit GmbH
combit Relationship Manager - Objekt-Referenz - combit GmbH
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
FAQ<br />
VBScript Beispiele<br />
Set oProject = cRM.CurrentProject<br />
Set oActiveViews = oProject.ActiveViews<br />
Set oActiveView = oActiveViews.ActiveView<br />
' Aktiven Filter in der aktiven Ansicht verwenden<br />
Dim oRecordSet<br />
Set oRecordSet = oActiveView.CurrentRecordSet<br />
' Aktiven Datensatz verwenden<br />
Dim oRecord<br />
Set oRecord = oRecordSet.CurrentRecord<br />
' Datensatz sperren<br />
oRecord.Lock<br />
' Feldinhalt auslesen<br />
Dim sValue<br />
sValue = oRecord.GetContentsByName("Firma")<br />
' Zeichenfeld schreiben<br />
oRecord.SetContentsByName "Firma2", CStr(sValue)<br />
' Datensatz speichern und Schreibvorgang prüfen<br />
If oRecord.Save = True Then<br />
MsgBox "Datensatz wurde geschrieben!", vbInformation, "<strong>combit</strong> <strong>Relationship</strong><br />
<strong>Manager</strong>"<br />
Else<br />
MsgBox "Datensatz konnte nicht geschrieben werden!", vbExclamation, "<strong>combit</strong><br />
<strong>Relationship</strong> <strong>Manager</strong>"<br />
End If<br />
' Datensatz entsperren<br />
oRecord.Unlock<br />
137