Domino 9 und frühere Versionen > Entwicklung

Bei Drag&Drop Felder ändern

(1/1)

Don Pasquale:
Hallo Lotus-Fans,

ich möchte den Dokumenten die verschoben werden gleichzeitig im Feld Status einen Wert geben,
ich bekomme aber leider immer ein
"Illegal USe of Property".

Warum bloß ?


--- Code: ---
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
     
     Dim doc As NotesDocument
     Dim docList As String
     For j = 1 To Source.Documents.Count
           Set doc = Source.Documents.GetNthDocument(j)

           docList = docList & Chr(10) & doc.Subject(0)
           Call doc.FieldSetText( "Ordner", Cstr( Target) )
           
     Next
     
End Sub
--- Ende Code ---

Axel:
Hi,

in dieser Zeile liegt der Hund begraben:

Call doc.FieldSetText( "Ordner", Cstr( Target) )

Du verwendet eine Methode (FieldSetText), die es in der NotesDocument-Klasse nicht gibt.

Das Ganze muß so aussehen:

doc.Ordner = Target

Axel

Don Pasquale:
Danke Axel,

das habe ich bereits ausprobiert  und es klappte nicht,
jetzt habe ich weiter in dieser Richtung ausprobiert und
schwuppdich :

es fehlte ein :

Call doc.Save( True, True )


Jetzt klappt´s auch mit dem Nachbarn

Vielen Dank

Ciao

Don Pasquale

Navigation

[0] Themen-Index