Domino 9 und frühere Versionen > Entwicklung

Aktion bei Feldwertänderung

<< < (2/2)

klaussal:
im queropen den kilometerstand in einem versteckten feld sichern und im querysave alten mit neuem kilometerstand vergleichen. wenn geändert wurde, dann benutzer in feld xyz schreiben. ;)

hmarco:
Hallo Axel,

da hätte ich auch selber drauf kommen müssen. Fürs nächste Mal weiß ich Bescheid.

Sach mal noch 'ne Frage.

Die Variablen kmcopy und kmcopy2 wie kann ich die mit if vergleichen?

ich habe es so gemacht:

If kmcopy <> kmcopy2 Then

Will er jedoch nicht schlucken. Sagt Type Mismatch. Sind jedoch beides Zahlenfelder.

Der Wert vom kmcopy ist ja noch vom PostOpen und der Wert von kmcopy2 wird beim ausführen des Queryclose ausgelesen. Beides sind Zahlenwerte wieso sagt er hierbei wenn ich Speichern will Type Mismatch.

Mfg Marco

hmarco:
Hi Kaussal,

ich kann ich alternativ auch noch ausprobieren. Jedoch denke ich, dassichfast fertig bin, wenn dieses If-Statement funktionieren würde. Siehe oben.

Mfg Marco

Axel:
Hi,

deine beiden Variablen sind vom Typ Item. Die kannst du nicht mit IF vergleichen.

Du mußt die Feldinhalte nehmen. Das muss so aussehen:

Globale Variable:

Dim kmcopy As String

PostOpen-Event:

Sub Postopen(Source As Notesuidocument)
  Dim doc As NotesDocument

  Set doc = Source.Document
  kmcopy = doc.Kilometerstand(0)

End Sub

QueryClose:

...

  Set doc = Source.Document
  If kmcopy <> doc.Kilometerstand(0) Then 'Prüfung der Feldinhalte
      'Wenn unterschiedlich, tu das hier
  Else
      'Wenn nicht, dann lass es
  End If

...


Ich hab's mit Stringvariable, also für Textfeld gemacht. Evt. mußt du den Variablentyp anpassen.

Axel
 

hmarco:
Hi,

das geht ja. Ich hatte war nur noch einen Overflow,
weil ich Integer verwendet habe, da habe ich dann
zum Spaß mal Double eingetragen und jetzt läuft es.  :D :D :D

Vielen Dank für eure Hilfe.

Mfg Marco

Navigation

[0] Themen-Index

[*] Vorherige Sete