Wert eines Feldes auslesen (Anfänger Frage)

[littleS]

Hi,

ich hab eine Maske mit einem Feld "KatText", welches ich in dem Event "Entering" auslesen und in einer Variablen sKatText1 speichern möchte. Dann im Event "OnChange" dieses Feldes möchte ich den Wert wieder auslesen und in sKatText2 speichern.

Dann sollen sKatText1 und sKatText2 verglichen werden, und falls sie unterschiedlich sind, soll in allen Dokumenten in denen sKatText1 gesetzt ist, dieses durch sKatText2 ersetzt werden. (erstmal Zukunftsmusik)

Im Moment hänge ich noch bei dem Versuch den Wert eines Feldes einer Maske auszulesen.
Hier ist mein bisheriger Sourcecode:

'// (Globals)frmKategorie.Declarations
Dim sKatText1 As String
Dim uidoc As NotesUIDocument

'//(Globals)frmKategorie.Initialize
Sub Initialize
  Dim workspace As New NotesUIWorkspace
  Set uidoc = workspace.CurrentDocument
End Sub

'//KatText(Field).Entering  ein Feld auf frmKategorie
Sub Entering(Source As Field)
  Messagebox("KatText.entering")
  sKatText1 = uidoc.FieldGetText("KatText")
End Sub

Als Fehlermeldung bekomme ich "Notes error - Cannot locate field".


Viele Grüße

[klaussal]

Und wo ist "workspace" definiert ?

In der Hilfe steht doch ein Superbeispiel !

klaus

[littleS]

hi,

ah, nachdem ich workspace und uidoc in der funktion "Entering" deklariert habe, gehts.
Ich dachte die in (globals) deklarierten Variablen seien dann überall in dem Modul vorhanden.

[littleS]

hi,

habs hinbekommen. Nun zu dem zweiten Teil des Problems, alle Dokumente durchsuchen und eventuell updaten (erstmal ohne Rücksicht auf die Performance).

Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
Do Until doc Is Nothing
  If doc.Form(0) = "frmTermin" Then '// Feiertage auch behandeln???
    If doc.TerminKategorie(0) = sKatText1 Then
      Messagebox("Termin mit alter Kategorie, die verändert wurde")   
      doc.TerminKategorie(0) = sKatText2 '// neuen Wert setzen

In der letzten Zeile gibt er die Fehlermeldung "Illegal use of PROPERTY" aus.

Kann jemand helfen?

Viele Grüße

[klaussal]

Code

doc.TerminKategorie(0) = sKatText2 '// neuen Wert setzen

muss heissen:
doc.TerminKategorie = sKatText2 '// neuen Wert setzen

klaus

[klaussal]

BTW: Hast du auch einen richtigen Namen oder ist der "Viele Grüße" 

[littleS]

Hi,

danke es funktioniert.


Viele Grüße 

[klaussal]

... und jetzt noch den Fred auf "erledigt" setzen, und wir wären zufrieden.

klaus

[littleS]

Hab ja noch keinen Feierabend, kann ja sein, daß mir noch eine weitere Frage zu dem Thema einfällt.


s