Domino 9 und frühere Versionen > ND7: Entwicklung

Problem mit einem Script

<< < (2/4) > >>

eknori:
ja, gucke noch einmal in meinen vorherigen Post ...

ewald:
Tschuldigung Ulrich, hab ich vorhin gar nicht gesehen.
Fehler kommt aber leider immer noch

ewald:
Bleibt im debugger hier hängen:

   Dim ws As New NotesUIWorkspace   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim uiview As NotesUIView
   Dim collection As NotesDocumentCollection
   Dim uidoc As NotesUIDocument   
   Dim doc As NotesDocument   
   Dim j As Integer
   
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set uidoc = ws.currentdocument   
-->   Set doc = ws.currentdocument.document      
   Set uiview = ws.CurrentView   

DAU-in:
Wird das uidoc denn belegt?

Wenn du die Dokumente in einer Ansicht anhakst, sollte das doch nicht der Fall sein, oder stehe ich auf dem Schlauch?

Oder hast du den Button jetzt in der Maske eingebaut?

ewald:
ich denke doch, oder nicht?

   Dim ws As New NotesUIWorkspace   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim uiview As NotesUIView
   Dim collection As NotesDocumentCollection
   Dim uidoc As NotesUIDocument   
   Dim doc As NotesDocument   
   Dim j As Integer   
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set uidoc = ws.currentdocument   
   Set doc = ws.currentdocument
   Set uiview = ws.CurrentView   
   
   Dim tmpSEAStartDate As String
   
   ' The profile document
   Dim profDoc As NotesDocument
   Set profDoc = db.GetProfileDocument("MainProfile")   
   
   tmpSEAStartDate = profDoc.dlgSEAStartDate(0)   
   Msgbox tmpSEAStartDate
   
   For j = 1 To collection.Count
      Set doc = collection.GetNthDocument( j )
      Dim item As NotesItem
      Set item = doc.ReplaceItemValue( "SEAStartDate", tmpSEAStartDate )
      
      'Call doc.ReplaceItemValue("SEAStartDate", tmpSEAStartDate)      
      
      Call doc.Save( False, True )
   Next
   
   ' Remove all the selections
   Call uiview.DeselectAll

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete