Umbenennen von Document Values

pogo · 10. Februar 2006

Hallo,

ich möchte in einer View alle selektierten Dokumente umbennen. Es soll einfach ein bestimmter String vor dem Value gesetzt werden.

Z.B.:

Die View sieht momentan so aus

Name Description

Mueller Head of office
Schneider 2nd head of office

vor dem Namen soll jetzt ein String gesetzt werden, wenn das dokument selektiert wurde.

Name Description

_del_Mueller Head of office
_del_Schneider 2nd head of office

Vielen Dank.

dnotes · 10. Februar 2006

Benutze einen Agenten der fuer alle gewaehlten Dokumente gilt.

pogo · 10. Februar 2006

Klar, aber welche Funktion bietet mir Notes die Values zu ändern.

Auslesen kann ich ja mit ColumnValues().

ascabg · 10. Februar 2006

Hi,

Willst Du die Aenderungen in der Ansicht machen ober im Dokument selber?

Andreas

dnotes · 10. Februar 2006

Du willst ja nicht den Spaltenwert aendern sondern den Feldinhalt eines Dokumentes.
Also mit doc.Feldname = "Neuer Wert" waere da mal ein Beispiel.

Oder doch die Spaltenformel anpassen??

pogo · 10. Februar 2006

Am Dokument selber.

Der soll bei allen selektierten Dokumenten, bei einem (immer der gleiche) Splatenwert, ein String vorne dran setzen.

also z.B. "_del_" & Spaltenwert

dnotes · 10. Februar 2006

also doc.Feldname = "_del_" & doc.Feldname(0) als Beispiel

ascabg · 10. Februar 2006

Hi,

kleine Zugabe.

Code

call doc.ReplaceItemValue("Feldname", "_del_" & doc.GetItemValue("Feldname")(0))

Andreas

pogo · 10. Februar 2006

hmm. es passiert gar nichts...

Code

Sub Initialize

	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim collection As NotesDocumentCollection  

	Dim allselect As Long
	Dim noselect As Boolean

	Set db = session.CurrentDatabase
	Set view = db.GetView("Groups")
	Set collection =  db.UnprocessedDocuments

	Msgbox	 "Anzahl der selektierten Gruppen:" & collection.Count	

	allselect = collection.count

	If allselect >=1 Then
		Set doc=collection.getfirstdocument
	Else
		noselect = workspace.Prompt(PROMPT_YESNO, "Keine Selektierung gefunden")
		If noselect=False Then
			Exit Sub
		End If
		Set collection = Nothing
	End If

	For i = 1 To allselect

		Call doc.ReplaceItemValue("ListName", "_del_" & doc.GetItemValue("Listname")(0))

'		doc.ListName = "_del_" & doc.ListName

		Set doc= collection.GetNextDocument(doc)

	Next


End Sub

Alles anzeigen

dnotes · 10. Februar 2006

Wie auch! Du solltest zumindest in der Schleife die geaenderten Dokumente speichern. Also

Code

For i = 1 To allselect

		Call doc.ReplaceItemValue("ListName", "_del_" & doc.GetItemValue("Listname")(0))

'		doc.ListName = "_del_" & doc.ListName
		doc.save true,true
		Set doc= collection.GetNextDocument(doc)

	Next

ascabg · 10. Februar 2006

Hi,

Kleine Frage

Wo Speicherst Du denn die Aenderungen? :-? :-?

Andreas

pogo · 10. Februar 2006

Ok jetzt klappts

Vielen Dank!!!

Bin doch noch ein noob was Notes betrifft. :roll:

Teilen