Felder löschen

[Felix]

Hallo Don Pasquale,

wollte die Felder eigentlich löschen, das ging aber nicht  
daher werden die Felder jetzt

einfach nur geleert.


Felix

[ata]

@Felix,

... trotz daß du eine Lösung für dich gefunden hast, es würde mich schon interessieren, warum du die Felder nicht löschen kannst.
Der gepostete Code müßte eigentlich funktionieren...

ata

[Axel]

@ata

Ich habe es selbst getestet. Im QuerySave-Event habe ich versucht mit RemoveItem die Felder zu löschen. Es hat nicht funktioniert. Ich vermute es hängt daran, das RemoveItem eine Backend-Funktion ist.

Eine derartige Frontend-Funktion gibt es nicht.


Axel

[Felix]

@ata,

ich denke die Felder löschen wäre die elegantere
Variante, aber wenn es nicht funzt; der Not gehorchend !!  
reicht auch das löschen !!

Felix

[ata]

@Axel...

... also jetzt muß ich das mal checken, denn im Querysave sind Backend-Methoden verwendbar, das würde dann ja schon sehr einschneidene Konsequenzen bei der Programmierung bedeuten...

... ich melde mich...

ata

[ata]

... ich bin platt, es ist nicht möglich im Querysave des Dokumentes Felder zu löschen...

Hier mein Versuchscode (mit schwäbischen Kommentaren...)

Code

Sub Querysave(Source As Notesuidocument, Continue As Variant)
' # Mit Grundkurs in schwäbisch...
   Dim doc As NotesDocument
   Set doc = Source.Document
   
   If doc.HasItem("Anrede") Then
      Print "Hod a Feld Ôhred..."
      doc.RemoveItem("Anrede")
      Call doc.Save( True , True )
      If doc.HasItem("Anrede") Then
         Print "Hods no..."
      Else
         Print "Hods nemme!"
      End If
   End If
End Sub

Die Statusmeldungen werden korrekt erkannt, wenn man das Dokument wieder öffnet, ist das Feld und dessen Inhalt weiterhin vorhanden...

ata