Domino 9 und frühere Versionen > Entwicklung
Wert eines Feldes bei mehreren Doks ändern
Glombi:
Hallo Roland,
poste Deinen Code bitte mal.
Und gib bitte an, wie die Felder in der Dialogmaske heißen.
Ich gehe davon aus, dass in der View alle Dokumente stehen, die geändert werden sollen.
Andreas
matzge:
Hallo Andreas!
Also hier der Code:
Sub Initialize
Dim ws As NotesUIWorkspace
Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim dialogdoc As NotesDocument
Dim ret As Integer
Set ws = New NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("ExchangeView")
'Rufe Dialogbox auf
Set dialogdoc = db.CreateDocument
ret = ws.Dialogbox("DialogLokation",True,True,False,False,False,False,"Lokation wechseln",dialogdoc)
If Not ret Then Exit Sub 'Abbruch, falls Abbrechen gewählt wurde
'Bilde Collection aller Dokument mit der alten Lokation
Set dc = view.GetAllDocumentsbyKey(dialogdoc.LokationAlt(0), True )
'Iteriere über alle Dokumente und setze neue Lokation ein
Set doc = dc.GetFirstDocument
While Not (doc Is Nothing)
doc.Lokation = dialogdoc.LokationNeu(0)
Call doc.Save(False,True,True)
Set doc = dc.GetNextDocument(doc)
Wend
End Sub
Die Felder im Form (Name der Form: DialogLokation):LokationAlt, LokationNeu.
Wenn ich mir den View anzeigen lasse, so beinhaltet er alle Dokumente in der Datenbank. Eben geordnet nach der Lokation (nicht kategorisiert).
Grüße und Danke
Roland
klaussal:
... hat script die felder im doc geändert ?
lass mal den debugger mitlaufen, da kann man schön verfolgen, was sache ist.
Glombi:
Evtl. liegt es hier dran:
doc.Lokation = dialogdoc.LokationNeu(0)
Prüf mal ob der Feldname wirklich "Lokation" ist.
Andreas
eknori:
Hätte hier
http://www.atnotes.de/index.php?board=9;action=display;threadid=3052;start=0
auch noch was anzubieten
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln