Domino 9 und frühere Versionen > Entwicklung

Aktion bei Feldwertänderung

(1/2) > >>

hmarco:
Hallo und erstmal ein frohes neues Jahr,

ich habe ein Feld namens Kilometerstand.

Wenn ich dieses Feld ändere möchte ich, dass er in ein anderes Feld das heutige Datum rein schreibt und dass Notes in ein anderes Feld den aktuellen Benutzer reinschreibt.

Jetzt habe ich jedoch das Problem, wie ich in einer @If-Anweisung die Bedingung, Wenn Feld "Kilometerstand" geändert wurde dann tue dies, unterbringe.

Kann mir da vielleicht jemand einen Tipp geben.

Mfg Marco

klaussal:
moin moin,

im postopen-event den km-stand in ein hidden-feld rüberziehen.
bei querysave abfragen, ob sich der km-stand geändert hat. wenn ja, benutzer eintragen, etc...
aber es führen viele wege nach rom. das war mal ein denkansatz auf die schnelle. ;)

Axel:
Hi,

hier noch eine andere Alternative:

im Declaration-Abschnitt der Maske eine Variable deklarieren.

Diese mit PostOpen-Event mit dem Feldwert füllen und im QuerySave-Event abfragen ob Feldinhalt und Variable unterschiedlich sind, wenn ja, dann die entsprechenden Aktionen auslösen.

Axel

hmarco:
Hallo,

hatte ein wenig länger gedauert, hatte noch soviel anderen Kram zu tun.  Habe heute übrigens meine Network+-Prüfung bestanden.

Also ich habe ein Feld "Kilometerstand" und das wird im Post-Open so in eine Variable names "kmcopy" kopiert:

Sub Postopen(Source As Notesuidocument)
   Dim doc As NotesDocument
   Set kmcopy = doc.GetFirstItem("Kilometerstand")
End Sub

Die Variabel sind übrigens im Declerations:

Dim kmcopy As NotesItem
Dim kmcopy2 As NotesItem
Dim item As NotesItem

Jedoch sagt er mir dabei immer "Object variable not set", wenn ich ein Dokument öffne.

Jetzt stellt sich mir die Frage wie bei den meisten Anwendern:
Bin ich nicht doch einfach nur zu blöd dazu?!  ;D

Mfg Marco

Axel:
Hi,

erstmal herzlich Glückwunsch zur bestandenen Prüfung.

Du mußt auch die doc - Variable belegen. Ändere mal den Code im PostOpen-Event wie folgt ab.

Sub Postopen(Source As Notesuidocument)
   Dim doc As NotesDocument

   Set doc = Source.Document
   Set kmcopy = doc.GetFirstItem("Kilometerstand")
End Sub


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite