Hallo zusammen,
vielleicht kann mir da jemand helfen:
Ich bastel an einer Datenbank rum, die auf unsere zentrale Mitarbeiter-DB zugreifen soll. Das Problem dabei ist, dass ich die Mitarbeiter-DB selber nicht ändern kann, also mir nicht einfach eine Ansicht zusammenbasteln kann. Jetzt ist da eine Ansicht vorhanden, die mein Schlüsselwort in der zweiten (sortierten) Spalte auflistet. Gibts da nicht doch eine Möglichkeit, mit getDokumentByKey an ein bestimmtes Dokument ranzukommen? Über das 'KeyArray' kann man eigentlich die zweite Spalte auch ansprechen...kann man da keine 'Platzhalter' für die erste Spalte verwenden (die Werte in der ersten Spalte fangen alle mit 'YH' an)? ???
Etwa so ungefähr:
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim bednr(1 To 2) As String
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
bednr(1) = "YH*"
bednr(2) = uidoc.FieldGetText( "gs_bednr" )
Set db = New NotesDatabase( "Domino", "ma.nsf" )
Set view = db.GetView( "Mitarbeiter\USERID" )
Set doc = view.GetDocumentByKey( bednr)
If Not doc Is Nothing Then
Call uidoc.FieldSetText _
( "gs_ma", doc.Name( 0 ) )
Else
Print "Kein Eintrag gefunden!"
End If