Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 24.09.02 - 15:19:47

Titel: Bei Drag&Drop Felder ändern
Beitrag von: Don Pasquale am 24.09.02 - 15:19:47

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

Titel: Re: Bei Drag&Drop Felder ändern
Beitrag von: Axel am 24.09.02 - 15:51:50

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

Titel: Re: Bei Drag&Drop Felder ändern
Beitrag von: Don Pasquale am 24.09.02 - 16:12:18

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