Guten Morgen zusammen,
ich hab eine kleine Bitte:
Ich hab zwei Dokumente in denen das Feld "A" steht, das den selben Inhalt hat. Da sich der Inhalt von Feld "A" aber ändern kann und die Dokumente aufeinander basieren, möchte ich eine Beziehung zwischen den beiden Dokumenten herstellen. Dazu würde ich ein Feld "B" (mit dem Inhalt @Unique) aus dem einen Dokument ins andere übernehmen wollen.
Da ich hierbei nichts falsch machen will - sprich: es sollten keine Fehler auftreten und keine Werte in ein falsches Dokument geschrieben werden - dachte ich, ihr könnt mir Tipps geben, ob mein Code passt und wo ich noch Fehler unterbinden kann - also, nur um auf Nummer sicher zu gehn.
Zu jedem Dokument kann es nur ein einziges, passendes "Partnerdokument" geben.
Dim session As NotesSession
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim db As NotesDatabase
Dim view As NotesView
Dim view2 As NotesView
Dim speicher As Boolean
Dim Askme As Variant
Dim i As integer
Sub Initialize()
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.Getview("Personenuebersicht")
Set view2 = db.GetView("vUsername")
Set doc = view.Getfirstdocument()
i = 1
Do While Not doc Is nothing
If doc.form(0) = "Person" then
Set doc2 = view2.getdocumentbykey(doc.txtUsername)
If Not doc2 Is Nothing then
If doc2.form(0) = "mUserName" Then
doc2.UserNameID = doc.ID
speicher = doc2.Save(True, False )
Print i
i= i+1
Else
Print "Kein passendes Dokument gefunden"
End if
End If
End If
Set doc = view.Getnextdocument(doc)
Loop
End Sub
Chris