Dokument in der Ansicht fokussieren.

[SuperTom]

Hallo zusammen,
ich habe da ein kosmetisches Problem in der Ansicht.
Ich möchte Dokumente nummerisch sortieren, also noch oben und unten "verschieben" abhängig von der laufenden Nummer.
Ich stelle mich auf das Dokument ( UnprocessedDocuments ) und zähle die Nummer hoch durch einen Aktionsbutton.
Das geht alles wunderbar. Das ViewRefresh lässt dass Dokument "wandern".
Jetzt mein Problem: wenn ich das 5 Mal machen möchte muss ich immer das Dokument auswählen, weil die Makierung auf dem Nachbardok ist.
Gibt es einen Befehl, dass er auf dem bearbeiteten Dokument fokussiert bleibt.
Danke im voraus  :-) 

[jBubbleBoy]

Damit sollte es funktionieren:
https://help.hcl-software.com/dom_designer/14.0.0/basic/H_SELECTDOCUMENT_METHOD.html

[SuperTom]

Hallo jBubbleBoy,

vielen Dank für den Tipp.

Ich habe anhand des Beispiels aus der Hilfe versucht dies einzubauen, leider ohne Erfolg.
Ich bin auch nicht der tolle Programmierer, ich verwende meist die Sachen, die ich kenne.

Kannst Du oder jemand mir zeigen, wie ich das in meine Code einbaue?

Sub Click(Source As Button)
   
   Dim s                            As New NotesSession
   Dim ws                         As New NotesUIWorkspace
   Dim db                         As NotesDatabase
   Dim doc                         As NotesDocument
   Dim docUN                      As NotesDocument
   Dim dcUN                                As NotesDocumentCollection
   
   Set db                         = s.CurrentDatabase
   
   Set dcUN                              = db.UnprocessedDocuments
   Set docUN                      = dcUN.GetFirstDocument
   
   docUN.Nr = docUN.Nr(0) + 1
   
   Call docUN.Save( True, True )
   
   Call ws.ViewRefresh
   
End Sub

[jBubbleBoy]

z. B. so:

Code

Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docUN As NotesDocument
Dim dcUN As NotesDocumentCollection
Dim nid$	
	
nid = ws.CurrentView.CaretNoteID
	
Set db = s.CurrentDatabase	
Set dcUN = db.UnprocessedDocuments
Set docUN = dcUN.GetFirstDocument
	
docUN.Nr = docUN.Nr(0) + 1
	
Call docUN.Save( True, True )
Call ws.ViewRefresh

ws.CurrentView.SelectDocument s.CurrentDatabase.GetDocumentByID(nid)