Domino 9 und frühere Versionen > ND6: Entwicklung

Collection.count im Queryopen ?

<< < (2/2)

Wilhelm Weber:
das funktioniert auch, aber ich möchte dass das Dokument sich dann auch öffnet und editierbar ist ?

evaluate geht ja mit @command[compose] nicht

ascabg:

--- Code: ---Dim ses As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim uivw As NotesUIView
Dim uidoc As NotesUIDocument

Dim db As NotesDatabase
Dim doc As NotesDocument

'aktuelle View als UIView holen
Set uivw = uiws.CurrentView

'aktuelle Datenbank holen
Set db = ses.CurrentDatabase

'aktuelles Dokument holen
Set doc = uivw.CaretNoteID

'aktuelles Dokument zum Bearbeiten oeffnen
Set uidoc = uiws.EditDocument(True, doc)

--- Ende Code ---

Vielleicht hilft das ein wenig weiter.

Andreas

DAU-in:
NotesuiWorkspace Class

Methode : edit document

und dann das doc mitgeben

Wilhelm Weber:
das nützt aber ja auch nichts wenn ich durch die Aktion ein neues Dokument mit einer anderen Maske erstellen will, das lediglich einige felder üübernhemen soll.

Wilhelm Weber:

--- Zitat von: ascabg am 30.10.09 - 16:02:55 ---
--- Code: ---Dim ses As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim uivw As NotesUIView
Dim uidoc As NotesUIDocument

Dim db As NotesDatabase
Dim doc As NotesDocument

'aktuelle View als UIView holen
Set uivw = uiws.CurrentView

'aktuelle Datenbank holen
Set db = ses.CurrentDatabase

'aktuelles Dokument holen
Set doc = uivw.CaretNoteID

'aktuelles Dokument zum Bearbeiten oeffnen
Set uidoc = uiws.EditDocument(True, doc)

--- Ende Code ---

Vielleicht hilft das ein wenig weiter.

Andreas

--- Ende Zitat ---

Da läuft hier auf einen Fehler...

'aktuelles Dokument holen
Set doc = uivw.CaretNoteID

Navigation

[0] Themen-Index

[*] Vorherige Sete