Guten Morgen!
Wenn du nicht noch großartig was anderes vorhast würde ich das mit einem simplen @Command( [SwitchForm] ; Maskenname )
Dann kann man doch auch gleich auf die UIView-Klasse losgehen.
Dim ses As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim uivw As NotesUIView
Dim doc As NotesDocument
Set uivw = uiws.CurrentView
Set doc = ses.CurrentDatabase.GetDocumentByID(uivw.CaretNoteID)
Andreas
Das kannte ich noch gar nicht.
Hab das jetzt in die Aktion eingebaut. Leider verweigert mir Notes aber den Befehl. Kriege die Fehlermeldung "Angegebener Befehl kann nicht ausgeführt werden".
Habe jetzt einfach
@Command( [ViewSwitchForm] )
in die Aktion gepackt.
Und ich möchte das auf jeden Fall in eine Aktion packen und nicht in eine Maskenformel.
Da fall ich auch immer wieder drauf rein!
Der Wechsel funktioniert nur im Bearbeitungsmodus des Dokuments. Versuch es so:
@Command([EditDocument];1);
@Command( [ViewSwitchForm];"(DruckVorlage)")
Markus
Dann versuch doch mal
Set uidoc = workspace.EditDocument(False, doc)
anstatt von
Call notesUIWorkspace.EditDocument( False, doc, True,, False )
wobei ich mich hier frage, woher kommt notesUIWorkspace.
Andreas
Also dieser Code funktionier bei mir problemlos.
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
Kann es sein, dass in Deiner Druckmaske irgendwelche Feldberechnungen/Feldbelegungen nicht sauber laufen?
Andreas