"Notes-Fehler: Ein anderer Benutzer hat dieses Dokument zur gleichen Zeit geändert (namesKOPIE.nsf)"
Hallo,
die o.g. Meldung kommt beim Versuch, die Dokumente aus einer Datenbank in eine andere zu kopieren.
Bzw. alle Dokumente werden zum ersten Mal problemlos kopiert, aber wenn danach ein zu kopierendes Dokument geändert wurde, geht es nicht mehr wegen der Fehlermeldung.
Weiß jemand, wie das Problem gelöst werden könnte?
Gruß
Leo
Dim session As New NotesSession
Dim db As NotesDatabase 'aktuelle Datenbank
Dim dbN As NotesDatabase 'NAB Datenbank
Dim dbK As NotesDatabase 'FIRMA Kontakte Datenbank
Dim viewN As NotesView
Dim viewK As NotesView
'Name des aktuellen Servers emitteln
Set db = session.CurrentDatabase
Dim serverName As String
serverName = db.Server
Set dbN = session.GetDatabase(ServerName,"namesKOPIE.nsf", False)
Set dbK = session.GetDatabase(ServerName,"FIRMA//SysAdm//Entwicklung//FIRMA-kontakte.ntf", False)
Set viewN = dbN.GetView("Mitarbeiterliste")
Set viewK = dbK.GetView("FIRMA-MA")
Dim numDocsN As Long
numDocsN = viewN.AllEntries.Count 'Anzahl der Dokumente in der View/Ordner
Print "Insgesamt " & numDocsN & " MA-Dokumente im NAB"
Dim numDocsK As Long
numDocsK = viewK.AllEntries.Count 'Anzahl der Dokumente in der View/Ordner
Print "Insgesamt " & numDocsK & " MA-Dokumente in FIRMA Kontakten"
'09.01.2012 NAB Lauf----------------------------------------------------
Dim docN As NotesDocument
Dim docK As NotesDocument
'Schleife über alle NAB Dokumente
Set docN = viewN.GetFirstDocument()
Dim nN As Long 'Anzahl der aus NAB kopierten Dokumente
nN = 0
Dim result As String
While Not docN Is Nothing
' Call viewN.Refresh() 'bringt nichts
'Schleife über alle FIRMA Kontakte Dokumente
Set docK = viewK.GetFirstDocument()
While Not docK Is Nothing
' Call viewK.refresh() 'bringt nichts
If docN.FirstName(0) & docN.LastName(0) = docK.FirstName(0) & docK.LastName(0) Then
result = "OK"
GoTo weiter
End If
Set docK = viewK.GetNextDocument(docK)
Wend
'Dokument aus NAB wird kopiert
If result <> "OK" Then
Print docN.FirstName(0) & " " & docN.LastName(0) & " muss kopiert werden."
' Call docN.CopyToDatabase(dbK) 'wegen Fehlermeldung bei einem modifizierten Dokument anders realisiert
Dim newDoc As NotesDocument
Set newDoc = docN.CopyToDatabase( dbK )
newDoc.FIRMANAB = "FIRMANAB" 'setzten um danach newDoc's zu finden
Print docN.FirstName(0) & " " & docN.LastName(0) & " kopiert"
nN = nN +1
End If
weiter:
Set docN = viewN.GetNextDocument(docN)
result = ""
Wend
' es geht noch weiter...