Lotus Notes - Solo me cambia un valor

Quiero cambiar el valor de todos los documentos de una colección y solo me cambia uno o dos, dependiendo del caso, este es la parte que creo que falla:

aunque en el depurador me da todo correcto pero no me cambia todos los valores.(es parte)
¿como puedo cambiar el valor de todos los que encuentre con la clave...?
Gracias y saludos.. a todos

Set view = ob.GetView("info")
Set oDCol = view.GetAllDocumentsByKey(clave, True)
Set docs = oDCol.GetFirstDocument

Call docs.ReplaceItemValue( "Incidencia", oDoc.Incidencia(0))
'Set item = docs.ReplaceItemValue( "Incidencia", oDoc.Incidencia(0))
'Call docs.save(True,True)

While Not docs Is Nothing

Call docs.save(True,True)
Set docs = oDCol.GetNextDocument(docs)


Wend

Intenta con esto:

Set View = ob.GetView("vistanombres")
'Busca el contenido del campo con el GetDocumentByKey
Set Docs= View.GetDocumentByKey(clave,True)
'si esta la clave
While Not docs Is Nothing and docs.clave=clave
Call docs.ReplaceItemValue( "Incidencia", docs.Incidencia(0))
Call docs.save(True,True)
Set docs = View.GetNextDocument(docs)
Wend

Hugo me da un type mismacht en esta parte...:
While Not docs Is Nothing and docs.clave=clave

Estoy con el depurador---
Prometo no volver a programar o por lo menos aprender....

que valor te da en el campo? puede ser que ser la clave sea ´numerico o caracter y al hacer la comparación te envia el error.

Ya esta solucionado, es que tengo que fijarme mejor...

Muchas gracias