Beim uidoc.refresh Notes Absturz

[brixxton]

Hola alle Zusammen,

wieder ein kleines Problem oder bug.
Ich habe eine Maske mit einer Eingebetteten Ansicht, wenn ich denn uidoc Refreshen
will (Call uidoc.Refresh) stürzt Notes immer ab.

In der Maske sind drei Felder: Ansicht auswahl, Kategorie und neuer Wert der in die
Ausgewählte Dokumente eingetragen wird.

Ich benutze Notes 6.5.3


Habe sogar mit eigener Funktion versucht zu Refreshen,

Call uidoc.Close(True)
Call ws.ComposeDocument( "", "", "search" )
Set uidoc = ws.CurrentDocument
Call uidoc.GotoField( "query" )
Call uidoc.FieldSetText( "query", Cstr(askme) )

wieder das gleiche Problem.


hier der quellcode

Sub BezLinksAendern
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim searchdoc As NotesDocument
   Dim feldname As String
   Dim item As NotesItem
   Dim i As Integer
   
   On Error Goto ErrorHandel
   
   Stop
   
   Set db = session.CurrentDatabase
   Set uidoc = ws.CurrentDocument
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument()
   Set searchdoc = uidoc.Document
   'uidoc.Refresh
   'uidoc.EditMode = False
   'uidoc.EditMode = True
   
   If uidoc Is Nothing Then
      Print "nothing uidoc"
   End If
   
   Call searchdoc.Save(True,False)
   'Call uidoc.RefreshHideFormulas
   
   Print collection.Count
   Print searchdoc.query(0)
   Print searchdoc.NeuerWert(0)
   'Exit Sub
   
   Dim askme As Variant
   askme = ws.Prompt (PROMPT_OKCANCELEDIT, _
   "We want to hear from you!", _
   "Enter your message here.")
   If Isempty (askme) Then
      Exit Sub
   End If
   
   
   i=0
   While Not(doc Is Nothing)
      
      Forall x In doc.Items
         feldname = Trim(x.name)
         'Print Left(feldname,5)
         If Left(feldname,5) = "Feld_" Then
            Print Left(feldname,5)
            Set item = doc.GetFirstItem( feldname )
            If item.Text = searchdoc.query(0) Then
               Print item.Text = searchdoc.query(0)
               
               'Call doc.ReplaceItemValue(feldname, searchdoc.NeuerWert(0))
               Call doc.ReplaceItemValue(feldname, Cstr(askme ))
               Call doc.Save( False, True )
            End If
         End If
      End Forall
      
      
      Set doc = collection.GetNextDocument(doc)
   Wend
   
   Call uidoc.GotoField( "query" )
   Call uidoc.FieldSetText( "query", Cstr(askme) )
   'Call searchdoc.ReplaceItemValue(query, Cstr(askme ))
   Call uidoc.Refresh
   Call ws.ViewRefresh
   
   Exit Sub
ErrorHandel:
   
   Print "Error" & Str(Err) & ": " & Error$ & " Zeile: " & Erl