Hallo,
habe ein Problem, an der markieren Stelle wird das Dokument zwar geöffnet, allerings erscheint ein Fenster mit folgender Nachricht: "Diese Funktion ist nicht für Dateisystemverzeichnisse geeignet"
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesView
Dim collection As NotesDocumentCollection
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim dateTime As New NotesDateTime( "" )
Dim formula As String
Call dateTime.SetNow
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set view = db.GetView( "MyView" )
formula = "SELECT bla.."
view.SelectionFormula = formula
Call view.Refresh
Set collection = workspace.PickListCollection( _
PICKLIST_CUSTOM, False, db.server, db.FilePath, "myView", "Reports", "Please select the report.")
If collection.Count > 0 Then
Set doc = collection.GetFirstDocument
While Not ( doc Is Nothing )
Call doc.ReplaceItemValue("Autor", session.CommonUserName)
Call doc.ReplaceItemValue("Datum", DateTime)
Set uidoc = workspace.EditDocument(False, doc)
uidoc.EditMode = True
Set doc = collection.GetNextDocument (doc)
Wend
Set uidoc = workspace.CurrentDocument
End If
End Sub
Nachdem ich auf <OK> gedrückt habe, kann ich es ganz normal bearbeiten.
Wie kann ich das Fenter unterbinden??
LG, woki
Nachtrag:
Das Problem hat nichts mit dem EditDocument zu tun. Die Meldung kommt nur bei einem Dokument. Bei allen anderen funktioniert es.
Aber vielleicht kann mir trotzdem einer weiterhelfen, wo ich nach dem Fehler suchen kann.