Domino 9 und frühere Versionen > ND6: Entwicklung

Aufruf Dokument mit Maskenwechsel

<< < (4/5) > >>

TRO:
grummel, bitte lies mein Posting #8 zum Thema "Session.DocumentContext", dann können wir über Deinen Code weiter sprechen.


Thomas

Wiesel:
Also, diesen Code habe ich gerade ausprobiert:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace     
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim coll As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   
   Set db = session.CurrentDatabase
   Set coll = db.UnprocessedDocuments
   Set doc = coll.GetFirstDocument
   
   If doc.form(0) = "Vorlage" Then
      doc.form = "(DruckVorlage)"
      
      Set uidoc = workspace.EditDocument(False, doc)
      
   End If
   
End Sub


Notes-Absturz!

ascabg:
Auch schon den Debugger angeworfen?


Andreas

Wiesel:
ja klar. Immer die Zeile

Set uidoc = workspace.EditDocument(False, doc)

ascabg:
Also dieser Code funktionier bei mir problemlos.


--- Code: ---Sub Click(Source As Button)
Dim ses As New NotesSession

Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Dim col As NotesDocumentCollection
Dim doc As NotesDocument

Set col = ses.CurrentDatabase.UnprocessedDocuments
If col Is Nothing Then Exit Sub
If col.Count <= 0 Then Exit Sub

Set doc = col.GetFirstDocument
If Not (doc Is Nothing) Then
doc.Form = "Test_Neu"

Set uidoc = uiws.EditDocument(False, doc)
End If

End Sub

--- Ende Code ---

Kann es sein, dass in Deiner Druckmaske irgendwelche Feldberechnungen/Feldbelegungen nicht sauber laufen?


Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete