Hi,
nochmal editiert um klarheit zu schaffen:
ich möchte ein in der Vorschau geöffnetes Dokument zunächst in der ansicht anhaken, danach auf meine schaltfläche "Archivierung rückgängig machen" klicken... daraufhin werden alle angehakten dokumente in eine andere datenbank kopiert und anschließend gelöscht
ohne die abfrage ob das dokument in der vorschau ist, kommt der fehler das das dokument nicht gelöscht werden kann weil es ja im frontend geöffnet ist: "cannot remove notesdocument when instantiated by notesuidocument"
folgender Codeauszug:
Dim uiws As New NotesUIWorkspace
Dim archivdb As NotesUIDatabase
Dim uiview As NotesUIView
Dim view As NotesView
Dim viewUid As NotesView
'Alle angehakten Dokumente
Dim dc As NotesDocumentCollection
'Ein angehaktes Dokument
Dim doc As NotesDocument
Dim killdoc As NotesDocument
'aktuell geöffnetes Dokument
Dim uidoc As NotesUIDocument
Dim rueckgaengig As Boolean
Dim angekommen As Boolean
Dim vorgang As Boolean
Dim antwortfrm As Boolean
Set uiview = uiws.Currentview
Set uidoc = uiws.CurrentDocument
Set archivdb = uiws.CurrentDatabase
Set dc = uiview.Documents
Set view = uiview.View
Set viewUid = postdb.GetView("posvwDocid")
'Angehakte Dokumente
If dc.Count = 0 Then
Msgbox "Dokument muss angehakt sein", 48, "Achtung!"
Exit Sub
End If
'aktuell in Vorschau geöffnetes Dokument schließen
If Not uidoc Is Nothing Then
If uidoc.InPreviewPane Then
uidoc.Close(True)
End If
End If
'Aufruf eines Dialogs
rueckgaengig = uiws.Prompt(PROMPT_YESNO, "Archivierung rückgängig machen", _
"Wollen Sie die Archivierung der ausgewählten Dokumente rückgängig machen?")
If rueckgaengig = True Then
Set doc = dc.GetFirstDocument <---------- da tritt der fehler auf
Do While Not (doc Is Nothing)
'Dokument ist Hauptdokument
If doc.Form(0) = "posfrmPosteingang" Then
...
..
.
Fehler ist folgender... Object Variable Not Set
Debugger sagt das DC also die documentcollection leer ist, nachdem uidoc geschlossen wird. in DC stehen alle angehakten Dokumente...wo ist der Fehler??