OK, die DB ist mittlerweile angekommen (auch wenn sie 'etwas' größer war)

Mittlerweile blicke ich auch was Du meinst dank der DB.
Um das ganze nochmal einzugrenzen:
Wenn in der embedded View nur 1 Dok ist, willst Du beim Klick auf den Button "Liefermenge Ändern" auch gleich das Dokument anzeigen lassen !?
Hier eine mögliche Umsetzung, kannste 1:1 in den Buhtong kopieren:
Sub Click(Source As Button)
Dim docDetail As NotesDocument
Dim viewForRefresh As NotesView
Dim view2 As NotesView
Dim strPos As String
Dim coll As NotesDocumentCollection
Dim vOK As Variant
Set viewForRefresh = db.GetView( "(LieferPositionen)" )
Set view2 = db.GetView( "(BestellPositionenByKey)")
Call view2.Refresh()
Set coll = view2.GetAllDocumentsByKey(thisDoc.UniversalID)
Select Case coll.Count
Case 0:
Msgbox "Keine Position vorhanden.", 48, db.title
Case 1:
Set docDetail = coll.GetFirstDocument
Case Else:
strPos = Inputbox$( "Welche Position bearbeiten?", "Position bearbeiten", "1" )
If strPos = "" Then Exit Sub
Set docDetail = view2.GetDocumentByKey( thisDoc.UniversalID + "-" + strPos )
If docDetail Is Nothing Then
Messagebox( "Position nicht vorhanden." )
Exit Sub
End If
End Select
vOK = ws.Dialogbox( "LieferPosEdit", True, True, False, False, False, False, "Bestellposition bearbeiten", docDetail )
If vOK = True Then
Call docDetail.Save( True, True )
Call viewForRefresh.Refresh()
Call uiDoc.Refresh()
End If
End Sub
Was mir hier noch nicht gefällt, dass zweimal ein GetDocByKey läuft, da Du die Docs eh schon in der Collection hättest. Soll aber auch nur ein Beispiel sein.
Matthias