EditDocument bringt Fehler

[skywook]

Hallo,
bräuchte mal wieder eure Hilfe.

Ich starte im Datenbankscript PostOpen eine Script-Bibliothek die mir in der DB ein Doc sucht (mit view.GetDocumentByKey) und dieses dann mit ws.EditDocument(true,doc) öffnet.

Das Doc wird zwar geöffnet, aber ich bekomme immer die Meldung:
Angegebener Befehl kann nicht ausgeführt werden.

Für einen Tipp wäre ich dankbar.

[DerAndre]

Hi.

Steht da noch mehr Code drin?
Hast Du da ein Fehlerhandling engebaut?

[skywook]

Hier der Code. Hab schon versucht den Fehler abzugreifen - leider vergebens.


            Sub KundeOeffnen(key As String)
   On Error Goto ErrorHandler      
   
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim doc As NotesDocument
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   
   'Lib öffnen und key für die Suche übergeben - Rückgabe ist ein doc
   Set doc = AuswahlSuche(key)   
   
   'Gibt es das Doc wirds geöffnet ansonsten Meldung
   If Not doc Is Nothing Then
      Call ws.EditDocument(True, doc)
   Else
      Msgbox "Eingelesener Kunde nicht vorhanden!", 0+16, "Achtung"
      Exit Sub
   End If
   
   Exit Sub
   
   
'Fehlerbehandlung      
ErrorHandler:
   'fehlertext1 = "Fehler-Nr.:" & Err & " — " & Error$ & " (line: " & Erl & " )"
   
   'Msgbox fehlertext1
   'Resume Next
   
End Sub

[TRO]

Probier mal bei ws.EditDocument

Set notesUIDocument = notesUIWorkspace.EditDocument( [editMode] , [notesDocument] , [notesDocumentReadOnly] , [documentAnchor$] , [returnNotesUIDocument] , [newInstance] )

den Parameter returnNotesUIDocument = False zu verwenden.



Thomas

[koehlerbv]

Das liegt nicht am geposteten Code, sondern innerhalb der Maske, mit der das gefundene Dokument geöffnet wird. Bis wird darüber mehr wissen, können wir auch nichts dazu sagen.

Bernhard