Bild aus Richtext-Feld löschen

[Boox]

Hallo alle zusammen,

ich stehe etwas auf dem Schlauch und benötige einen Tipp:

Wir haben eine Mitarbeiter-Datenbank mit Bildern. Ich möchte den Mitarbeitern die Möglichkeit geben, ihre personenbezogenen Daten auf Wunsch zu entfernen (gemäß BDSG). Bei normalen Feldern (z.B. Geburtsdatum) ist das natürlich kein Problem. Bei den Fotos bekomme ich das jedoch nicht ganz hin.

Die Mitarbeiter sollen in ihr eigenes Dokument gehen und dann per Schaltfläche die Möglichkeit haben, der Nutzung zuzustimmen oder abzulehnen. Bei der Ablehnung soll dann auch gleich das Foto gelöscht werden. Dieses steht in einem Richtext-Feld als einziger Inhalt.

Ich habe es mit folgendem Script probiert, jedoch ohne Erfolg:

Code

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim rtitem As NotesRichTextItem
	
	Set db=session.CurrentDatabase
	Set uidoc = ws.Currentdocument
	Set doc=uidoc.Document
	
	Set rtitem = doc.GetFirstItem("Foto")
	Call rtitem.Remove
	Call rtitem.Update
	
End Sub

Was mache ich falsch?

[JayDee]

Das sieht an sich gut aus, nur sollte das Dokument auch irgendwann gespeichert werden.

[Boox]

Hallo JayDee!

Danke für den Tipp. Ich möchte es an der Stelle eigentlich noch nicht speichern. Aber dein Hinweis hat mir zumindest gedanklich weitergeholfen. Ich wollte erreichen, dass man die Änderung sofort sieht, ohne speichern und neu öffnen. Durch deinen Tipp ist mir aufgefallen, dass ich das natürlich nur im Frontend machen kann.

So habe ich es nun gelöst:

Code

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim db As NotesDatabase
	
	Set db=session.CurrentDatabase
	Set uidoc = ws.Currentdocument
	
	Call uidoc.FieldClear("Foto")
	
End Sub