Domino 9 und frühere Versionen > Entwicklung

Dokument löschen ohne Abfrage

<< < (4/4)

eknori:
die Lösung dürfte dann so etwas wie das hier sein

http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/9a57fb7ad1a4c7b18525692e00815a0b?OpenDocument

In deinem "Löschen" Knopf müsstest du dann ein Feld im betreffenden Document setzen und das Doc schließen. Dann vor der Ausführung des o.a. Code das Feld abgefragt. Wenn gesetzt wir der Code ausgeführt, wenn nicht, dann nicht.

Solange das UIDoc instantiiert ist, hast du keine Chance, das Doc zu löschen.

dazu
http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/ee1148542057a36b85256b1b004e319e?OpenDocument

TomLudwig:
Also erst mal danke für eure Bemühungen.
Weils wahrscheinlich jeder gut gebrauchen kann. Fasse ichs nochmal zusammen in einem Beispiel ums den anderen leichter zu machen....

Im der Maske muss es ein Feld "flgDelete" mit dem Vorgabewert "0" geben.

Im Button ist folgende Funktion hinterlegt:

Sub Click(Source As Button)
   Dim uiwork As New NotesUiWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   
   Set uidoc = uiwork.Currentdocument
   uidoc.EditMode = True
   Call uidoc.Fieldsettext("flgDelete", "1")
   Call uidoc.Save
   Call uidoc.Close(True)
End Sub

Im Queryclose der Maske muss das Feld überprüft werden und das Dokument gelöscht werden:

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
   If source.FieldContains("Dozent_Delete","1") Then
      noteid$ = source.document.NoteID
      Delete source                      
      Dim S As New notessession
      Dim db As notesdatabase
      Set db = s. currentdatabase
      Dim doc As Notesdocument
      Set doc = db.GetDocumentbyID(noteid$)
      Call doc.Remove(True)   
   End If
End Sub

Navigation

[0] Themen-Index

[*] Vorherige Sete