Bei Drag&Drop Felder ändern

[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

[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