Der Ansatz ist doch schon ganz gut. Und im ELSE-Zweig setzt du dann das Datum.
Das u.a. Beispiel muss natürlich vom Text her angepasst werden. Ich war zu faul dazu... ;D
varDummy = ws.Prompt( PROMPT_YESNO, "Löschung", "Sie wollen ein Dokument löschen. " _
& Chr(13) & "Möchten Sie wirklich fortfahren ?")
If Not Cstr(varDummy) = "1" Then
Exit Sub
End If
Auf die Schnelle:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim varDummy As Variant
Set db = session.currentDatabase
Set uidoc = ws.currentDocument
Set doc = uidoc.document
If Trim(doc.datum(0)) <> "" Then
varDummy = ws.Prompt( PROMPT_YESNO, "Löschung", "Datum behalten ? " _
& Chr(13) & "Wählen ?")
If Not Cstr(varDummy) = "1" Then
doc.datum = hier muss jetzt das neue Datum rein
End If
End If
End Sub
Das Datum geht dann mit DateTime.