Dokument von Collection öffnen

[skywook]

Hallo,
wie kann ich den das gefundene Dokument (ist immer nur eines) der Collection öffnen um Eingaben durchzuführen. Bekomms einfach nicht hin.

Sub Click(Source As Button)
Dim session As  New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim dbname As notesdatabase
Dim doc As  NotesDocument
Dim view As NotesView
Dim dc As NotesDocumentCollection
Dim keys(1) As String
   
'Such-DB im Backend öffnen
Set db = session.GetDatabas( "Server",  "korrespo/vbpara.nsf" )
Set view = db.GetView("(Suche)")   

'Auf Frontend zugreifen
Set dbname = session.CurrentDatabase
Set ws = New  notesuiworkspace
Set uidoc = ws.currentDocument
If uidoc.fieldGetText("Kurzname") = "" Then
     Messagebox "Füllen Sie bitte die Plichtfelder." , 0 + 16, "Fehler"
     Exit Sub
End If
keys(0) =  dbname.Title
keys(1) =  uidoc.fieldGetText("Kurzname")
   
'Suche in Such-DB durchführen   
Set dc = view.GetAllDocumentsByKey(keys, True)
   
If Not (dc Is Nothing) Then

   ........ hier hakt es ein wenig


für Hilfe wäre ich dankbar.
      
      

[Glombi]

So:

dim targetdoc as NotesDocument
If Not (dc Is Nothing) Then
  set targetdoc = dc.GetFirstDocument
  call ws.EditDocument( true, targetdoc)
End if

Andreas

[skywook]

Funktioniert!
Danke für die schnelle Hilfe.