Ich verzweifle.... erste eigene FUNCTION

[Iron]

 Hi,

 bin ich blöd? (Rethorische Frage!)

 Ich habe eine neue Function erstellt und unter den Script-Bibliothek eine  neue Bib erstellt.

 Warum läßt sich nicht die Call function eintragen???

 aaaaaaaaaargh


 --mehr infos---
 Script-Bib heißt  "CommonDB"
 Drin ist diese Function

 Function RefreshFields  As Integer
      ' Refresh Fields
      Set session = New NotesSession
      Dim username As New NotesName(session.UserName)
      Set maildoc = session.CurrentDatabase.CreateDocument

      Set uiws = New NotesUIWorkspace
      Set uidoc = uiws.CurrentDocument

      uidoc.AutoReload = True
      Call uidoc.Refresh
 End Function

 Damit die Function ja "geladen" wird ist in der Maske unter
 (Options)
 Use "CommonDB"
 drin.

 Ebenso im Feld steht das nochmal drin.
 TROTZDEM kann ich einfach nicht im Feld
 Sub Exiting(Source As Field)
      Call RefreshFields
 End Sub
 Eingeben weil dann immer die Meldung kommt:
 Feldname: Exiting: 2: Not a sub or function name: REFRESHFIELDS

[eknori]

mach mal aus "Function RefreshFields  As Integer" ein

Sub RefreshFields

und am ende halt end sub.

du rufts die FUNCTION falsch auf. Außerdem sagst du daß die Funktion einen Rückgabewert ( integer ) hat. Die Function gibt aber nichts zurück.

zudem müßtest du dann schon mit i% = RefreshFields die Function aufrufen.

eknori

[koehlerbv]

eknori hat schon alles gesagt zu Deiner Fehlermeldung.

Die ganze "Function" macht aber sowieso keinen Sinn, denn das einzig wirksame ist die Zeile
Call uidoc.Refresh
und die kannst Du auch gleich im Exiting-Event aufrufen.

By the way: Wenn Dein Feld (wo Du das ins Exiting-Event einbaust) ein Keyword-Field ist, kannst Du einfacher für dieses Feld in den Properties "Felder bei Schlüsselwortänderung aktualisieren" einstellen.

Bernhard

[Iron]

 
Danke - heute ist wohl nicht mein Tag.

[koehlerbv]

Shit happens ;-)

Und jeder hat mal klein angefangen !

Bei Fragen - meld' Dich wieder.

Bernhard